[VB6] MySQL Comment récupérer les données ?
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:
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:
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:
1
2
3
| request = "Select Mes_Temp_Ch1 from " + Nom_Base_Courante + " Where Mes_Idx = 1"
conn.Execute request |
Quelqu'un peux m'aider ? :wink:
