Re: 表單上listbox裡面的資料可以不經按鈕直接儲存 …
引用項目 Microsoft ActiveX Data Object
'宣告變數
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cnstr as String
'連接字串
cnstr = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;"
cnstr = cnstr & "Data Source=d:\mydb\db1.mdb;"
'開啟資料庫連線
cn.Open cnstr
'開啟資料表
rs.Open "select * from table1", cn, 1, 3, 1
'新增資料
rs.AddNew
rs("欄位1") = "......"
rs("欄位2") = "......"
rs.Update
基本的寫法，亮青色的部份，自己做修改
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.194.224.174