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

VB与各数据库的几种连接方式相关推荐

  1. mysql的四种连接方式_数据库的四种连接方式分别是什么

    数据库的四种连接方式分别是:1.inner join内连接:2.outer join外连接:3.cross join交叉连接:4.natural join自然连接. 内连接 内连接 ---拼接查询结果 ...

  2. MySQL数据库的四种连接方式

    MySQL数据库连接 JDBC :sun公司提供的一套api(java.sql,javax.sql), 使用这套api可以实现对数据的连接和操作(DML.DDL) 如下代码来测试:获取MySQL数据库 ...

  3. arcserver连接oracle,ArcSDE的二种连接方式（应用服务器连接，直接连接）

    ArcSDE的二种连接方式(应用服务器连接,直接连接) (2013-08-26 09:28:42) 以oracle数据库为例说明: 解释一: ArcSDE的二种连接方式--估且称为客户端负载连接方式和 ...

  4. 【数据库视频】七种连接方式

    数据表的查询与管理只是针对数据库中的一个表格进行的查询管理,如果现在我们想要同时的看到两个数据表中的数据的或,需要怎么实现?答案是:使用多连接的方式进行查询 标题中说了SQL中有七种连接的方式,那么具 ...

  5. oracle Hash Join及三种连接方式

    在Oracle中,确定连接操作类型是执行计划生成的重要方面.各种连接操作类型代表着不同的连接操作算法,不同的连接操作类型也适应于不同的数据量和数据分布情况. 无论是Nest Loop Join(嵌套循 ...

  6. GP两种连接方式性能测试

    GP两种连接方式性能测试 Pivotal java.sql.Connection; import java.sql.DriverManager; import java.sql.PreparedSta ...

  7. Jdbc连接mysql的五种连接方式

    一:五种连接方式 直接上码 package com.wyjedu.jdbc;import com.mysql.jdbc.Driver;import java.io.FileInputStream; i ...

  8. oracle数据库连接名是什么,连接到Oracle数据库的几种命名方式

    连接到Oracle数据库的几种命名方式 从事 Oracle 相关工作的人,每天都会使用各种工具连接到 Oracle 数据库,比如:SQL*Plus.PL/SQL.TOAD.SQLDeveloper 等 ...

  9. 数据库的8种优化方式

    前言: 关于数据库的优化方案,网上有不少资料和方法,但众说纷纭,作品良莠不齐,不是缺斤少两,就是过于冗余. 在浏览了很多文章之后觉得这篇文章,总结得很经典,文章流量也很大,所以拿来和大家分享,积累优质 ...

最新文章

  1. 百度分拆金融业务，融资19亿美元
  2. 群雄逐鹿，谁将赢得5G时代的物联网战争？
  3. CISCO与华为3COM路由器配置差别
  4. 【数字信号处理】相关函数 ( 能量信号 | 能量信号的互相关函数 | 能量信号的自相关函数 )
  5. ubuntu 安装intel iofrt 和icc编译器
  6. 阿里云存储OSS中设置上传文件content type
  7. .jdeveloper_在JDeveloper 12.1.3中为WebSocket使用Java API
  8. win10怎么更改账户名称_Win10邮件功能如何查看邮件
  9. 基于External-DNS的多集群Service DNS实践
  10. linux centos history 查看命令历史 显示时间戳
  11. 所有选手信息标准展示时,选手照片没有显示,什么原因?
  12. R8500 MPv2 版本 刷梅林改版固件
  13. 数学建模灵敏度分析是什么？为什么获奖论文基本都有！【科研交流】
  14. 硕士论文中期汇报ppt_做一场合格的中期汇报
  15. linux磁盘坏道测试,Linux磁盘坏道检测
  16. SpringBoot+MyBatisPlus+Vue+ElementUI实现前后端分离的物业管理系统
  17. 15家企业入选2020年中国最佳雇主榜单；《新形势下国企数字化转型之路》白皮书发布 | 美通企业日报...
  18. 资金账户、证券账户及银行账户
  19. 金立android怎么升级包,金立S6升级刷机教程[多图]
  20. 【SQL语句】SQL语句大全之技巧篇

热门文章

  1. 服务器运行时间设置,时间服务器设置
  2. （三）深入理解蓝牙BLE之“信道管理”
  3. linux 安装yum命令
  4. python基于PHP+MySQL的物流配送管理系统平台
  5. plt.scatter散点图
  6. java抛异快捷键_Java 如何抛出异常、自定义异常、手动或主动抛出异常
  7. 用python tkinter组件实现扫雷游戏
  8. 120行python代码解锁10000分微信跳一跳
  9. 《人人都是项目经理V2.0》读书笔记——第3章 需求管理——筛选干系人的需求
  10. 关于大华onvif搜索不到的解决