當(dāng)前位置：首頁(yè) > 运维知识 > 数据库 >内容正文

数据库

vb连接mysql的方法_VB几种连接数据库的方法

發(fā)布時(shí)間：2023/12/14 数据库 33 豆豆

生活随笔收集整理的這篇文章主要介紹了 vb连接mysql的方法_VB几种连接数据库的方法小編覺(jué)得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.

－、用DAO控件連接數(shù)據(jù)庫(kù)

1.與Access2000數(shù)據(jù)庫(kù)連接

Private Sub Command1_Click()

'也可直接在控件屬性中設(shè)置以下各項(xiàng)但在控件屬性中不能寫(xiě)入密碼

'只有在數(shù)據(jù)數(shù)沒(méi)有密碼的情況下可以省略

Data1.Refresh

Data1.Connect = "Access 2000;"

Data1.DatabaseName = App. Path +

"\chncmadb.mdb"

'數(shù)據(jù)庫(kù)沒(méi)有密碼此句可省

Data1.Connect = ";pwd=123456"

'Data1.RecordSource =

"耕地資源管理單元屬性數(shù)據(jù)表2004"

Data1.RecordSource = "select * from

耕地資源管理單元屬性數(shù)據(jù)表2004"

Data1.Refresh

’move后才能正確顯示記錄個(gè)數(shù)

End Sub

2.與沒(méi)有密碼的DBF文件數(shù)據(jù)庫(kù)連接

Private Sub Command2_Click()

Data1.Connect = "dBASE III;"

Data1.DatabaseName = App. Path

' Data1.RecordSource ="DBF"

Data1.RecordSource = "select * from

dbf"

Data1.Refresh

’move后才能正確顯示記錄個(gè)數(shù)

End Sub

3.與沒(méi)有密碼的Excel文件數(shù)據(jù)庫(kù)連接

Private Sub Command3_Click()

Data1.Connect = "Excel 8.0;"

Data1.DatabaseName = App.Path &

"\EXcel.xls"

Data1.RecordSource = "select *

from?[EXcel.xls]"

Data1.Refresh

’move后才能正確顯示記錄個(gè)

End Sub

二、用DAO代碼連接數(shù)據(jù)庫(kù)

'在使用DAO對(duì)象前應(yīng)選定Visual

Basic菜單下的[工程]中的引用了菜單中的[Microsoft DAO 3.6 Object

Library]選項(xiàng)，或其它版本

1.DAO代碼與Access數(shù)據(jù)庫(kù)連接

Private Sub Command1_Click()

Dim Db As Database

Dim Rs As Recordset

'以共享、讀寫(xiě)方式打開(kāi)'如果無(wú)密碼最后一個(gè)參數(shù)可以不要

Set　Db= OpenDatabase(App.Path &

"\chncmadb.mdb", False, False, ";pwd=123456")

'不需要move來(lái)更新記錄個(gè)數(shù)

'Set Rs =

Db.OpenRecordset("耕地資源管理單元屬性數(shù)據(jù)表2004")

'需要move來(lái)更新記錄個(gè)數(shù)

