要查找數據庫信息，關鍵是要解決鏈接數據庫的問題，下面簡述Vb如何SQL數據庫：

有兩種方法可以實現，一種是通過ODBC數據源的配置進行連接，一種是通過純代碼編輯進行連接，下面我們就詳細介紹一下這兩種連接方法。

ODBC數據源VB連接SQL數據庫

一、配置ODBC數據源

1、在控制面板中，雙擊管理工具，然后打開ODBC數據源管理器。

2、在“系統DSN”選項卡中，單擊“添加”按鈕，打開“創建新數據源”對話框，在“名稱”列表框中選擇“SQL Server”。選好單擊完成

3、在打開“建立新的數據源到SQL Server”對話框，在“名稱”文本框輸入新數據源的名稱，描述數據源按你理解的方式來寫(隨意)。“服務器”就選擇你要連接到的服務器。

4、選擇使用用戶輸入登錄的ID和密碼的SQL 驗證。選連接SQL默認設置

5、再下一步下一步，完成。測試數據源看連接是否成功就行了。成功后按確定。

二、VB中設置連接

1、添加部件Mircrosoft ADO Data Control 6.0(OLEDB),把部件拖到窗體。

2、對ADO部件點右鍵選屬性，選擇使用連接字符串，按生成。

3、選擇Mircosoft OLE DB Providar for SQL Server按下一步

4、

1)輸入服務器名稱

2)使用指定的服務器信息

3)在服務器上選擇數據庫

這時就選擇你在SQL Server建好的數據庫就行了

5、測試連接可以看到連接是否成功！

通過代碼VB連接SQL數據庫

Public conn As New ADODB.Connection

Public rs As New ADODB.Recordset

Public addFlag As Boolean

Public Function OpenCn(ByVal Cip As String) As Boolean

Dim mag As String

On Error GoTo strerrmag

Set conn = New ADODB.Connection

conn.ConnectionTimeout = 25

conn.Provider = "sqloledb"

conn.Properties("data source").Value = Cip '服務器的名字

conn.Properties("initial catalog").Value = "zqoa" '庫名

'conn.Properties("integrated security").Value = "SSPI" '登陸類型

conn.Properties("user id").Value = "sa"

conn.Properties("password").Value = "sa"

conn.Open

OpenCn = True

addFlag = True

Exit Function

strerrmag:

mag = "Data can't connect"

Call MsgBox(mag, vbOKOnly, "Error:Data connect")

addFlag = False

Exit Function

End Function

Public Sub cloCn()

On Error Resume Next

If conn.State <> adStateClosed Then conn.Close

Set conn = Nothing

End Sub

Public Function openRs(ByVal strsql As String) As Boolean '連接數據庫記錄集

Dim mag As String

Dim rpy As Boolean

On Error GoTo strerrmag

Set rs = New ADODB.Recordset

If addFlag = False Then rpy = True

With rs

.ActiveConnection = conn

.CursorLocation = adUseClient

.CursorType = adOpenKeyset

.LockType = adLockOptimistic

.Open strsql

End With

addFlag = True

openRs = True

End

'Exit Function

strerrmag:

mag = "data not connect"

Call MsgBox(mag, vbOKOnly, "error:connect")

openRs = False

End

'Exit Function

End Function

Public Sub cloRs()

On Error Resume Next

If rs.State <> adStateClosed Then rs.Clone

Set rs = Nothing

End Sub

取消

評論

總結

以上是生活随笔為你收集整理的vb查询mysql数据库_怎么在vb程序中查找数据库信息并显示的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。