如何將數據從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