怎样将access数据库中的内容到入到oracle中？（最好使用vb实现）

Question

Dim Conn As New ADODB.Connection
    Conn.ConnectionString 
      = "Provider=MSDAORA.1;Password=admin;User ID= admin;
    Data Source=fuj;Persist Security Info=True"
    Conn.Open
    SQL = "SELECT * FROM TBL_SCORE "
    Set RS = DB.OpenRecordset(SQL)
    If RS.EOF = False Then
        ReDim ScoreArray(SumCount)
    End If
    iCount = 1
    Do Until RS.EOF
       in_array(iCount).NENDO = RS!NENDO
       ...
    Loop ' 读ACCESS表
      SQL = "SELECT * FROM test_1 where ..."      Dim Rs2 As New ADODB.Recordset
      Rs2.CursorLocation = adUseClient
      Rs2.Open SQL, Conn, , adLockOptimistic      If Rs2.EOF Then  
        Rs2.AddNew
        Rs2("NENDO") = ScoreArray(iCount).NENDO '写ORACLE表
      end if
      ...
      Rs2.Close
我以前用VBA写的,你可以参考一下.

Answer 1

acess 定义成Variant类型.会自动类型转换.