ADO.VBA for CorelDraw

在网上找了半天，没找到一个在CorelDraw中连接数据库的应用，只好自己凭着感觉写几行了，下面就是最近写的一小段代码，其实也是很简单的，仅供参考：

    Dim strConnection As String

    If Right(UCase(textDNS.Text), 4) = ".MDB" Then

        '连接MDB数据库

        strConnection = "Provider=MSDAORA.1;Data Source=" & textDNS.Text & ";User ID=hskst ;Password=hskst;"

    Else

        '连接ORACLE数据库

        strConnection = "Provider=MSDAORA.1;Data Source=" & textDNS.Text & ";User ID=hskst ;Password=hskst;"

    End If

    Dim ado As Object

    Set ado = CreateObject("ADODB.Connection")

    ado.Open strConnection

    Dim Rs As Object

    Set Rs = CreateObject("ADODB.Recordset")

   

    Rs.CursorLocation = 3

    Rs.CursorType = 0

    Rs.LockType = 1

    Rs.ActiveConnection = ado

    Dim strSQL As String

    strSQL = GetSQL(CInt(textYQTDM.Text), textNY.Text, textCWDM.Text)

    Rs.Open (strSQL)

   

    If Rs.EOF Then

        MsgBox "没有数据可显示！"

    Else

        While Not Rs.EOF

            Dim strJH As String

            Dim dZZBX, dHZBY As Double

            Dim dRCYL, dHS As Double

            Dim dLJCYL, dLJCSL As Double

           

            strJH = Rs!JH

            dZZBX = Rs!ZZBX

            dHZBY = Rs!HZBY

            dRCYL = Rs!RCYL

            dHS = Rs!HS

            dLJCYL = Rs!LJCYL

            dLJCSL = Rs!LJCSL

            DrawObject strJH, dZZBX, dHZBY, dRCYL, dHS, dLJCYL, dLJCSL, "", dBLC, nK, dXZJD, bZTCOLOR, nBZZT

            DoEvents

            Rs.MoveNext

        Wend

         End If