les codes ne marchent pas

Question

Salut &#224; tous
Je vais me la jouer original, j'aimerai connecter mon projet &#224; une bdd (access, txt, ou excel peu importe)
J'ai bien regard&#233; et recopi&#233; les codes propos&#233;s, dans ce site comme dans d'autres (dsl pour la trahison), mais &#231;a m&#244;rche pas.
D&#232;s la deuxi&#232;me ligne: Set con = New ADODB.Connection
j'ai le sentiment qu'il veut pas qu'on soit amis... il aime pas mon set, et ne comprend pas ce que je veux lui dire
si je supprime cette ligne, c'est la suivante qui bugue et ainsi de suite
J'ai bien coch&#233; les r&#233;f&#233;rences, mais la valeur 2.x n'existe pas, j'ai 2.0 &#224; 2.7, et si je les s&#233;lectionne toutes, il me traite de conflit, ce qui est somme toute peu appr&#233;ciable.
Alors help!!! (aidez moi, en anglais :-p )

michelxld · Answer

bonsoir


il ne faut activer qu'une seule r&#233;f&#233;rence parmi les diff&#233;rentes versions propos&#233;es dans la liste


par exemple


Microsoft ActiveX Data Object 2.7 Library 



bonne soiree
michel

cs_JMO · Answer

Bonjour,

Exemple, non test&#233;, trouv&#233; sur ce forum, utilisant ADODB.

DIM ServeurSql 
DIM BD 
DIM TABLE 
DIM PK 
DIM ValeurPK 
DIM Picture 
DIM StringSql 
  
  
ServeurSql = InputBox("Entrez le nom du Serveur Sql","Serveur Sql") 
BD = InputBox("Entrez le nom de la BD Sql","Serveur Sql") 
TABLE = InputBox("Entrez le nom de la table Sql","Serveur Sql") 
Picture = InputBox("Entrez le nom du champ ou ce trouve la photo","Serveur Sql") 
PK = InputBox("Entrez le nom du champ PK (Unique)","Serveur Sql") 
ValeurPK = InputBox("Entrez la valeur du PK (Unique)","Serveur Sql") 
  
  
  
'***********************CONSTRUCTION DE L'INSTRUTION SQL************ 
StringSql = "Select " + Picture + " FROM " + BD + ".." + TABLE + " WHERE " + PK + "=" + ValeurPK 
  
'***********************DECLARATION DES CONSTANTES****************** 
  
Const PathSauvegarde = "c:	emp.jpg" 
  
'***********************DECLARATION DES VARIABLES******************** 
DIM ADO 
DIM RS 
DIM Photo 
DIM Path 
DIM ChaineConnexion 
DIM Heure 
DIM Compteur 
  
ChaineConnexion= "Integrated Security=SSPI;Provider=SQLOLEDB;data Source=" & ServeurSql & ";Initial Catalog=" + BD + ";" 
  
'*************************DEBUT DU PROGRAMME************************* 
Compteur = 0 
Heure = Now 
  
Set ADO = CreateObject("ADODB.Connection") 
ADO.ConnectionString = ChaineConnexion 
ADO.open 
msgbox stringsql 
set rs = ADO.Execute(StringSQL) 
  
Photo = RS(picture) 
SavePictureToDisk PathSauvegarde ,Photo 
rs.movenext 
Compteur = Compteur + 1 
  
  
Ado.Close 
Set Ado = Nothing 
Set Rs = Nothing 
  
MsgBox Compteur & " enregistrements sauvegard&#233;s dans le repertoire " & PathSauvegarde & vbNewLine & _ 
      "Vous avez debut&#233; le traitement a " & Heure & vbNewLine & _ 
      "Il est pr&#233;sentement " & Now 
  
'***********************FIN PROGRAMME ********************************* 
  
  
'**************** FONCTION SAVE PICTURE TO DISK ********************** 
Function SavePictureToDisk(Path,Photo) 
  
  Const adTypeBinary = 1 
  Const adSaveCreateOverWrite = 2 
   
  'Creation de l'object Stream 
  Dim BinaryStream 
  Set BinaryStream = CreateObject("ADODB.Stream") 
   
  'Specify stream type 
  BinaryStream.Type = adTypeBinary 
   
  'Ouvrir Stream et ecrire binaire dans l'objet 
  BinaryStream.Open 
  BinaryStream.Write Photo 
   
  'Save binary data To disk 
  BinaryStream.SaveToFile Path, adSaveCreateOverWrite 
End Function 
  
----------------------
jean-marc

mcs2006 · Answer

Bonjour,

Pour VB6 :
Référence à cocher : "Microsoft ActiveX Data Objects 2.6 Library" au minimum.
Si conflit, décocher d'abord le "Microsoft ActiveX Data ...." existant.

Ensuite, dans le code :
Dim con As New ADODB.Connection
con.open TaChaineDeConnexion
...

Hermios · Answer

Yop, merci d'avoir r&#233;pondu si vite. Pour la dll, je m'en doutais un peu, mais merci de confirmer.
Pour le code, c sympa aussi, malheureusement, je n'utilise pas SQL, mais Access, txt, ou Excel.
Enfin, merci quand m&#234;me d'avoir propos&#233;!

Hermios · Answer

A signaler aussi que j'avais un utilis&#233; le code suivant :
'D&#233;claration de la fonction ShellExecute
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'Constantes d&#233;terminant le mode d'affichage de la fen&#234;tre
Private Const SW_SHOWNORMAL = 1
et 
Private Sub lance_immediat_Click()
ShellExecute Me.hwnd, vbNullString, "C:\Documents and Settings\Nicolas\Bureau\cv_Joachim_Domke__frz.doc", vbNullString, "C:\Documents and Settings\Nicolas\Bureau", SW_SHOWNORMAL
End Sub
Pour ouvrire un fichier
Ce syst&#232;me a tr&#232;s bien march&#233; au d&#233;but, maintenant, autant pisser dans un violon, il ne m'affiche m&#234;me pas de message d'erreur, il ne fait rien (le bouton marche correctement, j'ai test&#233; avec Msgbox, &#231;a marche)
Merci

cs_Jack · Answer

Salut Hermios
Que ce soit du Access ou autre, le questionnement se fait en g&#233;n&#233;ral en SQL. Il n'y a pas d'incompatibilit&#233;.

Pour ton histoire de ShellExecute, v&#233;rifie si un "Resume Next" dans une autre Sub ne masquerait pas l'erreur + VB6 menu Outils, Options, G&#233;n&#233;ral, "Erreur sur toutes les erreurs du code"

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Champion du monde de boule de cristal - 2005
Le savoir est la seule mati&#232;re qui s'accro

Les codes ne marchent pas

6 réponses

Discussions similaires