Connexion DB2 à partir d'excel macro

Je veux me connecter à DB2 à partir d'excel macro...C'est mon code mais il ne fonctionne pas, Sa présentation d'erreur comme "Run-time Error'...quelqu'un Peut m'aider...

Option Explicit

Dim DBCONSRT, QRYSTR As String

Dim DBCON, DBRS  As Object

Private Sub query()
    DBCONSRT = "Driver=jdbc:db2://my_host;Database=PRTHD;hostname=NZ1;port=5355;protocol=TCPIP; uid=my_user;pwd=my_pass"
    'CHANGE THE BELOW QUERY STRING ACCORDING TO YOUR NEED
    QRYSTR = "select * from PRTHD.STRSK_OH_EOO"
    Set DBCON = CreateObject("ADODB.Connection")
    DBCON.ConnectionString = DBCONSRT
    DBCON.Open
    'BELOW CODE USED TO GET THE DATABASE CONECTION AND EXECUTE THE QUERY CHANGE ACCORDIGN TO YOUR NEED
    Set DBRS = CreateObject("ADODB.Recordset")
    With DBRS
        .Source = QRYSTR
        Set .ActiveConnection = DBCON
        .Open
    End With    
End Sub

Edit: j'ai changé mon code pour la suite, mais je suis toujours une erreur. L'Erreur est "je ne peux pas créer l'Objet"..Peut ayone m'aider..

Dim DBCONSRT, QRYSTR As String

Dim DBCON  As Object

Sub query()

    DBCONSRT = "Provider=MSDASQL.1;Persist Security Info=False;User ID=user;Data Source=NZ1;DSN=NZ1;UID=user;SDSN=;HST=ibslnpb1.sysplex.homedepot.com;PRT=4101;Initial Catalog=PRTHD;"

    DBCON = CreateObject("OLEDB.Connection")
    DBCON.ConnectionString = DBCONSRT
    DBCON.Open()
End Sub

J'ai peut-être tort, mais je ne pense pas que vous pouvez utiliser JDBC avec Excel. Je pense que vous êtes désireux ODBC.
Vouliez-vous dire CreateObject("ADODB.Connection") ?

InformationsquelleAutor user1271146 | 2012-03-26

db2 vba

0

JDBC fonctionnalité, je suis sûr que n'est pas pris en charge par vba et je pense que vous avez besoin d'utiliser des connecteurs ODBC pour se connecter à DB2 si vous essayez de l'intégrer dans excel.
```
Private Sub query()
  DBCONSRT = "Provider=MSDASQL.1;Persist Security Info=False;User ID=user;Data Source=NZ1;DSN=NZ1;UID=user;SDSN=;HST=ibslnpb1.sysplex.homedepot.com;PRT=4101;In‌itial Catalog=PRTHD;"
  Using connection = New OleDbConnection(DBCONSRT )
      connection.Open()
      Dim cmd = connection.CreateCommand()
      cmd.CommandText = QRYSTR //This is where your sql statement should go, or the variable that is equal to the query.
      Using dr = cmd.ExecuteReader()
          //Process your query results here 
      End Using
  End Using
End Sub 
```
- okie..je vais essayer avec connecteurs ODBC..Merci
- Le code est bon?....autre que la chaîne de connexion
- Vous devez modifier l'objet ADODB pour OLEDB objets.
- J'ai modifié le code comme ceci..Mais sa ne fonctionne pas.Erreur "Impossible de créer l'objet"...Wat faire... Sous query() DBCONSRT = "Provider=MSDASQL.1;Persist Security Info=False;ID Utilisateur=utilisateur;Data Source=NZ1;DSN=NZ1;UID=utilisateur;SDSN=;HST=ibslnpb1.sysplex.homedepot.com;PRT=4101;Initial Catalog=PRTHD;" DBCON = CreateObject("ADODB.Connexion") DBCON.ConnectionString = DBCONSRT DBCON.Open() End Sub
- Voir l'edit que j'ai fait ci-dessus et d'essayer quelque chose de semblable. Aussi, votre chaîne de connexion ressemble un peu inhabituel pour DB2 comme vous l'avez deux différents Identifiants utilisateurs là-bas et pas de mot de passe.
- Okie..j'ai changé de chaîne de connexion et sa fonctionne bien maintenant
- Heureux d'entendre ça!
InformationsquelleAutor em3ricasforsale
0

Commencer avec l'évolution de la
```
DBCON = CreateObject("OLEDB.Connection")
```
à
```
Set DBCON = CreateObject("ADODB.Connection")
```
Si vous obtenez une erreur, double-vérifier votre chaîne de connexion.
- Okie....sa fonctionne bien
InformationsquelleAutor transistor1

Vous devez vous connecter pour publier un commentaire.