VB6如何用sql语句将一个Foxpro的dbf数据库作为一个表导入VB自带的mdb数据库中!

Question

定义两个DATA控件，DATA1连接到DBF上，DATA2连接到MDB上，
然后，
  Data2.Recordset.MoveFirst
  Data3.Recordset.MoveFirst
  Do
    If Data2.Recordset.EOF Then
      Exit Do
    Else
      Data1.Recordset.AddNew
      Data1.Recordset.Fields("DBF中的字段名") = Data2.Recordset.Fields("MDB中对映的字段名")
      Data1.Recordset.Update
      Data2.Recordset.MoveNext
    End If
  Loop

Answer 1

呵呵，写错名字了，更正一下，上面的不对。  Data1.Recordset.MoveFirst
  Data2.Recordset.MoveFirst
  Do
    If Data1.Recordset.EOF Then
      Exit Do
    Else
      Data2.Recordset.AddNew
      Data2.Recordset.Fields("MDB中对映的字段名")=Data1.Recordset.Fields("DBF中的字段名")
      Data2.Recordset.Update
      Data1.Recordset.MoveNext
    End If
  Loop

Answer 2

王国荣上说用如下方法，可我试过不好使！
Select * Into score From [DbaseIII;Database=c:\mydir].score.dbf
哪位知道呢？

Answer 3

ather(夏天)老兄：
   多字段怎么办？

Answer 4

同意ather(夏天)老兄，多字段
Data2.Recordset.Fields("MDB中对映的字段名1")=Data1.Recordset.Fields("DBF中的字段名1")
Data2.Recordset.Fields("MDB中对映的字段名2")=Data1.Recordset.Fields("DBF中的字段名2")
Data2.Recordset.Fields("MDB中对映的字段名n")=Data1.Recordset.Fields("DBF中的字段名n")

Answer 5

Dim adoConnection As New ADODB.Connection
'一定要用 Microsoft.Jet.OLEDB.4.0,不要用 3.51,但 MDB 文件可以是 Access97
adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\XXX.mdb;Persist Security Info=False"
'adoConnection.Execute "SELECT * INTO CopyOfAnimals FROM animals IN ''[dBASE IV;DATABASE=d:\dbfs\];"
adoConnection.Execute "INSERT INTO CopyOfAnimals SELECT * FROM animals IN ''[dBASE IV;DATABASE=d:\dbfs\];"

Answer 6

如果我想把access的库导入到sql server 中在vb中用什么方法实现?我试过用上面的方发,但出现了字段类型不匹配,要怎样解决呢?

Answer 7

Dim adoConnection As New ADODB.Connection
'一定要用 Microsoft.Jet.OLEDB.4.0,不要用 3.51,但 MDB 文件可以是 Access97
adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\XXX.mdb;Persist Security Info=False"
'adoConnection.Execute "SELECT * INTO CopyOfAnimals FROM animals IN ''[dBASE IV;DATABASE=d:\dbfs\]"
adoConnection.Execute "INSERT INTO CopyOfAnimals SELECT * FROM animals IN ''[dBASE IV;DATABASE=d:\dbfs\]"

Answer 8

Dim adoConnection As New ADODB.Connection
'一定要用 Microsoft.Jet.OLEDB.4.0,不要用 3.51,但 MDB 文件可以是 Access97
adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db4.mdb;Persist Security Info=False"'playyuer
'adoConnection.Execute "SELECT * INTO CopyOfAnimals FROM animals IN ''[dBASE IV;DATABASE=d:\dbfs\]"
'adoConnection.Execute "INSERT INTO CopyOfAnimals SELECT * FROM animals IN ''[dBASE IV;DATABASE=d:\dbfs\]"'王国荣 也可以,但也一定要用 Microsoft.Jet.OLEDB.4.0,不要用 3.51,但 MDB 文件可以是 Access97
'adoConnection.Execute "SELECT * INTO CopyOfAnimals FROM [dBASE III;DATABASE=d:\dbfs\].animals.dbf"
adoConnection.Execute "INSERT INTO CopyOfAnimals SELECT * FROM [dBASE III;DATABASE=d:\dbfs\].animals.dbf"

Answer 9

playyuer(女爱㊣):
执行到如下语句报错：数据引擎找不到对象animals!
adoConnection.Execute "INSERT INTO CopyOfAnimals SELECT * FROM animals IN ''[dBASE IV;DATABASE=d:\yl];"该怎么办？

Answer 10

'先(第一次)执行一下,在 Access 中建表 CopyOfAnimals 
adoConnection.Execute "SELECT * INTO CopyOfAnimals FROM [dBASE III;DATABASE=d:\dbfs\].animals.dbf"
'以后执行
adoConnection.Execute "INSERT INTO CopyOfAnimals SELECT * FROM animals IN ''[dBASE IV;DATABASE=d:\dbfs\]"

Answer 11

我已经找到了一个更简洁的办法，但还是要感谢playyuer的热情帮助！
我就把分全加给你吧！

Answer 12

可以试试这个：
databasename.execute SQL
（SQL为你要执行的SQL语句）
我以前这样做过的