Question

请教VB.NET通过调用模块建立与access数据库连接的方法

网上这方面的内容五花八门看花了眼，特求各位高手指教，在VB.NET中，如何用oledb方法建立连接数据库的模块，并说明调用方法。谢谢！
是要建立一个连接、增删、查询access数据库的通用模块。

Answer 1

oledb的使用网上的确很多.
如果只是查询. 写入. 删除,我们常用的就是
OleDbConnection '用于写数据库的连接
OleDbCommand '用于数据的操作 接收SQL语句 并执行
OleDbDataReader '查询了,我们就用这个类来读取查询的对象
1).OleDbConnection
dim conn as new OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;Data Source =数据库的路径")'连接字符串一般就这样
查询前在打开
conn.open
2).OleDbCommand
dim cmd as new OleDbCommand ("SQL语句",conn)'SQL语句决定了你是查询写入还是更新删除
'''
如果是查询,你还要用到OleDbDataReader
这个是不用新建的不能用New
dim rd as OleDbDataReader=cmd.ExecuteReader'cmd.ExecuteReader 方法就是读取查询的内容
cmd.ExecuteNonQuery用于执行操作 返回变动的条数 ,一般用于 添加 删除 更新 等其它操作

其实就这些了,就是要学点SQL语句就行了.
标准执行过程就是
Dim conn As New OleDbConnection("连接字符串")
conn.Open()
Dim cmd As New OleDbCommand("SQL语句", conn)
'如果是写入 更新 删除 则
cmd.ExecuteNonQuery()
' 否则
Dim rd As OleDbDataReader = cmd.ExecuteReader

If rd.Read Then
Dim d As Object = rd.Item("字段名")
End If
' 结束如果
rd.Close()
cmd.Dispose()
conn.Close()

上面要有 Imports System.Data.OleDb

Answer 2

其实VB.NET的数据库操作OLEDB比ADO麻烦的很多，如果你会ADO的话可以添加ADO控件然后跟VB一样操作ACCESS也很方便。用SQL和不用都可以操作。SQL先进点吧就这么理解呵呵

Answer 3

在工具栏点右单击，选择”选择项“，然后勾选择adodc，用adodc连接数据就行了。
可也引在项目里引用ADO，然后定义模块。

Answer 4

世界上根本就没有万能的通用东西存在。

Answer 5

以下是完整模块
Imports System.Data
Imports System.IO
Imports System.Data.OleDb
Module Module1
Public cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Car_Repair.mdb") '定义连接
Public DataBaseRST As Integer '用来返回数据库执行结果
Public Function DataModify(ByVal str As String) As Boolean '进行数据库修改操作
Dim cmdinsert As New OleDbCommand
Try
cmdinsert.CommandText = str
cmdinsert.Connection = cn
If cn.State = ConnectionState.Closed Then cn.Open()
DataBaseRST = cmdinsert.ExecuteNonQuery() '用来返回执行的结果
cn.Close()
Return True
Catch ex As Exception
MessageBox.Show(Err.Description, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
End Function
Public Function Search(ByVal str As String, ByVal DGV As DataGridView) As Boolean '查询 str---查询命令，DGV---DataGridView，用来显示数据的控件
Dim tb As New DataTable
Try
Dim ap As New OleDb.OleDbDataAdapter(str, cn)
ap.Fill(tb)
DGV.DataSource = tb
Return True
Catch ex As Exception
MessageBox.Show(Err.Description, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
End Function
End Module

'以下是调用方法
DataModify(" insert into 入库 values ('1','2')")'-------这里是数据库更新操作
Search("select * from 入库",DataGridView1)'-----------这里是数据表查询操作