★★★★★ gpo2002(永吹不休) 请进.

Question

我提的关于SQL 与 ADOX 的问题,参考你的回答改动如下:Private Sub Command1_Click()
On Error GoTo Error:
    Dim m_sql As ADOX.Catalog
    Dim m_access As ADOX.Catalog
    Dim m_create As ADOX.Catalog
    
    Dim tbl As New Table
    Dim m_table As New Table
    
    If Dir("d:\db1.mdb") <> "" Then Kill "d:\db1.mdb"
    Set m_create = New ADOX.Catalog
    m_create.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb" '
    
    Set m_create = Nothing
    
    Set m_sql = New ADOX.Catalog
    
    m_sql.ActiveConnection = "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=ErpXiMu;Data Source=KYO"
    
        Set m_table = m_sql.Tables.Item("BiWhchk")
    
    Dim Column As New ADOX.Column
    tbl.Name = m_table.Name
    For Each Column In m_table.Columns
        tbl.Columns.Append Column.Name, Column.Type, Column.DefinedSize
    Next
    Set m_sql = Nothing
    
    Set m_access = New ADOX.Catalog
    m_access.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb;Persist Security Info=true" '
 
    'Set tbl.ParentCatalog = m_access    m_access.Tables.Append tbl '这行出错Error:
 MsgBox Err.Description & "  " & Err.Source & Err.Number
 Exit Sub
End Sub我参考你的代码改了一下,经单步跟踪及Debug检查,前面都没出错,直到最后一行,m_access.Tables.Append tbl 出错,Err.Source= "Microsoft JET Database Engine", Err.Description="类型无效。",Err.Number="M-2147217859"MSDN上无帮助,只好再麻烦你一起研究下了.^_^

Answer 1

我这里没有SqlServer,我用MDB试了下，成功的。用ODBC连Oracle也出现这个错误情况。这可能是数据库记录类型不一致所至如果是要实现数据的备份的话还可以先建立联接表，从联接表导入数据，删除联接表还有
http://search.csdn.net/expert/topic/51/5105/2002/9/15/1024563.htm