首页 > 专利查询

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

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

'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数据库

10658154

'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

led点阵书写显示屏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

本文发布于:2024-09-21 16:48:20，感谢您对本站的认可！

本文链接：https://www.17tex.com/tex/4/170735.html

上一篇：环境空气和废气臭气的测定三点比较式臭袋法HJ 1262

下一篇：VBnet连接各类数据库源码

标签：密码数据库连接记录控件没有读写

留言与评论（共有 0 条评论）