VB。。。简单的数据导入问题，请高手帮忙解答++++++++++++++

Question

一个*.db文件，用系统DSN做数据源，已可以从界面导入SQL目前需要从这个*.db文件的一个dpt表中取5个字段插入SQL中的新表,给出相关数据，请高手解答，不胜感激:)*.db    表: dpt      取字段: ciyt      areacode    number   dispostion   date接口:   DRIVER={Adaptive Server Anywhere 6.0};Server=local;DSN=00431;uid=123;pwd=123;SQL     表:号码总库    字段：城市       区号       号码     处理情况    接触时间

Answer 1

Private Sub Form_Load()
    Dim cn_db As New ADODB.Connection
    Dim rs_db As New ADODB.Recordset
    Dim cn_sql As New ADODB.Connection
    Dim sql As String
    
    cn_db.Open "DRIVER={Adaptive Server Anywhere 6.0};Server=local;DSN=00431;uid=123;pwd=123;"
    
    If cn_db.State = 1 Then
        rs_db.Open "select ciyt,areacode,number,dispostion,date from dpt ", 1, 1
        If rs_db.RecordCount > 0 Then
            cn_sql.Open "driver={sql server};server=(local);database=ddddddddddd;uid=aaaaaaaa;pwd=bbbbbbb"
            On Error Resume Next
            cn_sql.BeginTrans
            Do While Not rs_db.EOF
                DoEvents
                sql = "insert into 号码总库(城市,区号,号码,处理情况,接触时间) " & _
                "values('" & rs_db(0) & "','" & rs_db(1) & "','" & rs_db(2) & "','" & rs_db(3) & "','" & rs_db(4) & "')"
                cn_sql.Execute sql
                rs_db.MoveNext
            Loop
            If Err > 0 Then
                cn_sql.RollbackTrans
                MsgBox Err.Description
                Err.Clear
            Else
                cn_sql.CommitTrans
            End If
            cn_sql.Close
        End If
        rs_db.Close
    Else
        MsgBox "db数据库连接失败!"
    End If
    
    
    Set cn_db = Nothing
    Set rs_db = Nothing
    Set cn_sql = Nothing
End Sub

Answer 2

既然导入是可用的，你可用先将该 dtp.db 导入到一个临时表中，然后用 INSERT INTO ... SELECT 语句将需要的字段复制到 [号码总库] 表中。

Answer 3

rs_db.Open "select City,Areacode,PhoneNumber,LastDispostion,LastModifieDateTime from SAMPLE", cn_db, 1, 1
实时错误：ODBC驱动程序不支持所需的属性求9啊

Answer 4

如果一次解决不了，那么先导出到txt，再导入txt总会吧！

Answer 5

你把DB文件发我看看呢。[email protected]

Answer 6

收到的98808SZ.db怎么是0字节呢？