vb连接mysql的方法_VB几种连接数据库的方法
－、用DAO控件連接數據庫
1.與Access2000數據庫連接
Private Sub Command1_Click()
'也可直接在控件屬性中設置以下各項但在控件屬性中不能寫入密碼
'只有在數據數沒有密碼的情況下可以省略
Data1.Refresh
Data1.Connect = "Access 2000;"
Data1.DatabaseName = App. Path +
"\chncmadb.mdb"
'數據庫沒有密碼此句可省
Data1.Connect = ";pwd=123456"
'Data1.RecordSource =
"耕地資源管理單元屬性數據表2004"
Data1.RecordSource = "select * from
耕地資源管理單元屬性數據表2004"
Data1.Refresh
’move后才能正確顯示記錄個數
End Sub
2.與沒有密碼的DBF文件數據庫連接
Private Sub Command2_Click()
Data1.Connect = "dBASE III;"
Data1.DatabaseName = App. Path
' Data1.RecordSource ="DBF"
Data1.RecordSource = "select * from
dbf"
Data1.Refresh
’move后才能正確顯示記錄個數
End Sub
3.與沒有密碼的Excel文件數據庫連接
Private Sub Command3_Click()
Data1.Connect = "Excel 8.0;"
Data1.DatabaseName = App.Path &
"\EXcel.xls"
Data1.RecordSource = "select *
from?[EXcel.xls]"
Data1.Refresh
’move后才能正確顯示記錄個
End Sub
二、用DAO代碼連接數據庫
'在使用DAO對象前應選定Visual
Basic菜單下的[工程]中的引用了菜單中的[Microsoft DAO 3.6 Object
Library]選項，或其它版本
1.DAO代碼與Access數據庫連接
Private Sub Command1_Click()
Dim Db As Database
Dim Rs As Recordset
'以共享、讀寫方式打開'如果無密碼最后一個參數可以不要
Set Db= OpenDatabase(App.Path &
"\chncmadb.mdb", False, False, ";pwd=123456")
'不需要move來更新記錄個數
'Set Rs =
Db.OpenRecordset("耕地資源管理單元屬性數據表2004")
'需要move來更新記錄個數
Set Rs = Db.OpenRecordset("select * from
[耕地資源管理單元屬性數據表2004]")
If Rs.RecordCount > 0 Then
Rs.MoveLast
Rs.MoveFirst
End If
End Sub
2.DAO代碼與沒有密碼的DBF文件數據庫連接
Private Sub Command2_Click()
Dim Db As Database
Dim Rs As Recordset
'以共享、讀寫方式打開
Set Db = OpenDatabase(App.Path, False, False,
"dbase
III;")
'不需要move來更新記錄個數
'Set Rs = Db.OpenRecordset("DBF")
’需要move來更新記錄個數
Set Rs = Db.OpenRecordset("select * from
[DBF]")
If Rs.RecordCount > 0 Then
Rs.MoveLast
Rs.MoveFirst
End If
End sub
3.
'DAO代碼與沒有密碼的Excel文件數據庫連接
Private Sub Command3_Click()
Dim Db As Database
Dim Rs As Recordset
'以共享、讀寫方式打開'如果無密碼最后一個參數可以不要
Set Db = OpenDatabase(App.Path &
"\EXcel.xls", False, False, "Excel 8.0;")
'不需要move來更新記錄個數
' Set Rs = Db.OpenRecordset("EXcel.xls")
'表格中的工作目錄sheet
'需要move來更新記錄個數
Set Rs = Db.OpenRecordset("select * from
[EXcel.xls]") '表格中的工作目錄sheet'
If Rs.RecordCount > 0 Then
Rs.MoveLast
Rs.MoveFirst
End If
End Sub
三、用ADO控件連接數據庫
'也可直接在控件屬性中設置以下各項
1.ADO控件與Access2000數據庫連接
Private Sub Command1_Click()
'連接有密碼的Access數據庫
'Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & App.Path & "\chncmadb1.mdb;Jet OLEDB:DataBase
PASSWORD=123456"
'連接沒有密碼的Access數據庫
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & App.Path & "\chncmadb.mdb;Persist Security
Info=False"
'Adodc1.RecordSource =
"[耕地資源管理單元屬性數據表2004]"
Adodc1.RecordSource = "select * from
[耕地資源管理單元屬性數據表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;"
'能使表名長度不受限制
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()
'下面一句測試未能通過
'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數據庫連接
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"
'表名不能加方括號
Adodc1.RecordSource = "select * from T320481TR012004"
Adodc1.Refresh
Set
DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub
5.'ADO控件與SQLserver數據庫連接
'未測試
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代碼連接數據庫
'在使用ADO對象前應選定Visual
Basic菜單下的[工程]中的引用了菜單中的[Microsoft.ActiveX Data Object
2.5 Library]選項，或其它版本
1.'ADO代碼與Access2000數據庫連接
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
[耕地資源管理單元屬性數據表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數據庫連接
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數據庫連接
'未測試
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
該文章轉載自網絡大本營：http://www.qqview.com/Dev/VB/200742412648.Html
總結
以上是生活随笔為你收集整理的vb连接mysql的方法_VB几种连接数据库的方法的全部內容，希望文章能夠幫你解決所遇到的問題。
