请问要怎么把listbox里面的名字存入database？

shohoku

我用两个listbox1和2
现在我从database拿出Empname放进listbox1
现在listbox1有十个名字了
当我选着一个名时
这个名字就会跳过去listbox2
现在在listbox2有三个名字了
如果我要click save的时候
只有这三个名字的ID和Name会给出入database
要怎么写??

下面的code是我试写的
可是不懂那里错...
资料存不进去...

1. 
   
2.         Dim myCommand As New OdbcCommand
   
3.         Dim myData As New DataSet
   
4.         Dim SQL As String
   
5.         Dim myAdapter As OdbcDataAdapter
   
6.         Dim conn As OdbcConnection
   
7.         Dim acc As Data.DataRow
   
8.         Dim a As OdbcCommandBuilder
   
9. 
   
10. 
    
11.         conn = New OdbcConnection
    
12.         conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
    
13.                        "SERVER=localhost;" & _
    
14.                        "DATABASE=seas;" & _
    
15.                        "UID=root;" & _
    
16.                        "PASSWORD=;" & _
    
17.                        "OPTION=3;"
    
18. 
    
19.         conn.Open()
    
20.         For i = 0 To ListBox2.Items.Count - 1
    
21. 
    
22.             SQL = "select Empname from timetable3"
    
23.             myAdapter = New OdbcDataAdapter(SQL, conn)
    
24.             a = New OdbcCommandBuilder(myAdapter)
    
25.             myAdapter.Fill(myData, "timetable3")
    
26.             acc = myData.Tables("timetable3").NewRow
    
27.             acc("Empname") = ListBox2.GetItemText(i)
    
28. 
    
29. 
    
30.             myData.Tables("timetable3").Rows.Add(acc)
    
31.             myAdapter.Update(myData, "timetable3")
    
32. 
    
33.         Next
    
34.         conn.Close()
    
35.         MsgBox("Update Success!", MsgBoxStyle.Information)
    

复制代码

goatstudio

你 for loop 里的 code 太复杂了.
不需要那么麻烦, 把 adapter, commandbuilder 全部删除,

你只需要一个 OdbcConnection, OdbcCommand, 例子:

    Dim myConnection As New OdbcConnection(myConnectionString)
    Dim myCommand As New OdbcCommand("INSERT INTO...", myConnection)
    myCommand.Connection.Open()
    myCommand.ExecuteNonQuery()
    MyConnection.Close()

shohoku

呵呵~~~
谢谢了~
问题解决