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有密碼時需要輸入正確密碼