VB.NET学习笔记（2）

与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的博客