zorenka
Messages postés2Date d'inscriptionvendredi 27 septembre 2002StatutMembreDernière intervention 1 octobre 2002
-
30 sept. 2002 à 12:08
zorenka
Messages postés2Date d'inscriptionvendredi 27 septembre 2002StatutMembreDernière intervention 1 octobre 2002
-
1 oct. 2002 à 15:38
j'arrive pas insert plusieurs enregistrement à la fois dans ma BD sous ACCESS. Il veut bien ligne par ligne, mais pas tout. J'ai plus que 30 option. Je coule.
Private Sub cmdValider_Click()
Dim ligne As String
Dim code As String
Dim titre As String
Dim etatcivil As String
Dim rs As New ADODB.Recordset
Dim i%
If txtSociete.Text "" Or txtNom.Text "" Or txtAdresse.Text = "" Or txtCP.Text = "" Or cmbVersion.Text = "" Then
MsgBox "Vous devez remplir des champs"
End If
If optMadame.Value Then
etatcivil = "Mme"
End If
If optMlle.Value Then
etatcivil = "Mlle"
End If
If optMonsieur.Value Then
etatcivil = "Mr"
End If
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
'rs.Open sql, cnAuto, adOpenKeyset, adLockOptimistic, adCmdText
cn.Open
Do While Not rs.EOF
If opt11.Value Then
code = fgInternet.TextMatrix(1, 0)
titre = fgInternet.TextMatrix(1, 1)
If opt12.Value Then
code = fgInternet.TextMatrix(2, 0)
titre = fgInternet.TextMatrix(2, 1)
PatriceVB
Messages postés562Date d'inscriptiondimanche 16 décembre 2001StatutModérateurDernière intervention26 décembre 2007 30 sept. 2002 à 23:20
Essaye en utilisant un objet adodb.command et non un recordset peut etre que tu auras un meilleur résultat, mais j'en suis pas sûr.
Si ça marche pas, réponds à ce message, je lirai ton code avec plus d'attention
@+