各位朋友,请帮助我解决一个问题好吗?谢谢您的支持,我在线等候,同时也感谢昨天送给我分数的朋友!

Question

我先建立了一个数据库,但是里面没有表,我想利用语言把选择的FOXBASE数据库作为一个表导入到已经建立的数据库中,对其操作,然后在把表导出来.望各位朋友帮助!

Answer 1

我觉得你要实现的这个和我前几天做的功能差不多，一开始我很迷惑，后来想了个办法：首先你手工导入所有表，只要表结构就行。然后在程序中写一段forbase导到sql server的代码，就可以实现了：（这是access的，看后面的一段）
'导入到sql server
‘
Private Sub AccessToSQLSerer(strTableCase As String, WhereCase As String)  Dim objRs As New ADODB.Recordset    objadors.Open "select name,id from sysobjects where substring(name,1,4)='" + strTableCase + "' and  name<>'T_XTGL_CZRZ' ", objadoconn
    While Not objadors.EOF
        
        objRs.Open "select * from " + objadors!Name, objadoconn, adOpenDynamic, adLockOptimistic
        objADOAccessRs.Open "select * from " + objadors!Name + " " + WhereCase, objADOAccessConn
        
        While Not objADOAccessRs.EOF
            objRs.AddNew
            For i = 0 To objADOAccessRs.Fields.Count - 1
                If Not IsNull(objRs(objADOAccessRs(i).Name)) Then
                    objRs(objADOAccessRs(i).Name) = objADOAccessRs(i)
                End If
            Next
            objRs.Update
            objADOAccessRs.MoveNext
        Wend
        objADOAccessRs.Close
        objRs.Close
        objadors.MoveNext
    Wend
    objadors.Close
End Sub