与Access数据库建立连接
主要内容参考http://hi.baidu.com/zengxingye《在VB.net中连接Access数据库》
我建立了一个数据库名叫database1.mdb,里面有两列user、pswd
首先导入名字空间
Imports System.Data.oledb
因为接下来要使用的OleDb类都是定义在这个名字空间里的
Dim constr As String = "provider=Microsoft.Jet.Oledb.4.0;user ID =admin;password=; data source = database1.mdb"
'定义连接串
Dim accessstr As String = "select * from table1"
'从表1中读出数据
Dim mycon As New OleDbConnection(constr)
'定义连接
Dim mycom As New OleDbCommand(accessstr, mycon)
'定义一个access 命令,并用定义好的access 命令串和连接mycon做它的参数
Dim myread As OleDbDataReader
'定义阅读器
mycon.Open()
'打开连接
myread = mycom.ExecuteReader
While myread.read
Dim username As String = myread(0)
Dim password As String = myread(1)
'这里做其他处理
End While
'用循环读入数据,myread.read在有可读记录是返回 true
mycon.Close()
'连接关闭
如果数据库没有加密默认访问用户名是admin,密码为空
感谢虫二之家zengxingye的博客