Question

我的代码中存在一个非常严重的问题。我没有得到的是我的逻辑问题或其他。在代码看起来完美的所有方式中，即使它对于有限的数据也是完美的。这是代码：

Database.connect()
        Database.connectSqlite()
        Dim dt As New DataTable
        Dim sqladap As New OleDb.OleDbDataAdapter
        Dim sqlitecommm As New SQLite.SQLiteCommand
        With sqlcomm
            '.Transaction = mytran
            .CommandText = "select * from DCMaster"
            .Connection = myconnection
        End With

        sqladap = New OleDb.OleDbDataAdapter(sqlcomm)
        sqladap.Fill(dt)
        'MsgBox("Started Job 1")
        Label4.Text = "(0" + "/" + dt.Rows.Count.ToString + ")"

        ProgressBar1.Maximum = dt.Rows.Count

        'sqlitecommm.Transaction = sqlitetransaction
        sqlitecommm.Connection = sqliteconnecttion
        For i = 0 To dt.Rows.Count - 1
            sqlitecommm.CommandText = Nothing
            sqlitecommm.CommandText = "insert into DCMaster (DCNo,DCDate,PName,PAdd,PPhone,DriverName,VehicleNo,TotalQty,TotalSqft,TotalAmt,Freight,NetAmt) values (" & dt.Rows(i)("DCNo") & ",'" & Date.Parse(dt.Rows(i)("DCDate")).ToString("yyyy-MM-dd") & "','" & dt.Rows(i)("PName") & "','" & dt.Rows(i)("PAdd") & "','" & dt.Rows(i)("PPhone") & "','" & dt.Rows(i)("DriverName") & "','" & dt.Rows(i)("VehicleNo") & "','" & dt.Rows(i)("TotalQty") & "','" & dt.Rows(i)("TotalSqft") & "','" & dt.Rows(i)("TotalAmt") & "','" & dt.Rows(i)("Freight") & "','" & dt.Rows(i)("NetAmt") & "')"
            'sqlitecommm.Transaction = sqlitetransaction
            sqlitecommm.ExecuteNonQuery()
            Label4.Text = "(" + (i + 1).ToString + "/" + dt.Rows.Count.ToString + ")"
            ProgressBar1.Value = i
            'Thread.Sleep(50)
        Next
        dt.Reset()
        dt.Dispose()
        GC.Collect()

我的问题是我在sqlite数据库中有四个表，我需要从桌面应用程序传输数据。甚至sqlite数据库的文件也在同一个应用程序目录的桌面上。但是在传输时，一个表中的几个记录会自动转到另一个表，但不是全部都在sqlite中。我没有得到确切的问题。请帮帮我到这儿

在Android应用程序和vb.net应用程序之间同步数据

0 个答案: