Hehehe iya :P Terjadi kesalahpahaman Maklum jam ngantuk hehehe Maaf ya thanx n regards
- NikoJona / freaky - freaky ________________________________ From: Dena d <[email protected]> To: [email protected] Sent: Wed, July 28, 2010 3:46:29 PM Subject: Re: [indoprog-vb] Re: Error betul juga ya.., coba dicek kalo ada sum, avg, count, dkk biasanya diikuti group by. tapi menurut saya "group by"-nya kd_brg bukan jmlh_qty. tk. --- On Wed, 7/28/10, Nickolas Jonathan <[email protected]> wrote: From: Nickolas Jonathan <[email protected]> Subject: Re: [indoprog-vb] Re: Error To: [email protected] Date: Wednesday, July 28, 2010, 3:34 AM "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] [Non-text portions of this message have been removed] [Non-text portions of this message have been removed]
