請問各位前輩…如何才能將點選到的item存到資料庫中
以下是程式碼
謝謝各位…
Private Sub Form_Load()
Dim mSQL As String
Dim i As Integer
Dim count As Integer
Adodc1.ConnectionString = "DSN=wlan;DBQ=\\1f-server\database\wlanmac.mdb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"
mSQL = "select * from control"
Adodc1.RecordSource = mSQL
Adodc1.Refresh
While Not Adodc1.Recordset.EOF
Combo1.AddItem Adodc1.Recordset("ccode") & vbTab &  Adodc1.Recordset("description")
 Adodc1.Recordset.MoveNext
Wend
End Sub
Private Sub cmdOk_Click()
......
......
......
rs("ccode") = Combo1.DataField = "ccode"(是不是這樣啊!)
End Sub
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(0) 人氣()