有谁有rdo 连oracle操作的例子？

Question

我给你,
Public grdoDBEnv     As rdoEnvironment
Public GlobalServer  As rdoConnection   Dim lrdoRS As rdoResultset
   Dim lsSQL As String
   
   On Error GoTo Connect_OracleServerError
   
   Set grdoDBEnv = rdoEnvironments(0)
   
   With grdoDBEnv
      .LoginTimeout = 10
      .CursorDriver = rdUseOdbc
      Set GlobalServer = .OpenConnection(dsname:="DATABASE_Name", _
                                         Prompt:=rdDriverNoPrompt, _
                                         Connect:="UID=user_id;PWD=1")
   End With   lsSQL = "Select * From table"
   Set lrdoRS = GlobalServer.OpenResultset(lsSQL, rdOpenForwardOnly, rdConcurReadOnly)

Answer 1

cn.CursorDriver = rdUseOdbc
cn.Connect = "DSN=zjyw;UID=zjyw;PWD=zjyw;server=zjyw;database=zjyw;"cn.EstablishConnection rdDriverNoPromptstrsql = "select distinct zdate from data_tab"
Set rst = cn.OpenResultset(strsql, rdOpenKeyset, rdConcurValues)
   Do Until rst.EOF
   If rst!zdate = Trim(Text1.Text) Then
  res = MsgBox("¸ÃÔÂÊý¾ÝÒѾ­µ¼È룬ÇëÈ·¶¨ÊÇ·ñÒªÖØе¼È룿", vbInformation + vbYesNo, "Êý¾Ýµ¼Èë")
       If res = 7 Then rst.Close: cn.Close: GoTo 1 Else cn.Execute ("delete from data_tab where zdate=" & "'" & Text1.Text & "'"): Exit Do
    End If
   rst.MoveNext
   Loop
   rst.Close
   
strsql = "select * from data_tab"
Set rst = cn.OpenResultset(strsql, rdOpenKeyset, rdConcurValues)