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
>
>
>
>
