VS2015 VB连接ACCESS数据库

下面的代码仅供参考：

imports System.data.oledb /*引用命名空间*/

dim cnstr = "provider=microsoft.jet.oledb.4.0,data source=Access数据库文件位置" /*定义连接字符串*/

dim cn as oledbconnection = new oledbconnection(cnstr) /*定义连接*/

cn.open() /*打开连接*/

sqlstr="select... from... 或其他sql"

dim cmd as sqlcommand=new sqlcommand()

cmd.commandtext=sqlstr

cmd.connection=cn

/*以上是建立执行语句*/

cmd.executenonquery() 不返回结果

cmd.executescalar() 返回单个结果

cmd.executereader() 返回结果集

/*以上是执行sql语句的方法*/

cn.close() /*关闭连接*/

你要做用户验证的话，先根据用户名查询对应的密码，再判断用户输入的密码和查询结果是不是相同就可以了

用cmd.executescalar() 这个方法

连接access数据库使用oledb来连接，sql用来连接sql数据库，用oledb连接数据库的连接字符串为：

有密码：

string connectionString =@"Provider=Microsoft.Jet.OLEDB.4.0Data Source=你存放access数据库文件的地址，即 文件路径\文件名.mdb "Persist Security Info=TrueJet OLEDB:Database Password=1234"

没有密码：

string connectionString =@"Provider=Microsoft.Jet.OLEDB.4.0Data Source=你存放access数据库文件的地址，即 文件路径\文件名.mdb "Persist Security Info=True"

其他oledb和sql连接数据库所用的方法都是一样的，只需要将Sql改为oleDb即可。

---