天猫店铺运营流程图:vb用代码连接数据库(access)和添加删除?

来源:百度文库 编辑:神马品牌网 时间:2024/04/28 18:16:04

Set Coon = CreateObject("ADODB.Connection")
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBMDB.mdb;"'DBMDB.mdb为数据库文件名字,必须放在工程文件同目录下

Coon.Open Connstr
Set rs = CreateObject("ADODB.recordset")
Sql = "select * from 表名"
rs.Open Sql, Coon, 1, 3
'下面为添加数据(新建纪录)
rs.addnew
rs("字段名")=1
rs("字段名")=1
rs("字段名")=1
…………
rs.update
'下面为删除数据
rs.delete

'下面为关闭连接
rs.close
set rs=nothing