''''''''''Connection For Mover.MDB file for transfering data from Trant.MDb to Mover.MDB
If RecvKKL_Cnn.State = 1 Then RecvKKL_Cnn.Close
RecvKKL_Cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\Mover.mdb;Jet OLEDB:Database Password=xxxxxxxx"
If RecvLCL.State = 1 Then RecvLCL.Close
RecvLCL.Open "select * from B_Detail WHERE LsNo = " & Text1(18).text & " and Check = 1", con, adOpenKeyset, adLockOptimistic
If RecvKKL.State = 1 Then RecvKKL.Close
RecvKKL.Open "Select * from B_Detail", RecvKKL_Cnn, adOpenKeyset, adLockOptimistic
If RecvLCL.RecordCount > 0 Then
While Not RecvLCL.EOF
RecvKKL!bno = RecvLCL!bno
RecvKKL!Mode = RecvLCL!Mode
RecvKKL!bdate = RecvLCL!bdate
RecvLCL.MoveNext
Wend
End If
|