作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: 表单上listbox里面的资料可以不经按钮直接储存 …
时间Wed May 9 23:26:38 2007
引用项目 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