Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\data.mdb"
Dim Conn As New OleDbConnection(ConStr)
Dim cmd As New OleDb.OleDbCommand
Conn.Open()
cmd.CommandText = "INSERT INTO Table1(nom,prenom,age, versement) VALUES (?,?,?,?);"
For i = 0 To ComboBox1.Items.Count
cmd.Parameters.Add("?", OleDbType.BSTR).Value = TextBox1.Text
cmd.Parameters.Add("?", OleDbType.BSTR).Value = TextBox2.Text
cmd.Parameters.Add("?", OleDbType.BSTR).Value = iTextBox3.Text
cmd.Parameters.Add("?", OleDbType.BSTR).Value = ComboBox1.Items.ToString(i)
cmd.ExecuteNonQuery()
Next
Conn.Close()
Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\data.mdb"
Dim Conn As New OleDbConnection(ConStr)
Dim cmd As New OleDb.OleDbCommand
Conn.Open()
cmd.CommandText = "INSERT INTO Table1(nom,prenom,age, versement) VALUES (?,?,?,?);"
For i = 0 To ComboBox1.Items.Count
cmd.Parameters.Add("?", OleDbType.BSTR).Value = TextBox1.Text
cmd.Parameters.Add("?", OleDbType.BSTR).Value = TextBox2.Text
cmd.Parameters.Add("?", OleDbType.BSTR).Value = iTextBox3.Text
cmd.Parameters.Add("?", OleDbType.BSTR).Value = ComboBox1.Items.ToString(i)
cmd.Connection = Conn
cmd.ExecuteNonQuery()
Next
Conn.Close()
dsNewRow.Item("versement") = dsNewRow.Item("versement") & "|" & CStr(ComboBox1.Items(i))
ComboBox1.DisplayMember = "versement"
Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\data.mdb"
Dim Conn As New OleDbConnection(ConStr)
Dim cmd As New OleDb.OleDbCommand
try
Conn.Open()
cmd.Connection = Conn
cmd.CommandText = "INSERT INTO Table1(nom,prenom,age, versement) VALUES (?,?,?,?);"
For i = 0 To ComboBox1.Items.Count
cmd.Parameters.Add("?", OleDbType.BSTR).Value = TextBox1.Text
cmd.Parameters.Add("?", OleDbType.BSTR).Value = TextBox2.Text
cmd.Parameters.Add("?", OleDbType.BSTR).Value = iTextBox3.Text
cmd.Parameters.Add("?", OleDbType.BSTR).Value = ComboBox1.Items.ToString(i)
cmd.ExecuteNonQuery()
Next
Conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionFor i = 0 To ComboBox1.Items.Count
For i = 0 To ComboBox1.Items.Count -1
For i = 0 To ComboBox1.Items.Count -1
cmd.Parameters.Add("?", OleDbType.BSTR).Value = ComboBox1.Items.ToString(i)