arsalansalar
دوشنبه 21 مرداد 1387, 12:47 عصر
من مي خواستم آيتمهاي يك ليست باكس كه شامل نام و نام خانوادگي است كه يه صورت زير در ليست باكس قرار مي گيرد را با كد زير به بانك اطلاعاتي بفرستم ولي همش خطا مي گيرد.
دوستان اگر لطف كنند مشكل من را بگويند ممنون مي شوم.
نحوه قرار گيري در ليست باكس:علي-محمدي
كد من:
For i As Integer = 0 To Li1.Items.Count - 1
Dim Myarr As String() = Li1.Text.Split(New Char() {"-"c})
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\jma.mdb")
Dim strSQL As String = _
"INSERT INTO tase2 (name,family)" & _
"VALUES (@name,@family)"
Dim cmd As New OleDbCommand(strSQL, con)
With cmd
.Parameters.Add(New OleDbParameter("@name", Myarr))
.Parameters.Add(New OleDbParameter("@family", Myarr))
End With
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Next
دوستان اگر لطف كنند مشكل من را بگويند ممنون مي شوم.
نحوه قرار گيري در ليست باكس:علي-محمدي
كد من:
For i As Integer = 0 To Li1.Items.Count - 1
Dim Myarr As String() = Li1.Text.Split(New Char() {"-"c})
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\jma.mdb")
Dim strSQL As String = _
"INSERT INTO tase2 (name,family)" & _
"VALUES (@name,@family)"
Dim cmd As New OleDbCommand(strSQL, con)
With cmd
.Parameters.Add(New OleDbParameter("@name", Myarr))
.Parameters.Add(New OleDbParameter("@family", Myarr))
End With
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Next