pb references ADO Excel SQL

pb references ADO Excel SQL - VB/VBA/VBS - Programmation

Marsh Posté le 06-06-2006 à 13:26:57    

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 :
  1. '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
  4. Function fGetResult() As String
  5. Dim conADO As ADOBD.Connection
  6. Dim strSql As String
  8. Dim rdc As ADODB.Recordset
  10. On Error GoTo fin
  11. Set conADO = New ADODB.Connection
  12. On Error GoTo fin
  13. conADO.ConnectionTimeout = 120
  14. conADO.CommandTimeout = 120
  15. conADO.Open ("Driver={Sybase System 11};SRVR=nom_du_serveur;DB=nom_base;UID=login;PWD=pwd" )
  16. On Error GoTo fin
  17. conADO.CursorLocation = adUseClient '????
  18. On Error GoTo fin
  19. If conADO Is Nothing Then
  20.     MsgBox "PB de connexion à la base Credits !", vbCritical, "Connect to Credits DB"
  21. Else
  22.     'perso:
  23.     strSql = "select * from TEST " 'where MOT='" & slist & "'"
  24.     Set rdc = conADO.Execute(strSql)
  25.     If rdc.EOF = True Then
  26.         fGetResult = rdc.MoveLast
  27.     Else
  28.         fGetResult = "0"
  29.     End If
  31. rdc.Close
  32. End If
  34. conADO.Close
  35. Set conADO = Nothing
  37. Exit Function
  38. fin:
  39. MsgBox "PB avec la base", vbCritical, "Credits DB"
  42. End Function

Reply

Marsh Posté le 06-06-2006 à 13:26:57   

Reply

Marsh Posté le 06-06-2006 à 13:54:23    

ADOBD ?????? ADODB !!!
la syntaxe de ta requête est également à priori mauvaise
voir ADOImportTableAccess dans http://forum.hardware.fr/hardwaref [...] 0668-1.htm
et eventuellement pour la syntaxe des chaines de connexion http://www.carlprothman.net/Default.aspx?tabid=81


Message édité par kiki29 le 06-06-2006 à 15:10:54
Reply

Marsh Posté le 06-06-2006 à 16:53:21    

ok merci, je regarde le poste .
dsl pour l'erreur :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed