VB.Net连接Access数据库

VB.Net连接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() 这个方法

恩 我以前有哦 恩 暂时没找到恩 你去csdn下载可以下载到很多例子就是关于vb.net的 有需要的话可以继续提问问我

使用向导设置数据库连接比较固定,不如使用代码连接灵活

imports system.data.oledb /*引用命名空间 相对于access数据库,如果你使用SQL Server数据库那么命名空间则用system.data.sqlclient

dim mycon as new system.data.oledb.oledbconnection /*定义连接*/

dim mycmd as new system.data.oledb.oledbcommand /*定义命令对象*/

dim myada as new system.data.oledb.oledbdataAdapter /*定义适配器*/

dim myset as new dataset /*建立数据集*/

/*适配器和数据集是缓解数据库访问压力的一种方法*/

mycon.connectionstring="provider=Microsoft.Jet.OLEDB.4.0;data source=数据库地址" /*定义连接字符串*/

mycom.open() /*打开数据库连接*/

dim sql as string

sql="select * from 表名 〔where子句或其他条件语句]"

mycmd.commandtext=sql

mycmd.connetion=mycmd

mycmd.executeeNonquery()

myada=new system.data.oledb.oledbdataadapter(mycmd)/*设置适配器*/

myada.fill(myset,表名) /*将SQL语句执行后的结果读入数据集对象myset中

以下就是条件判断语句了,基本上代码连接都是做为模块或类来编写,这有力于代码重复使用

mycon.close()

用户验证登录基本上就是判断条件的使用,还有就是合理的利用数据库的资源

OleDbDataAdapter

sda

=

new

OleDbDataAdapter(“select

*

from

xx表

where

xx字段=true”,

conn)

'conn为连接对象

DataTable

dt

=

new

DataTable()

sda.Fill(dt)

SqlDataAdapter

sda

=

new

SqlDataAdapter(“select

*

from

xx表

where

xx字段='真'”,

conn)

'conn为连接对象

DataTable

dt

=

new

DataTable()

sda.Fill(dt)

结果就取到了表中