[Programmer-VB] Tanya error compare DB

Mon, 27 Mar 2006 01:51:46 -0800

salam semua..
saya meng-compare 2 dtbase, guna mencari item yang tidak ada. berikut potongan coding-nya.
 
 RS.Open "SELECT * FROM Inventory where Store_ID='" & CmbStoreID.Text & "'", ConJKT, adOpenStatic, adLockPessimistic
 
 txtNotes.Text = "Jumlah Inventory di Host = " & Rec.RecordCount
 txtNotes.Text = txtNotes.Text & vbCrLf & "Jumlah Inventory di JKT = " & RS.RecordCount
  While RS.EOF = False
   Rec.MoveFirst
   Rec.Find "ItemNum=" & RS.Fields("ItemNum")
   If Rec.EOF Then
    txtNotes.Text = txtNotes.Text & vbCrLf & "Item Number = " & RS.Fields("ItemNum") & " DiHost Tidak Ada!"
   End If
  txtNotes.Refresh
  RS.MoveNext
  Wend
 
setelah saya jalankan, proses berjalan sbntr, kmdian muncul error
Run time error '3001'
"Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another"
 
mohon petunjuk..
kira2, ada script yg lebih mudah ga ya..??
terima kasih,
 
-agus-

Blab-away for as little as 1ยข/min. Make PC-to-Phone Calls using Yahoo! Messenger with Voice.

Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer


YAHOO! GROUPS LINKS



Kirim email ke