博客
关于我
ADO数据库操作总结
阅读量:507 次
发布时间:2019-03-07

本文共 1907 字,大约阅读时间需要 6 分钟。

一、 设置连接对象和连接记录集 :

       Public gLoginCn As ADODB.Connection  ' 连接 Login 数据库

       Public gLoginRs As ADODB.Recordset   ' 定义记录集

二、 在模块中实例化对象:

Set gloginCn=new adodb.connection

Set gloginRs=new adodb.Recordset

三、 三种数据库的链接方法

Oracle

  strSQL = "Provider=OraOLEDB.Oracle.1;Password=" & tOracle.Password & ";Persist Security Info=True;User ID=" & _

    tOracle.UserName & ";Data Source=" & tOracle.DataSource & ";Pooling =false"

             

' 问题由于 oracle 重启或者连接中断而 ADO.Net 仍然未释放连接所致 ,

' 解决方法是通过禁用 OracleClient Pooling, 禁用方法是在连接字符串中加上 Pooling=false.

' http://blog.joycode.com/uestc95/archive/2005/09/27/64200.aspx

             

    Set gLinkOracle9i = New ADODB.Connection

    gLinkOracle9i.CursorLocation = adUseClient

    gLinkOracle9i.Open strSQL

 

Access:

  

  strSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" & _

            "Data Source=" & App.Path & "/ 数据库 /" & Mdb & ".mdb"                   ' 连接数据库 SQL 语句

    Set AccessCn = New ADODB.Connection     '' 实例化 Connection 对象 AccessCn

    AccessCn.ConnectionString = strSQL

AccessCn.Open               ' 打开数据库连接

 

       SQL:

              strSQL = "Provider=SQLOLEDB.Oracle.1;Password=" & tOracle.Password & ";Persist Security Info=True;User ID=" & _

    tOracle.UserName & ";Data Source=" & tOracle.DataSource & ";Pooling =false"

             

' 问题由于 oracle 重启或者连接中断而 ADO.Net 仍然未释放连接所致 ,

' 解决方法是通过禁用 OracleClient Pooling, 禁用方法是在连接字符串中加上 Pooling=false.

' http://blog.joycode.com/uestc95/archive/2005/09/27/64200.aspx

             

    Set gLinkSQL = New ADODB.Connection

    gLinkSQL.CursorLocation = adUseClient

gLinkSQL.Open strSQL

四、 判断表是否存在于数据库中

gOldTableRs.CursorLocation = adUseClient

        strSQL = "SELECT Table_Name FROM Tabs WHERE Table_Name='" & UCase(labOldTab.Caption) & "'"   ' 表名强制为大写 , 判断是否存在

        gOldTableRs.Open strSQL, gOldTableCn, adOpenDynamic, adLockReadOnly         ' 打开数据库

返回 gOldTableRs.RecordCount 为一表存在,反之不存在

五、 记录集主要是用于对字段的操作和记录的操作

tTable.ZdName(i) = ObjRs.Fields(i).Name

tTable.ZdType(i) = ObjRs.Fields(i).Type

tTable.ZdSize(i) = ObjRs.Fields(i).DefinedSize

tTable.ZdScale(i) = ObjRs.Fields(i).NumericScale

转载地址:http://ommjz.baihongyu.com/

你可能感兴趣的文章
Mysql学习总结(61)——MySQL优化之DBA级优化整理汇总
查看>>
Mysql学习总结(62)——MySQL连接com.mysql.jdbc.exceptions.jdbc4.CommunicationsException: Communications link问题
查看>>
Mysql学习总结(63)——Mysql数据库架构方案选择与分析
查看>>
Mysql学习总结(64)——Mysql配置文件my.cnf各项参数解读
查看>>
Mysql学习总结(65)——项目实战中常用SQL实践总结
查看>>
Mysql学习总结(66)——设置MYSQL数据库编码为UTF-8
查看>>
Mysql学习总结(67)——MYSQL慢查询日志
查看>>
Mysql学习总结(68)——MYSQL统计每天、每周、每月、每年数据 SQL 总结
查看>>
Mysql学习总结(69)——Mysql EXPLAIN 命令使用总结
查看>>
Mysql学习总结(6)——MySql之ALTER命令用法详细解读
查看>>
Mysql学习总结(70)——MySQL 优化实施方案
查看>>
Mysql学习总结(71)——MySQL 重复记录查询与删除总结
查看>>
Mysql学习总结(71)——数据库介绍(MySQL安装 体系结构、基本管理)再回顾
查看>>
Mysql学习总结(72)——MySQL 开发者开发,设计规范再总结
查看>>
Mysql学习总结(73)——MySQL 查询A表存在B表不存在的数据SQL总结
查看>>
Mysql学习总结(74)——慢SQL!压垮团队的最后一根稻草!
查看>>
Mysql学习总结(75)——并发量大、数据量大的互联网业务数据库设计军规
查看>>
Mysql学习总结(76)——MySQL执行计划(explain)结果含义总结
查看>>
Mysql学习总结(77)——温故Mysql数据库开发核心原则与规范
查看>>
Mysql学习总结(78)——MySQL各版本差异整理
查看>>