Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1308 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  pb references ADO Excel SQL

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

pb references ADO Excel SQL

n°1382012
ludtrade
Posté le 06-06-2006 à 13:26:57  profilanswer
 

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

mood
Publicité
Posté le 06-06-2006 à 13:26:57  profilanswer
 

n°1382036
kiki29
Posté le 06-06-2006 à 13:54:23  profilanswer
 

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
n°1382228
ludtrade
Posté le 06-06-2006 à 16:53:21  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  pb references ADO Excel SQL

 

Sujets relatifs
[SQL Server 2000] Détacher une base qui est en réplicationMacros simultanées sur excel?
Macro pour graphique excelMacros simultanées sur Excel?
erreur SQL non compris sur une requête tres facile.SQL Server + Order By
[VB] Excel - Assembler plusieurs fichiers(Excel) pb VLOOKUP
Problème excel... [RESOLU]Graphiques excel
Plus de sujets relatifs à : pb references ADO Excel SQL


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR