rekans,
field di tabel = HargaSatuanAwal
di SQl = HargaSatuanAwal
Masih error 3001.
Iseng-iseng saya coba buat form baru, nama recordset yang baru, jadilah spt ini
:
Private Sub cmbJenisATK_Click()
Set rsJns = New ADODB.Recordset
rsJns.Open "select JenisATK, satuan, HargaSatuanAwal from ATK where JenisATK
='" & cmbJenisATK.Text & "'", cn, adOpenDynamic, adLockOptimistic
txtSatuan.Text = rsJns("Satuan")
txtHargaSatuanAwal.Text = rsJns("HargaSatuanAwal")
End Sub
Sayang nya, masih error 3001.
Ada saran lain?
----- Original Message -----
From: adhy nunu
To: [email protected]
Sent: Wednesday, November 28, 2007 8:42 PM
Subject: Re: help me
Ups,... maaf saya salah kirim. Berikut ini HargaSatuan sudah diganti menjadi
HargaSatuanAwal. Errornya 3001.
Thx B4.
code nya :
Private Sub cmbJnsATK2_Click()
Set rsJenis = New ADODB.Recordset
' baris ini yang selalu error 3001
rsJenis.Open "select satuan, HargaSatuanAwal 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.
