Bonsoir à tous,
j'ai à nouveau un problème de requête SQL, cette fois pour Updater...
Voici mon code:
en tête de Module 1:
Public vBasededonnees As New ADODB.Connection
Public vdonnées As New ADODB.Recordset
Public vsource As String
-----------------------------------------
sub mise_a_jour()
vTable = "patients"
vsource = "C:\test lis.mdb"
vBasededonnees.Open "provider=microsoft.jet.oledb.4.0;" & "persist security info=false;" & "data source=" & vsource
vSQL = "UPDATE patients SET identité=" & identite & ",Titre=" & titre & ",Nom=" & TextBox10 & ",Prénom=" & TextBox11 "WHERE Numéro=" & Label14
vdonnées.Open vSQL, vBasededonnees
End Sub
Ce code ne fonctionne pas...
J'ai fouillé sur internet mais je ne trouve pas d'explication.
Merci par avance pour votre aide
A+
Philippe
j'ai à nouveau un problème de requête SQL, cette fois pour Updater...
Voici mon code:
en tête de Module 1:
Public vBasededonnees As New ADODB.Connection
Public vdonnées As New ADODB.Recordset
Public vsource As String
-----------------------------------------
sub mise_a_jour()
vTable = "patients"
vsource = "C:\test lis.mdb"
vBasededonnees.Open "provider=microsoft.jet.oledb.4.0;" & "persist security info=false;" & "data source=" & vsource
vSQL = "UPDATE patients SET identité=" & identite & ",Titre=" & titre & ",Nom=" & TextBox10 & ",Prénom=" & TextBox11 "WHERE Numéro=" & Label14
vdonnées.Open vSQL, vBasededonnees
End Sub
Ce code ne fonctionne pas...
J'ai fouillé sur internet mais je ne trouve pas d'explication.
Merci par avance pour votre aide
A+
Philippe