如何将数据从Ms access表导入sql server表

我有一个表，Ms 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

---

为此，您可以使用

DBConvert

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

您可以通过此直接链接查看参考：

如果你想按程序进行

循序渐进的方法：

---

您使用了相同的子项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

---

我认为您可以创建到每个数据库的ODBC连接，然后在程序中使用它们将数据从一个数据库传输到另一个数据库。。。但我必须问一下，到目前为止您尝试了什么？对于I=1到LstLog.ListItems.Count对于j=1到LstLog.ColumnHeaders.Count-1 REC.Open“插入xyz（EmpID、LogID、CheckTime、SensorID）值（“&LstLog.ListItems（I）.子项（j）&“，”&LstLog.ListItems（I）.子项（j）&“，”，子项（j）&“，”&LstLog.ListItems（i）.子项（j）和“'）”，CN，adOpenStatic，ADLOCKBATCH Next j Next i CN。如果