execle与oracle,Recordset对象打开时有问题

zlzxtfl

Private Sub CommandButton3_Click()
    Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim cnnStr As String, myTable As String, i As Integer
    myTable = "2013_Q"    '指定数据表
    '设置建立与Oracle数据库服务器中连接的字符串
    cnnStr = "Provider=MSDAORA;" _
        & "Data Source=xxzx;" _
        & "User ID=zcj;" _
        & "Password=1234;"
   
    cnn.ConnectionString = cnnStr
    cnn.Open
    '创建查询记录集
    rs.Open Source:=myTable, ActiveConnection:=cnn
    '复制记录
    With rs
        For i = 1 To .Fields.Count        '复制字段名
            Cells(1, i) = .Fields(i - 1)
        Next i
        Range("A2").CopyFromRecordset rs        '复制记录数据
        .Close       '关闭记录集
    End With
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing

End Sub

zlzxtfl

rs.Open Source:=myTable, ActiveConnection:=cnn
这句过不了，联接Oracle,没问题

extyg

新建 文本文档.rar (191 Bytes, 下载次数: 2)

2015-4-15 11:18 上传

点击文件名下载附件

zlzxtfl

谢谢。。答复，我已找到原因，是myTable，有问题，oracle中有表名，不能用数字开头,主表的表名是2013_Q,改为T2013_Q就OK。
还有一个问题，就是写进表T2013_Q,时，addnew或instr, 运行有问题。