VB.NET通过调用模块怎么建立access数据库?

oledb的使用网上的确很多.\x0d\x0a如果只是查询. 写入. 删除,我们常用的就是\x0d\x0aOleDbConnection '用于写数据库的连接\x0d\x0aOleDbCommand '用于数据的 *** 作 接收SQL语句 并执行\x0d\x0aOleDbDataReader '查询了,我们就用这个类来读取查询的对象\x0d\x0a1).OleDbConnection \x0d\x0a dim conn as new OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0Data Source =数据库的路径")'连接字符串一般就这样 \x0d\x0a 查询前在打开 \x0d\x0a conn.open\x0d\x0a 2).OleDbCommand \x0d\x0a dim cmd as new OleDbCommand ("SQL语句",conn)'SQL语句决定了你是查询写入还是更新删除\x0d\x0a '''\x0d\x0a如果是查询,你还要用到OleDbDataReader \x0d\x0a 这个是不用新建的不能用New \x0d\x0adim rd as OleDbDataReader=cmd.ExecuteReader'cmd.ExecuteReader 方法就是读取查询的内容\x0d\x0acmd.ExecuteNonQuery用于执行 *** 作 返回变动的条数 ,一般用于 添加 删除 更新 等其它 *** 作\x0d\x0a \x0d\x0a其实就这些了,就是要学点SQL语句就行了.\x0d\x0a标准执行过程就是\x0d\x0aDim conn As New OleDbConnection("连接字符串")\x0d\x0aconn.Open()\x0d\x0aDim cmd As New OleDbCommand("SQL语句", conn)\x0d\x0a'如果是写入 更新 删除 则\x0d\x0acmd.ExecuteNonQuery()\x0d\x0a 否则\x0d\x0aDim rd As OleDbDataReader = cmd.ExecuteReader\x0d\x0a\x0d\x0aIf rd.Read Then\x0d\x0aDim d As Object = rd.Item("字段名")\x0d\x0aEnd If\x0d\x0a结束如果\x0d\x0ard.Close()\x0d\x0acmd.Dispose()\x0d\x0aconn.Close()\x0d\x0a \x0d\x0a上面要有 Imports System.Data.OleDb

两种办法，一种是 用SQL，另一种是ADO

1、用SQL添加数据：

insert into 表名（字段1，字段2，字段3）

values（值01，值02，值03）

例如：

docmd.runsql"insert into EmpTable(Name,age,Duty,Salary) values('王明',35,'外贸总监',12500)"

2、用ADO的办法：

ADO比较复杂，给你一个完整的例子吧：

Dim strSqlfitjc As String

strSqlfitjc = "select * from *表"

Set RSfitjc = New ADODB.Recordset ‘定义一个ADO连接，连进数据库

RSfitjc.Open strSqlfitjc, cn, adOpenKeyset, adLockOptimistic ’打开连接

RSfitjc.addnew'添加一个纪录

RSfitjc.Fields("配件编号") = “style” ‘给每个字段赋值

.Update’储存赋值的新纪录

.Close 关闭连接

End With

---