Set Rs = Db.OpenRecordset("select * from

[耕地資源管理單元屬性數(shù)據(jù)表2004]")

If Rs.RecordCount > 0 Then

Rs.MoveLast

Rs.MoveFirst

End If

End Sub

2.DAO代碼與沒(méi)有密碼的DBF文件數(shù)據(jù)庫(kù)連接

Private Sub Command2_Click()

Dim Db As Database

Dim Rs As Recordset

'以共享、讀寫(xiě)方式打開(kāi)

Set Db = OpenDatabase(App.Path, False, False,

"dbase

III;")

'不需要move來(lái)更新記錄個(gè)數(shù)

'Set Rs = Db.OpenRecordset("DBF")

’需要move來(lái)更新記錄個(gè)數(shù)

Set Rs = Db.OpenRecordset("select * from

[DBF]")

If Rs.RecordCount > 0 Then

Rs.MoveLast

Rs.MoveFirst

End If

End sub

'DAO代碼與沒(méi)有密碼的Excel文件數(shù)據(jù)庫(kù)連接

Private Sub Command3_Click()

Dim Db As Database

Dim Rs As Recordset

'以共享、讀寫(xiě)方式打開(kāi)'如果無(wú)密碼最后一個(gè)參數(shù)可以不要

Set Db = OpenDatabase(App.Path &

"\EXcel.xls", False, False, "Excel 8.0;")

'不需要move來(lái)更新記錄個(gè)數(shù)

' Set Rs = Db.OpenRecordset("EXcel.xls")

'表格中的工作目錄sheet

'需要move來(lái)更新記錄個(gè)數(shù)

Set Rs = Db.OpenRecordset("select * from

[EXcel.xls]") '表格中的工作目錄sheet'

If Rs.RecordCount > 0 Then

Rs.MoveLast

Rs.MoveFirst

End If

End Sub

三、用ADO控件連接數(shù)據(jù)庫(kù)

'也可直接在控件屬性中設(shè)置以下各項(xiàng)

1.ADO控件與Access2000數(shù)據(jù)庫(kù)連接

Private Sub Command1_Click()

'連接有密碼的Access數(shù)據(jù)庫(kù)

'Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data

Source=" & App.Path & "\chncmadb1.mdb;Jet OLEDB:DataBase

PASSWORD=123456"

'連接沒(méi)有密碼的Access數(shù)據(jù)庫(kù)

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data

Source=" & App.Path & "\chncmadb.mdb;Persist Security

Info=False"

'Adodc1.RecordSource =

"[耕地資源管理單元屬性數(shù)據(jù)表2004]"

Adodc1.RecordSource = "select * from

[耕地資源管理單元屬性數(shù)據(jù)表2004]"

Adodc1.Refresh

Set

DataGrid1.DataSource = Adodc1

DataGrid1.Refresh

End Sub

2.'ADO控件與DBF表連接

Private Sub Command2_Click()

'Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security

Info=False;Data Source=dBASE Files;DBQ=" & App.Path &

";SourceType=DBF;"

'Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security

Info=False;Extended Properties=DSN=Visual FoxPro

Tables;UID=;SourceDB=”& app.path

&”;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"

'Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security

Info=False;Extended Properties=DSN=dBASE Files;DBQ=”& app.path

&”;;DefaultDir=”& app.path

&”;DriverId=533;MaxBufferSize=2048;PageTimeout=5;"

'能使表名長(zhǎng)度不受限制

Adodc1.ConnectionString = "Provider=MSDASQL.1;Driver=Microsoft

Visual Foxpro Driver;SourceDB=" & App.Path &

";SourceType=DBF;Locale Identifier=2052"

'Adodc1.RecordSource = "[DBF1]"

Adodc1.RecordSource = "select * from DBF1"

Adodc1.Refresh

Set

DataGrid1.DataSource = Adodc1

DataGrid1.Refresh

End Sub

3.'ADO控件與Excel表連接

Private Sub Command3_Click()

'下面一句測(cè)試未能通過(guò)

'Adodc1.ConnectionString = "Data

Provider=MSDASQL.1;driver=Microsoft Excel Driver *.xls);DBQ=" &

App.Path & "\EXcel.xls"

'Adodc1.ConnectionString="Provider=MSDASQL.1;Persist Security

Info=False;Extended Properties=DSN=Excel Files;DBQ=" & App.Path

& "\EXcel.xls;DefaultDir=”&app.path

&”;DriverId=790;MaxBufferSize=2048;PageTimeout=5;"

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist

Security Info=False;Data Source=" & App.Path &

"\EXcel.xls;Extended Properties='Excel 8.0;HDR=Yes'"

'Adodc1.RecordSource = "[EXcel.xls]"

Adodc1.RecordSource = "select * from [EXcel.xls]"

Adodc1.Refresh

Set

DataGrid1.DataSource = Adodc1

DataGrid1.Refresh

End Sub

4.'ADO控件與Oracle數(shù)據(jù)庫(kù)連接

Private Sub Command4_Click()

'Adodc1.ConnectionString =

"Provider=MSDAORA.1;Password=chncmadb;User ID=chncmadb;Data

Source=towebserver;Persist Security Info=True"

Adodc1.ConnectionString="Provider=OraOLEDB.Oracle.1;Password=chncmadb;Persist

Security Info=True;User ID=chncmadb;Data

Source=towebserver"

'Adodc1.RecordSource = "T320481TR012004"

'表名不能加方括號(hào)

Adodc1.RecordSource = "select * from T320481TR012004"

Adodc1.Refresh

Set

DataGrid1.DataSource = Adodc1

DataGrid1.Refresh

End Sub

5.'ADO控件與SQLserver數(shù)據(jù)庫(kù)連接

'未測(cè)試

Private Sub Command5_Click()

Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=111;Persist

Security Info=True;User ID=111;Initial Catalog=111;Data

Source=111"

'Adodc1.RecordSource = "T320481TR012004"

Adodc1.RecordSource = "select * from T320481TR012004"

Adodc1.Refresh

Set

DataGrid1.DataSource = Adodc1

DataGrid1.Refresh

End Sub

四、用ADO代碼連接數(shù)據(jù)庫(kù)

'在使用ADO對(duì)象前應(yīng)選定Visual

Basic菜單下的[工程]中的引用了菜單中的[Microsoft.ActiveX Data Object

2.5 Library]選項(xiàng)，或其它版本

1.'ADO代碼與Access2000數(shù)據(jù)庫(kù)連接

Private Sub Command1_Click()

Dim

AdoCnn As ADODB.Connection

Dim

AdoRs As ADODB.Recordset

Set

AdoCnn = New ADODB.Connection

Set

AdoRs = New ADODB.Recordset

AdoCnn.CursorLocation = adUseClient

'.open后面的字符串可以參考ADO控件連接.ConnectionString后面的的字符串

AdoCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &

App.Path & "\chncmadb1.mdb;Jet OLEDB:DataBase

PASSWORD=123456"

AdoRs.Open "select * from

[耕地資源管理單元屬性數(shù)據(jù)表2004]", AdoCnn, adOpenDynamic,

adLockPessimistic, adCmdText

Set

DataGrid1.DataSource = AdoRs

Set

AdoRs = Nothing

Set

AdoCnn = Nothing

End Sub

2.'ADO代碼與DBF表連接

Private Sub Command2_Click()

Dim

AdoCnn As ADODB.Connection

Dim

AdoRs As ADODB.Recordset

Set

AdoCnn = New ADODB.Connection

Set

AdoRs = New ADODB.Recordset

AdoCnn.CursorLocation = adUseClient

'.open后面的字符串可以參考ADO控件連接.ConnectionString后面的的字符串

AdoCnn.Open "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro

Driver;SourceDB=" & App.Path & ";SourceType=DBF;Locale

Identifier=2052"

AdoRs.Open "select * from [DBF1]", AdoCnn,

adOpenDynamic, adLockPessimistic, adCmdText

Set

DataGrid1.DataSource = AdoRs

Set

AdoRs = Nothing

Set

AdoCnn = Nothing

End Sub

3.'ADO代碼與Excel表連接

Private Sub Command3_Click()

Dim

AdoCnn As ADODB.Connection

Dim

AdoRs As ADODB.Recordset

Set

AdoCnn = New ADODB.Connection

Set

AdoRs = New ADODB.Recordset

AdoCnn.CursorLocation = adUseClient

'.open后面的字符串可以參考ADO控件連接.ConnectionString后面的的字符串

AdoCnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security

Info=False;Data Source=" & App.Path & "\EXcel.xls;Extended

Properties='Excel 8.0;HDR=Yes'"

AdoRs.Open "select * from [EXcel.xls]",

AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText

Set

DataGrid1.DataSource = AdoRs

Set

AdoRs = Nothing

Set

AdoCnn = Nothing

End Sub

4.'ADO代碼與Oracle數(shù)據(jù)庫(kù)連接

Private Sub Command4_Click()

Dim

AdoCnn As ADODB.Connection

Dim

AdoRs As ADODB.Recordset

Set

AdoCnn = New ADODB.Connection

Set

AdoRs = New ADODB.Recordset

AdoCnn.CursorLocation = adUseClient

'.open后面的字符串可以參考ADO控件連接.ConnectionString后面的的字符串

AdoCnn.Open "Provider=OraOLEDB.Oracle.1;Password=chncmadb;Persist

Security Info=True;User ID=chncmadb;Data

Source=towebserver"

AdoRs.Open "select * from T320481TR012004",

AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText

Set

DataGrid1.DataSource = AdoRs

Set

AdoRs = Nothing

Set

AdoCnn = Nothing

End Sub

5.'ADO代碼與SQLserver數(shù)據(jù)庫(kù)連接

'未測(cè)試

Private Sub Command5_Click()

Dim

AdoCnn As ADODB.Connection

Dim

AdoRs As ADODB.Recordset

Set

AdoCnn = New ADODB.Connection

Set

AdoRs = New ADODB.Recordset

AdoCnn.CursorLocation = adUseClient

'.open后面的字符串可以參考ADO控件連接.ConnectionString后面的的字符串

AdoCnn.Open "Provider=SQLOLEDB.1;Password=111;Persist Security

Info=True;User ID=111;Initial Catalog=111;Data

Source=111"

AdoRs.Open "select * from T320481TR012004",

AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText

Set

DataGrid1.DataSource = AdoRs

Set

AdoRs = Nothing

Set

AdoCnn = Nothing

End Sub

該文章轉(zhuǎn)載自網(wǎng)絡(luò)大本營(yíng)：http://www.qqview.com/Dev/VB/200742412648.Html

總結(jié)

以上是生活随笔為你收集整理的vb连接mysql的方法_VB几种连接数据库的方法的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。