vb.net 使用模塊連接數(shù)據(jù)庫(kù)

你說(shuō)這么一大篇全是業(yè)務(wù)邏輯，沒(méi)說(shuō)明你遇到的技術(shù)性問(wèn)題在哪

為藤縣等地區(qū)用戶提供了全套網(wǎng)頁(yè)設(shè)計(jì)制作服務(wù)，及藤縣網(wǎng)站建設(shè)行業(yè)解決方案。主營(yíng)業(yè)務(wù)為成都做網(wǎng)站、網(wǎng)站制作、藤縣網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠(chéng)的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會(huì)得到認(rèn)可，從而選擇與我們長(zhǎng)期合作。這樣，我們也可以走得更遠(yuǎn)！

.net自帶的config文件來(lái)配置連接字符串，比ini好N倍，如果你非要用ini那么自己解決問(wèn)題

檢測(cè)是否能連接用Connection.Open加try catch就可以

vb.net連接數(shù)據(jù)庫(kù)

1、 用The SQL Server .NET Data Provider連接數(shù)據(jù)庫(kù)

The SQL Server .NET Data Provider是利用SqlConnection類來(lái)連接SQL Server7.0或更高版本的數(shù)據(jù)庫(kù)，

SqlConnection類位于名稱空間System.Data.SqlClient下。

連接代碼：

Dim sqlConnection1 As SqlClient.SqlConnection

Dim strConnect As String=”data source=服務(wù)器名;initial catalog=數(shù)據(jù)庫(kù)名;user id=sa;password=;”

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

sqlConnection1.open ‘打開(kāi)數(shù)據(jù)庫(kù)

sqlConnection1.close ‘關(guān)閉連接，釋放資源

2、 用The OLE DB .NET Data Provider連接數(shù)據(jù)庫(kù)

上面已經(jīng)說(shuō)過(guò)，利用The OLE DB .NET Data Provider可以訪問(wèn)Access、Oracle和SQL Server等種數(shù)據(jù)

庫(kù)，那么，它是怎樣訪問(wèn)這些數(shù)據(jù)庫(kù)的呢？The OLE DB .NET Data Provider是通過(guò)位于名稱空間Sy

stem.Data.OleDb類庫(kù)下的OleDbConnection類來(lái)連接這三種不同類型的數(shù)據(jù)庫(kù)的。下面舉例說(shuō)明:

1)連接SQL Server數(shù)據(jù)庫(kù)

Dim oleDbConnection1 As OleDb.OleDbConnection

Dim strConnect As Sting=”P(pán)rovider=SQLOLEDB;Persist Security Info=False;Data Source=服務(wù)器名;Initial Catalog=數(shù)據(jù)庫(kù)名;User ID=sa;Password=;”

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

2)連接Access數(shù)據(jù)庫(kù)

假設(shè)要連接的Access數(shù)據(jù)庫(kù)名為“Example.mdb”，存放在d:\Data\目錄下。

Dim oleDbConnection1 As OleDb.OleDbConnection

Dim strConnect As Sting=”P(pán)rovider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Data\ Example.mdb”

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

3)連接Oracle數(shù)據(jù)庫(kù)

Dim oleDbConnection1 As OleDb.OleDbConnection

Dim strConnect As Sting=”P(pán)rovider=MSDAORA;Data Source=服務(wù)器名;User ID=用戶ID;Password=密碼;”

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

3、 用The ODBC .NET Data Provider連接數(shù)據(jù)庫(kù)

The ODBC .NET Data Provider連接數(shù)據(jù)庫(kù)是通過(guò)OdbcConnection類來(lái)實(shí)現(xiàn)的，這個(gè)類位于名稱空間

Microsoft.Data.Odbc下，而名稱空間Microsoft.Data.Odbc是封裝在Microsoft.Data.Odbc.dll文件下的。

由于篇幅有限，這里就只介紹連接Sql Server和Oracle數(shù)據(jù)庫(kù)的方法，其他數(shù)據(jù)庫(kù)的連接方法基本類

似，我就不再多講了。

1)連接Sql Server數(shù)據(jù)庫(kù)

Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection

Dim strConnect As Sting=”Driver={SQL Server};Server=服務(wù)器名;Uid=sa;pwd=;Database= 數(shù)據(jù)庫(kù)名;”

odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)

2)連接Oracle數(shù)據(jù)庫(kù)

Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection

Dim strConnect As Sting=”Driver={Microsoft ODBC for Oracle};Server=服務(wù)器名;Uid=sa;pwd=;”

odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)

四、總結(jié)

通過(guò)本文的介紹，讀者基本掌握了在Visual Basic.NET中用ADO.NET和ODBC.NET連接各種數(shù)據(jù)庫(kù)的方法

。以上三種驅(qū)動(dòng)針對(duì)不同的數(shù)據(jù)庫(kù)，它們的性能方面也有很大的不同：The SQL Server .NET Data Provider

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

具體連接哪一種數(shù)據(jù)庫(kù)選用哪一種數(shù)據(jù)驅(qū)動(dòng)要從工作效率方面來(lái)考慮。

以上回答你滿意么？

vb.net的數(shù)據(jù)庫(kù)怎么連接啊?

Dim

sqlConnection1

As

SqlClient.SqlConnection

　Dim

strConnect

As

String=”data

source=服務(wù)器名;initial

catalog=數(shù)據(jù)庫(kù)名;user

id=sa;password=;”

sqlConnection1=New

System.Data.SqlClient.SqlConnection(strConnect)

　sqlConnection1.open

‘打開(kāi)數(shù)據(jù)庫(kù)

sqlConnection1.close

‘關(guān)閉連接，釋放資源

1)連接Sql

Server數(shù)據(jù)庫(kù)

Dim

odbcDbConnetion1

As

Microsoft.Data.OdbcConnection

　Dim

strConnect

As

Sting=”Driver={SQL

Server};Server=服務(wù)器名;Uid=sa;pwd=;Database=

數(shù)據(jù)庫(kù)名;”

　odbcDbConnetion1=New

Microsoft.Data.OdbcConnection(strConnect)

vb.net鏈接數(shù)據(jù)庫(kù)怎么出現(xiàn)鏈接不上請(qǐng)大神指點(diǎn)？

1、開(kāi)始--》所有程序--》Microsoft Visual Studio 2008 R2--》配置工具--》SQL server配置管理器

2、然后打開(kāi)配置管理器，查看圖中的服務(wù)是否開(kāi)啟了。如果沒(méi)有開(kāi)啟，就把相應(yīng)的服務(wù)開(kāi)啟。

3、進(jìn)行連接，此時(shí)已經(jīng)已經(jīng)不再報(bào)錯(cuò)了。

注意：第一步中的是sql server配置管理器而不是reporting service 配置管理器。

vb.net的數(shù)據(jù)庫(kù)連接

1·綁定數(shù)據(jù)源來(lái)進(jìn)行連接

2.用代碼連接

先到數(shù)據(jù)庫(kù)建立一個(gè)數(shù)據(jù)庫(kù)和相應(yīng)的表

連接數(shù)據(jù)庫(kù)的代碼：

Dim str As String = "Data Source=服務(wù)器名;Initial Catalog=數(shù)據(jù)庫(kù)名;Persist Security Info=True;User ID=;Password="

dim conn As SqlClient.SqlConnection

try

conn = New SqlClient.SqlConnection

conn.ConnectionString = str

conn.Open()

Return True

Catch ex As Exception

MsgBox(ex.ToString)

Return False

End Try

登錄代碼：Dim str As String = "Data Source=服務(wù)器名;Initial Catalog=數(shù)據(jù)庫(kù)名;Persist Security Info=True;User ID=;Password="

dim conn As SqlClient.SqlConnection

conn = New SqlClient.SqlConnection

conn.ConnectionString = str

conn.Open()

sqlstr = "Select * From Amd Where AmdName='" TextBox1.Text "' And AmdPwd = '" TextBox2.Text "'"

Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn)

Dim dr As SqlClient.SqlDataReader

dr = sqlcmd.ExecuteReader

If dr.Read = True Then '判斷一條記錄為真

kf.Show() '顯示下個(gè)窗體

Me.Hide() ’隱藏當(dāng)前窗體

Else

MessageBox.Show("輸入信息有誤！", "提示")

TextBox1.Text = ""

TextBox2.Text = ""

End If