Need help transfering data from one access db to another

[ankurgupta76]

Hi

I have a restaurant billing software developed in vb 6 and ms access db as backend.

now for old data i have created another copy of db and called it the master db.

So periodically i need to transfer data from the current db to the master db also considering the situation wherein the current db may already have some of the data which has already been copied into the master.

right now i am first creating a csv file from the current and then importing it to master and then deleting the data from the current.

However i am facing data loss and data modification after the import which i am not able to figure out.

PLEASE HELP.

Ankur Gupta
email: info@creativity redefined.com

[ankurgupta76]

Function TransferToMaste r(FromDt As Date, ToDt As Date, BackUp As String, Optional PBr As ProgressBar = Nothing) As Boolean
Dim TmpDt As Date
Dim TmpDt1 As Date
Dim Tmp As String, i As Integer
If DoDebug Then
AppDebug "Function TransferToMaste r(" & FromDt & " , " & ToDt & " , " & BackUp & ", PBR) Called"
End If
On Error GoTo ErrLog
TmpDt1 = FromDt
frmMenu.MousePo inter = vbHourglass
Tmp = Trim(App.Path)
Tmp = Fs.BuildPath(Tm p, "RMV")
If Not Fs.FolderExists (Tmp) Then
Fs.CreateFolder Tmp
End If
Tmp = Fs.BuildPath(Tm p, "Ankur.Rmv" )
If CreateCSVFile(T mpDt, CStr(FromDt), CStr(ToDt), , Tmp, True) Then
' Tmp = Trim(App.Path)
' If Not Right(Tmp, 1) = "\" Then
' Tmp = Tmp & "\"
' End If
' Tmp = Tmp & "Ankur.Rmv"
With frmMsg
.msg = "Transfer to Master"
.Show
For i = 0 To 10000
.msg = "Flushing Data: " & i & " of 10000"
DoEvents
Next
End With
Unload frmMsg
If LoadCSVFile(Tmp , True) Then
ClearDbData frmSplash.Con, FromDt, ToDt
MsgBox "Data Transferred to Master", vbApplicationMo dal + vbInformation + vbOKOnly, "Transfer to Master"
TransferToMaste r = True
Else
If Not Trim(BackUp) = "" Then
RestoreBackUp BackUp
Else
MsgBox "Data Integrity is lost. Please Restore Data from Backup"
End If
TransferToMaste r = False
End If
Else
MsgBox "Unable to Create Transfer File"
End If
EClose:
If TransferToMaste r Then
BackUpDB frmSplash.BackU pDir, False
End If
frmMenu.MousePo inter = vbDefault
Exit Function
ErrLog:
AppErrLog Err, "RMSMod", "TransferToMast er", False
If Not Trim(BackUp) = "" Then
RestoreBackUp BackUp
Else
MsgBox "Data Integrity is lost. Please Restore Data from Backup"
End If
TransferToMaste r = False
GoTo EClose

End Function