Re: 表單上listbox裡面的資料可以不經按鈕直接儲存 …

[fumizuki (矇面加菲獅)]

引用項目 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