• 从dotNet到VB6之模仿构造OleDbDataAdapter与dataset结合


              大家用了这么久ado.net也充分享受到其带来到方便,不过有时我们由于项目的需求或环境条件限制,我们又回到VB6.0开发了,难免有时会觉得力不从心,主要是使用ADO去ADO.net的灵活性不同,特别是异步和对xml支持方面,不过今天我要说对是怎样在VB6.0中构造一个像.net中对OleDbDataAdapter 功能的假对象,比如说我们在dotNet下完成以下构造
                Dim sql As String = "select * from login"
            
    Dim Oda As New OleDbDataAdapter(sql, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb")
            Dim ds As New DataSet
            Oda .Fill(ds, 
    "login")
            DataGrid1.DataSource = ds.Tables(0).DefaultView()
               '绑定到dataGrid

    以上体现了OleDbDataAdapter与dataset的优越性,到这时您已经可以从dataset随心所欲到取数据了,而在vb6.0中半面向对象设计的概念使结构体和独立的函数大量的被使用,当然我在这里要用的方法也就是用VB6函数模拟对象了如下步骤:
    ①:在应用中添加一个对adodb 2.7版本的引用
    ②添加module模块,在模块中加入以下代码
    Public Function newado(SQL As String, AccessDb As StringAs ADODB.Recordset
        
    Dim rs As ADODB.Recordset
        strconn 
    = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AccessDb & ";Persist Security Info=False"
        
    Set rs = New ADODB.Recordset
        rs.Open SQL, strconn, adOpenStatic, adLockOptimistic, adCmdText
        
    Set newado = rs
        
    Set rs = Nothing
        
    'rs.CursorLocation = adUseClient
       ' rs.Open SQL, strconn, adOpenDynamic, adLockBatchOptimistic,adLockBatchOptimistic
    End Function
    ③:这时您已经可以在任意地方方便的申请,使用,回收ADODB.Recordset对象如:
    dim myado as ADODB.Recordset
    set myado =newado("select * from stu","db1.mdb")
    while not myado.EOF
          
    '……
          myado.next
    wend
    myado.close

    当然以上函数可以更灵活,就是把Provider也作为参数,但是一般我们是很少改变数据库提供程序的
    如果您像与控件绑定,那么需要在公共函数里使用客户端游标语句
    rs.CursorLocation = adUseClient
    那么这时在为关闭myado时都可以绑定到控件,如:
    set dataGrid.datasource=myado
    到这里,大家现在也可以像ado.net那样享受到编写代码的方便,无论你写什么数据库项目,都可以马上都把函数复制到新项目的module写立即使用了。
  • 相关阅读:
    Linux下Maven的安装与使用
    Vue1.0用法详解
    一个异步访问redis的内存问题
    jquery和zepto的异同
    我的学习归纳方法(以学习Maven为例)
    最显而易见的设计最容易成功
    Linux Command Backup
    Turn and Stun server · J
    Android apk签名详解——AS签名、获取签名信息、系统签名、命令行签名
    Leetcode 981. Time Based Key-Value Store(二分查找)
  • 原文地址:https://www.cnblogs.com/same/p/384418.html
Copyright © 2020-2023  润新知