DraaFil
Messages postés264Date d'inscriptionmercredi 16 avril 2003StatutMembreDernière intervention23 mars 2012
-
6 mars 2007 à 02:46
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
6 mars 2007 à 08:36
Bonjour a tous,
voici mon code
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DataWar.mdb;Persist Security Info=False"
cn.Open
Set rs = cn.Execute("select * from tblLogin", dbOpenDynaset)
Private Sub imgValider_Click()
rs.MoveFirst
Do While Not rs.EOF
If (txtUser.Text = rs!User) Then
MsgBox "Le nom existe!"
Exit Sub
End If
rs.MoveNext
Loop
rs.AddNew
rs.Fields("User") = txtUser.Text
rs.Fields("Password") = txtPassword.Text
rs.Update
1- Mon addnew me sort une erreur sur la ligne du addnew et de plus si il n'y a pas de champs dans la table, sa plante.
2- mon creaate table fait gele vb, estce qu,il y a une autre metho pour faire un create table avec un ado (sinon quel est mon erreur dnas mon create table)