field mana yang digunakan? hargasatuan atau HargaSatuanAwal? soale di
rsJenis=hargasatuan tapi di txtHargaSatuan=HargaSatuanAwal
On Wed, 28 Nov 2007 07:11:00 +0700, adhy nunu <[EMAIL PROTECTED]>
wrote:
>
> Rekan, adakah yang bisa bantu?
>
> saya punya masalah dengan vb dimana ketika di run selalu muncul error :
> Microsoft Visual Basic
>
> Run-Time error '3001':
> Arguments are of the wrong type, are out of acceptable range, or are in
> confilct with one another
>
> 1. Kenapa
> 2. Bagaimana penyelesaiannya?
>
> terima kasih sebelumnya..
>
> Catatan : sudah searching google, tapi belum ada yang mempan. (belum
> semua hasil searching dibuka siy, tp beberapa yang dicoba selalu gak
> berhasil)
>
> = = = = = = = = = = = = = = = = = = = =
>
> code nya :
>
> Private Sub cmbJnsATK2_Click()
> Set rsJenis = New ADODB.Recordset
> ' baris ini yang selalu error 3001
> rsJenis.Open "select satuan, hargasatuan from ATK where JenisATK = '"
> & cmbJnsATK2.Text & "'", cn, adOpenDynamic, adLockOptimistic
> txtSatuan.Text = rsJenis("Satuan")
> txtHargaSatuan.Text = rsJenis("HargaSatuanAwal")
>
> end sub
>
> Private Sub Form_Load()
> Set cn = New ADODB.Connection
> cn.Provider = "microsoft.jet.oledb.4.0"
> cn.CursorLocation = adUseClient
> cn.Open App.Path & "\atk.mdb"
> Set rs2 = New ADODB.Recordset
> cmbJnsATK2.Clear
> rs2.Open "select list from listATK", cn, adOpenDynamic,
> adLockOptimistic
> Do While Not rs2.EOF
> cmbJnsATK2.AddItem rs2("list")
> rs2.MoveNext
> Loop
> cmbJnsATK2.ListIndex = 0
>
> end sub
>
>
>
>
>
>
> Disclaimer: Although this message has been checked for all known viruses
> using Trend Micro InterScan Messaging Security Suite, Bukopin
> accept no liability for any loss or damage arising
> from the use of this E-Mail or attachments.
--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/
Send instant messages to your online friends http://asia.messenger.yahoo.com
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
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/Programmer-VB/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
