Executer une requête SQL en VB6

Bonjour, j'aimerai savoir (si c'est possible) comment envoyer une requête sql en vb6
(j'ai chercher dans la faq et dans les sources miais je ne comprend pas)

Merci

Bonjour,

Bien sur qu'il est possible d'envoyer une requête SQL. Ajoute la librairie ADO.

Ensuite utilise un recordset.

Exemple simple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub RechercherId(ByRef combo As VB.ComboBox, ByVal champ As String, ByVal champ2 As String, ByVal table As String, ByRef Id As Integer)
Dim rstrech As New ADODB.Recordset
 
rstrech.Open "select " & champ2 & " as Id from " & table & " where " & champ & " = '" & combo.text & "'", SqlSrvDatabase, adOpenKeyset, adLockOptimistic
If rstrech.EOF = False Then
    Id = rstrech!Id
Else
    Id = 1
End If
rstrech.Close: Set rstrech = Nothing
End Sub

Merci sa va beaucoup me servir :king: