bonjour

voila je realise un programme qui recoit des informations depuis un automate que je stocke dans une base SQL.

Je vous marque tout mon code car ce que j'ai fais ne correspond a rien que j'ai pus lire sur internet, j'ai l'impression d'avoir fait de la bidouille.


Procedure de connection

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub connection_bd() 'connection a la table de la base de données
 
    Set conn = New ADODB.Connection
    conn.CursorLocation = adUseClient 'SERVER-SIDE NOT RECCOMENDED
    conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
       & "SERVER=127.0.0.1;" _
       & "DATABASE=Systeme_de_mesure;" _
       & "UID=root;" _
       & "PWD=pass;" _
       & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 163841 'SET ALL PARAMETERS
    conn.Open 'THESE OPTION VALUES ARE BEST FOR VB
 
End Sub

Ecriture dans la base des infos reçus.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Public Sub ecriture_bd_Mes() 'enregistrement dans la table Mesure des informations
   conn.Execute "INSERT INTO " + Nom_Base_Courante + "(Mes_Idx,Num_Machine,Mes_Temp_Ch1,Mes_Temp_Ch2,Mes_Time,Mes_Date) VALUES('','" + Num_Machine + "','" + Str(Temp_Ch1 / 10) + "','" + Str(Temp_Ch2 / 10) + "','" + Heure + "','" + Jour + "')", , adExecuteNoRecords
End Sub

Tout ca marche je veux juste un avis pour savoir si c'est propre et convenable.


Par contre j'aimerai savoir comment récupérer les info d'une colonne ?

je sais pas comment executé la commande sql ou du moin recupérer ce qu'elle retourne

j'ai essayé ca mais ca me donne rien, ou du moins j'arrive pas a recupérer la valeur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
request = "Select Mes_Temp_Ch1  from " + Nom_Base_Courante + " Where Mes_Idx = 1"
 
conn.Execute request

Quelqu'un peux m'aider ?