"Select sum(jmlh_qty) as SALDO from kartu_stock where kd_brg='" & kd_brg_txt & "
Coba ganti "Select sum(jmlh_qty) as SALDO from kartu_stock where kd_brg='" & kd_brg_txt & "' Group By jmlh_qty" Semoga membantu thanx n regards - NikoJona / freaky - freaky ________________________________ From: mr-BIG <[email protected]> To: Andhika Bayu <[email protected]> Cc: Programmer Indonesia <[email protected]> Sent: Wed, July 28, 2010 2:31:12 PM Subject: [indoprog-vb] Re: Error saya sudah cek koneksi CN-nya hidup ko If cn.State = 1 Then MsgBox "Open" End If ERRornya di baris ini rs2.Open "Select sum(jmlh_qty) as SALDO from kartu_stock where kd_brg='" & kd_brg_txt & "', cn, adOpenDynamic, adLockOptimistic" --- On Wed, 7/28/10, Andhika Bayu <[email protected]> wrote: > From: Andhika Bayu <[email protected]> > Subject: Error > To: [email protected] > Date: Wednesday, July 28, 2010, 1:47 PM > > > pls help, > > Apa yg salah di scrip sy ini, erornya ‘3709’ > (lihat gambar) > > sy pake VB 6 , pada saat diketik jumlah brg pada qty-txt, > maka akan dicek saldo > berdasarkan kd_brg yg diinput > > > > Private Sub qty_txt_Keypress(KeyAscii As Integer) > > Dim rs2 As New ADODB.Recordset > Set rs2 = New ADODB.Recordset > > rs2.Open "Select sum(jmlh_qty) as SALDO > from kartu_stock where kd_brg='" & > kd_brg_txt & "', cn, adOpenDynamic, adLockOptimistic" > > If qty_txt.Text > > SALDO Then > > MsgBox ("SALDO Barang Tidak > Mencukupi...!!"), vbOKOnly, > "Cetak Formulir" > Else > End If > > qty_txt.SetFocus > > End Sub > > > Tks b4 > > > ----- > klo menurut saya Salah Di koneksi Data Base nya > Gan.....coba search ke mbah > google cari nomor error ter sebut......maap klo salah y > > > > [Non-text portions of this message have been removed]
