bonjour,
j'utilise actuellement le code suivant afin de me connecter a une base SQL avec le driver Sybase System 11;
j'ai pas mal cherché dans tous les forums..
et j'obtiens l'erreur suivante des que je lance la macro:
"Compile error:
User-defined type not defined"
qui pointe sur "ADOBD.Connection"....
j'ai coche plusieurs references differentes, mais appremment rien n'y fait.
merci pour votre aide!
Code :
- 'avec les références MS ActiveX Data Objects 2.7 Library ; MS DAO 3.6 Obj Lib et MS Remote Data Obj. 2.0
- Function fGetResult() As String
- Dim conADO As ADOBD.Connection
- Dim strSql As String
- Dim rdc As ADODB.Recordset
- On Error GoTo fin
- Set conADO = New ADODB.Connection
- On Error GoTo fin
- conADO.ConnectionTimeout = 120
- conADO.CommandTimeout = 120
- conADO.Open ("Driver={Sybase System 11};SRVR=nom_du_serveur;DB=nom_base;UID=login;PWD=pwd" )
- On Error GoTo fin
- conADO.CursorLocation = adUseClient '????
- On Error GoTo fin
- If conADO Is Nothing Then
- MsgBox "PB de connexion à la base Credits !", vbCritical, "Connect to Credits DB"
- Else
- 'perso:
- strSql = "select * from TEST " 'where MOT='" & slist & "'"
- Set rdc = conADO.Execute(strSql)
- If rdc.EOF = True Then
- fGetResult = rdc.MoveLast
- Else
- fGetResult = "0"
- End If
- rdc.Close
- End If
- conADO.Close
- Set conADO = Nothing
- Exit Function
- fin:
- MsgBox "PB avec la base", vbCritical, "Credits DB"
- End Function
|