如何把VB text 保存在access-要一一对应

如何把VB text 保存在access-要一一对应

从“工程”菜单“引用” microsoft data object 2.8 LIbriry
然后写代码：
dim MyCon as new adodb.connection '定义一个数据库连接对象
dim rst as new adodb.recordset '定义一个记录集对象
mycon.connectionstring= "provider= microsoft.jet.oledb.4.0;data source=" & App.Path & "/Access1.mdb" '连接数据库 Access1.mdb *注意 Access1.mdb数据必须保存在当前工程的目录下
mycon.open '打开数据连接
SQL=“select * from 表名” '查询一个表记录
rst.Open Trim(SQL), mycon, adOpenKeyset, adLockOptimistic '打开记录集
rst.AddNew ' 添加一个新记录
' 假如 当前记录表里有有三个字段 以下操作时text内容保存到access中
rst.fields(0)=text1.text 'text1的内同保存到 第一个字段中
rst.fields(1)=text2.text
rst.fields(3)=text3.text
rst.update '更新记录！

private sub command2_click() dim cn as new adodb.connection dim rs as new adodb.recordset cn.open "driver={microsoft access driver (*.mdb)};dbq=access数据库路径" rs.open "select * from 表 where 查询条件", cn, adopenkeyset, adlockoptimistic rs.addnew rs.fields ("字段名")=text.text rs.update rs.close end sub

INSERT INTO 表名（字段1，字段2,.......）values(text1.text,text2.text......)