如何将数据从MS Access表导入到SQL Server表

Question

我有一个表，即Access中的Checkinout，我想使用VB 6.0将该表的所有数据导入到我的SQL Server数据库Checkinout表中：

这是我的代码。 它运行不正常[这具有讽刺意味吗？]

   For i = 1 To LstLog.ListItems.Count
       For j = 1 To LstLog.ColumnHeaders.Count - 1
           REC.Open "insert into xyz (EmpID, LogID,CheckTime,SensorID) Values ('" & _
               LstLog.ListItems(i).SubItems(j) & "','" & _
               LstLog.ListItems(i).SubItems(j) & "','" & _
               LstLog.ListItems(i).SubItems(j) & "','" & _
               LstLog.ListItems(i).SubItems(j) & "' )", CN, _
               adOpenStatic, adLockBatchOptimistic
       Next j
   Next i

Answer 1

您可以为此使用DBConvert 。

DBConvert for Access和MySQL迁移工具可将Microsoft Access转换为MySQL服务器，将MySQL转换为Access。

您可以参考此直接链接进行参考：

http://dbconvert.com/convert-access-to-mysql-pro.php?DB=1

如果您要以编程方式进行操作，

逐步方法：

http://en.kioskea.net/faq/7342-export-access-database-to-mysql

Answer 2

您使用了相同的子项目ID。 删除内部的for循环，例如：

For i = 1 To LstLog.ListItems.Count
    REC.Open "insert into xyz (EmpID, LogID,CheckTime,SensorID) Values ('" & _
        LstLog.ListItems(i).SubItems(1) & "','" & _
        LstLog.ListItems(i).SubItems(2) & "','" & _
        LstLog.ListItems(i).SubItems(3) & "','" & _
        LstLog.ListItems(i).SubItems(4) & "' )", CN, _
        adOpenStatic, adLockBatchOptimistic
Next i