满分270 求教 VB 使用ADODB 操作 ACCESS 之二

来源：百度知道 编辑：UC知道 时间：2024/07/05 15:30:55
问题在这里
http://zhidao.baidu.com/question/95926743.html
刚才发错位置了

现在有一个 access 的表 字段是 四个 字符 类型

在 VB 中如何读取表的结构?
如何读取每一条记录?
如何向表里插入一条记录?
如何删除一条记录?

请高手指点, 谢谢!!!

求详细代码?
谢谢 Null_bd

再问一下
变量 strSql 类型是什么? 字符串型吗?

工程需要引用OLEDB ACTIVEX及ADO EXT类型库
==================================
dim objc as ADODB.CONNNECTION
dim rs as ADODB.RECORDSET
Dim objTabs As ADOX.Tables '访问数据库表结构
Dim objCat As ADOX.Catalog

set objc =new ADODB.CONNNECTION
set rs = new ADODB.RECORDSET
objc.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=你的ACCESS数据库"
strSql="Select * From 表名 where 查询条件"

rs.open strSql,objc,1,1
while not rs.eof
data1=rs("字段名1")
data2=rs("字段名2")
.
.
rs.movenext
wend
rs.close
set rs=nothing
objc.close
set objc=nothing
==========================================
用于填加新数据的语句：
strSql="INSERT INTO 表名(字段1,字段2,字段3.....) values(数据1,数据2,数据3....)"
objc.Execute strSql

用于更新数据的语句
strSql = "UPDATE 表名 SET 字段1=数据1,字段2,=数据2...... WHERE 更新条件"
objc.Execute strSql

用于修改