Discussion :

[thetom]

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

[seroa]

Bonjour,

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

Ensuite utilise un recordset.

Exemple simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[thetom]

Merci sa va beaucoup me servir