vbnet连接access数据库连接

A. vb.net连接数据库

1、 用The sql Server .NET Data Provider连接数据库

The SQL Server .NET Data Provider是利用SqlConnection类来连接SQL Server7.0或更高版本的数据库，

SqlConnection类位于名称空间System.Data.SqlClient下。

连接代码：

Dim sqlConnection1 As SqlClient.SqlConnection

Dim strConnect As String=”data source=服务器名;initial catalog=数据库名;user id=sa;password=;”

sqlConnection1=New System.Data.SqlClient.SqlConnection(strConnect)

sqlConnection1.open ‘打开数据库

sqlConnection1.close ‘关闭连接，释放资源

2、 用The OLE DB .NET Data Provider连接数据库

上面已经说过，利用The OLE DB .NET Data Provider可以访问Access、Oracle和SQL Server等种数据

库，那么，它是怎样访问这些数据库的呢？The OLE DB .NET Data Provider是通过位于名称空间Sy

stem.Data.OleDb类库下的OleDbConnection类来连接这三种不同类型的数据库的。下面举例说明:

1)连接SQL Server数据库

Dim oleDbConnection1 As OleDb.OleDbConnection

Dim strConnect As Sting=”Provider=SQLOLEDB;Persist Security Info=False;Data Source=服务器名;Initial Catalog=数据库名;User ID=sa;Password=;”

oleDbConnection1=New System.Data.OleDb.OleDbConnection(strConnect)

2)连接Access数据库

假设要连接的Access数据库名为“Example.mdb”，存放在d:\Data\目录下。

Dim oleDbConnection1 As OleDb.OleDbConnection

Dim strConnect As Sting=”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Data\ Example.mdb”

oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)

3)连接Oracle数据库

Dim oleDbConnection1 As OleDb.OleDbConnection

Dim strConnect As Sting=”Provider=MSDAORA;Data Source=服务器名;User ID=用户ID;Password=密码;”

oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)

3、 用The ODBC .NET Data Provider连接数据库

The ODBC .NET Data Provider连接数据库是通过OdbcConnection类来实现的，这个类位于名称空间

Microsoft.Data.Odbc下，而名称空间Microsoft.Data.Odbc是封装在Microsoft.Data.Odbc.dll文件下的。

由于篇幅有限，这里就只介绍连接Sql Server和Oracle数据库的方法，其他数据库的连接方法基本类

似，我就不再多讲了。

1)连接Sql Server数据库

Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection

Dim strConnect As Sting=”Driver={SQL Server};Server=服务器名;Uid=sa;pwd=;Database= 数据库名;”

odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)

2)连接Oracle数据库

Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection

Dim strConnect As Sting=”Driver={Microsoft ODBC for Oracle};Server=服务器名;Uid=sa;pwd=;”

odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)

四、总结

通过本文的介绍，读者基本掌握了在Visual Basic.NET中用ADO.NET和ODBC.NET连接各种数据库的方法

。以上三种驱动针对不同的数据库，它们的性能方面也有很大的不同：The SQL Server .NET Data Provider

的效率最高；The OLE DB .NET Data Provider的效率比较底；The ODBC .NET Data Provider的效率最慢。

具体连接哪一种数据库选用哪一种数据驱动要从工作效率方面来考虑。
以上回答你满意么？

B. VB.NET连接access 数据库问题

'1、 新建模块
Mole Mole1

Public ADOConn As New ADODB.Connection
Public Adors As New ADODB.Recordset

End Mole

'2、 引用
'引用adodb 7.0.3300.0

'3、 模块函数
连接函数：
Public Function LinkDatabase(ByVal AppPath As String) As String
LinkDatabase = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AppPath & "\Database.mdb;Persist Security Info=False;Jet OLEDB:Database Password=111111"
End Function

'4、 OK_Click确定登录事件
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
'测试用户名及密码是否有效
ADOConn.ConnectionString = LinkDatabase(System.Environment.CurrentDirectory) '参数为当前目录位置
ADOConn.CommandTimeout = 10
ADOConn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
ADOConn.Open()
Adors.Open("select * from Tables where 姓名='" & Trim(UsernameTextBox.Text) & "' and 密码='" & PasswordTextBox.Text & "'", ADOConn)
If Adors.RecordCount > 0 Then
ADOConn.Close()
MDIParent1.Show()
Me.Hide()
Else
ADOConn.Close()
MsgBox("错误:" & vbCrlf & vbCrlf & "无效用户名或密码,禁止用户登录.", MsgBoxStyle.Critical, "Error")
PasswordTextBox.Text = ""
PasswordTextBox.Focus()
End If
End Sub

