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 ?
Partager