new bie mau nanya nih kepada para senior2 programer....
bagaimana cara mengisertkan file per-record dari data dbf ke ms access.
Logicnya gini :
1. Database1
2. Database2
database 1 dan 2 metadatanya sama.
jadi pengen bikin skenario pengen update database 2 dari database 1
skenarionya gini :
1. open database1
2. open database2
3. select * from database2 where nip.database2 like nip.database1
4. Jika ditemukan update field database12 dengan database1
5. Jika tidak ditemukan insert database2 dengan database1
Mohon pencerahannya nya
Jadi proses bisnisnya gini
1. server diletakkan di pusat
2. setiap 1 minggu sekali cabang menyetor data ke pusat
Pertanyaannya gimana caranya mengupdate database di server dengan
database di cabang
Mohon maap jika pertanyaanya tidak mudah dipahami. Terimakasih
Private Sub Command3_Click()
Dim SQL As String
Dim OS As Long
'Koneksi 1
'Panggil Data dari DBF FIle
SQL = " SELECT * From TRDOS "
cek_rsLevel1
With rsLevel1
.ActiveConnection = m_SourceConn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Source = SQL
.Open
End With
'Koneksi ke 2
' Panggil Data dari data base utama
SQL = " SELECT * From TRDOS WHERE NIPNSTRDOS LIKE '" &
rsLevel1.Fields("NIPNSTRDOS") & "'"
cek_rsLevel2
With rsLevel2
.ActiveConnection = cn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Source = SQL
.Open
End With
'koneksi ke 3
SQL = " SELECT * From TRDOS "
cek_rsLevel3
With rsLevel3
.ActiveConnection = cn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Source = SQL
.Open
End With
While Not rsLevel2.EOF
'jika data ditemukan maka Update
If rsLevel3.RecordCount > 0 Then
pb1.Max = rsLevel1.RecordCount: pb1.Min = 0
OS = OS + 1
pb1.Value = OS
While Not rsLevel2.EOF
cn.Execute "Update TRDOS SET rsLevel3(0) = '" & rsLevel1(0) & _
"' rsLevel3(1) = '" & rsLevel1(1) & _
"' rsLevel3(2) = '" & rsLevel1(2) & _
"' rsLevel3(3) = '" & rsLevel1(3) & _
"' rsLevel3(4) = '" & rsLevel1(4) & _
"' rsLevel3(5) = '" & rsLevel1(5) & _
"' rsLevel3(6) = '" & rsLevel1(6) & _
"' rsLevel3(7) = '" & rsLevel1(7) & _
"' rsLevel3(8) = '" & rsLevel1(8) & _
"' rsLevel3(9) = '" & rsLevel1(9) & _
"' rsLevel3(10) = '" & rsLevel1(10) & _
"' rsLevel3(11) = '" & rsLevel1(11) & _
"' rsLevel3(12) = '" & rsLevel1(12) & _
"' rsLevel3(13) = '" & rsLevel1(13) & _
"' rsLevel3(14) = '" & rsLevel1(14) & _
"' rsLevel3(15) = '" & rsLevel1(15) & _
"' rsLevel3(16) = '" & rsLevel1(16) & _
"' rsLevel3(17) = '" & rsLevel1(17) & _
"' rsLevel3(18) = '" & rsLevel1(18) & _
"' "
rsLevel2.MoveNext
Wend
MsgBox "Data DI Update: ", vbInformation, "informasi"
pb1.Value = 0
'Jika data tidak ditemukan tambah
Else
pb1.Max = rsLevel1.RecordCount: pb1.Min = 0
While Not rsLevel1.EOF
OS = OS + 1
pb1.Value = OS
rsLevel2.AddNew
rsLevel2(0) = rsLevel1(0)
rsLevel2(1) = rsLevel1(1)
rsLevel2(2) = rsLevel1(2)
rsLevel2(3) = rsLevel1(3)
rsLevel2(4) = rsLevel1(4)
rsLevel2(5) = rsLevel1(5)
rsLevel2(6) = rsLevel1(6)
rsLevel2(7) = rsLevel1(7)
rsLevel2(8) = rsLevel1(8)
rsLevel2(9) = rsLevel1(9)
rsLevel2(10) = rsLevel1(10)
rsLevel2(11) = rsLevel1(11)
rsLevel2(12) = rsLevel1(12)
rsLevel2(13) = rsLevel1(13)
rsLevel2(14) = rsLevel1(14)
rsLevel2(15) = rsLevel1(15)
rsLevel2(16) = rsLevel1(16)
rsLevel2(17) = rsLevel1(17)
rsLevel2(18) = rsLevel1(18)
rsLevel2.Update
rsLevel1.MoveNext
Wend
MsgBox "Data di tambah : ", vbInformation, "informasi"
pb1.Value = 0
End If
rsLevel2.MoveNext
Wend
End Sub