'当然Adors.Open("……",ADOConn)表示查询，结果是不允许修改的，要修改必需加参数：Adors.Open("……", ADOConn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)

C. VB连接Access数据库具体步骤，越详细越好

有多种连接方式，可以用数据控件连接，也可以用组件连接。下面是用ADO组件来连接的例子（假定ACCESS数据库文件和程序是放在同一个文件夹的）：

PrivateSubForm_Click()'点击窗体运行
DimconnAsObject,rsAsObject
Setconn=CreateObject("Adodb.Connection")
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"a.mdb"
Setrs=CreateObject("Adodb.Recordset")
rs.Open"select*fromb",conn,1,1
DoUntilrs.EOF
'这里是循环列出表b中的每条记录，熟悉的人就知道怎么做了
rs.MoveNext
Loop
rs.Close
Setrs=Nothing
conn.Close
Setconn=Nothing
EndSub

D. vb.net怎样连接access数据库

请楼主认真学习基础知识吧，不要以为这个几句话就能讲清楚，自己去找教程。
提示 VB.NET 连接Access数据库要用到ADO.NET
参考下面几个命名空间
System.Data
System.Data.OleDb

E. 谁能确切的告诉我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() 这个方法

F. VB.NET连接ACCESS数据库，读取查询并显示

给你写个例子，不明白，再问！！
'引入OLEDB命令空间
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'定义一个OLEDB连接并实例化它
Dim con As New OleDbConnection
'定义一个OLEDB命令并实例化他
Dim cmd As New OleDbCommand
'定义一个OLEDBReader方法来读取数据库
Dim dr As OleDbDataReader
'初始化con的连接属性，使用OLEDB模式，数据源为：你指定下路径，我的是在D盘
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\dataSample.mdb"
'打开OLEDB数据连接
con.Open()
'初始化OLEDB命令的连接属性为con,这个需要你理解下
cmd.Connection = con
'初始化OLEDB命令的语句 就是查询 什么字段从什么表 条件是ID等于你在t1中输入的内容
cmd.CommandText = "select keyss from table1 where ID=" & t1.Text & ""
'执行OLEDB命令以ExecuteReader()方式，并返回一个OLEDBReader，赋值给dr
dr = cmd.ExecuteReader()
'判断下dr中是否有数据。如果有就把第一个值赋值给t2的值
If dr.Read() Then
t2.Text = dr(0)
End If
'完成后关闭dr.con等释放资源
dr.Close()
con.Close()
End Sub
End Class

G. vb.net连接ACCESS数据库两表连接查询（查询语句问题）

我觉得你这个是嵌套查询，问题是这个Table_Name是不是Store_List表里面的字段？SQL查询语句一般只能查到表里的字段，要查到表名的话可能要去找下资料了。

H. 关于vb.net连接Access数据库的问题，老出错！请各位高手帮忙！

"Select * from User where Username=" & "'UserName.Text'" & ""
改成
"Select * from User where Username='" & UserName.Text & "'" 试试
UserName.Text是一个变量，本来就是字符串，外面不能用双引号，否则变成常量了。单引号也要分开到两边，不能跟UserName.Text放一起。
下面那句也要改成"Select Password from User where Username='" & UserName.Text & "'"

I. VB.NET连接access数据库文件的问题！（请根据详细描述回答！）

工具-连接到数据库 是根据数据库的类型自动创建连接的 Provider=Microsoft.Jet.OLEDB.4.0是access数据库的专有连接

oledbdataAdapter的新建连接可以适用于多种数据库所以Provider不一样,默认是连接SQL的,SQLNCLI.1是连接SQL数据库的Provider,因为连接数据库的连接字符串是错误的所以连接失败

J. vb.net 如何连接网络access

ACCSOURCE = "\\sever1\test.mdb" 'access的网路路经
Set conn = CreateObject("ADODB.Connection")
Set myrs = CreateObject("ADODB.Recordset")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123;Mode=;Data Source=" & ACCSOURCE '123为密码，access有密码时需要输入正确密码