Question

vb用代码连接数据库(access)和添加删除?

Answer 1

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