permisi agan" dan aganwati ane mau minta bantuannya nih yang dah pada master"
ini program ane kenapa ya ada tulisannya gini
Spoiler for ini gan SS nya:
data provider or other service returned an E_FAIL STATUS.
terus kalau ane klik debug nya
Spoiler for ini gan SS nya:
[/img]
di IF not RSPembelian.EOF then nya muncul warna kuningnya
kira" ane salah dimana ya gan ? mohon bantuannya gan yang udah pada master vb6
jadi kalau ane klik no fakturnya pengennya muncul dah data nya pembelian tadi
Spoiler for sourcodenya:
Code:
Private Sub Form_Load()
On Error Resume Next
'buka database
Call BukaDB
'bersihkan dulu list
List1.Clear
'cari nomor faktur di tabel pembelian
RSPembelian.Open "Select Distinct Faktur from Pembelian ", Conn
'tampilkan di list
Do Until RSPembelian.EOF
List1.AddItem RSPembelian!Faktur
RSPembelian.MoveNext
Loop
Conn.Close
Call Gelap
End Sub
'ketika salah satu faktur dipilih, maka...
Private Sub list1_click()
'buka database
Call BukaDB
Conn.CursorLocation = adUseClient
'cari data pembelian yang fakturnya dipilih
RSPembelian.Open "select * from Pembelian where Faktur='" & List1.Text & "'", Conn
RSPembelian.Requery
'jika ditemukan tampilkan tanggalnya
If Not RSPembelian.EOF Then Text8 = RSPembelian!Tanggal
'buka tabel pemasok yang ada di tabel pembelian sesuai noor faktur
RSPemasok.Open "select * from pemasok where KodePms='" & RSPembelian!KodePms & "'", Conn
'jika ditemukan tampilkan data-datanya
If Not RSPemasok.EOF Then
Text1 = RSPemasok!KodePms
Text2 = RSPemasok!NamaPms
Text3 = RSPemasok!AlamatPms
Text4 = RSPemasok!TeleponPms
Text5 = RSPemasok!PersonPms
End If
'buka tabel kasir yang kodenya disimpan di tabel pembelian berdasarkan nomor faktur
RSKasir.Open "select * from Kasir where KodeKsr='" & RSPembelian!kodeksr & "'", Conn
'jika ditemukan tampilkan kode dan nama kasir
If Not RSKasir.EOF Then
Text6 = RSKasir!kodeksr
Text7 = RSKasir!NamaKsr
End If
Conn.Close
'hubungkan objek adodc ke database
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=root;Data Source=dbbeli"
'tampilkan nama barang, harga beli, jumlah beli dan total di tabel pembelian,detail beli yang fakturnya dipilih dalam list
Adodc1.RecordSource = "select NamaBrg as [Nama Barang], HargaBeli as [Harga Beli],JmlBeli as Jumlah, HargaBeli*JmlBeli as Total from Barang,detailBeli where DetailBeli.kodeBrg=Barang.kodeBrg and Faktur='" & List1.Text & "'"
Adodc1.Refresh
'hubungkan datagrid1 dengan objek adodc
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
'tampilkan total dan item
Call Total
Call Item
End Sub
Private Sub List1_keyPress(Keyascii As Integer)
If Keyascii = 27 Then Unload Me
End Sub
'mencari jumlah total item barang
Function Item()
Adodc1.Recordset.MoveFirst
Jumlah = 0
Do While Not Adodc1.Recordset.EOF
Jumlah = Jumlah + Adodc1.Recordset!Jumlah
Adodc1.Recordset.MoveNext
Loop
Text9 = Jumlah
End Function
'mencari jumlah total harga beli
Function Total()
Adodc1.Recordset.MoveFirst
Jumlah = 0
Do While Not Adodc1.Recordset.EOF
Jumlah = Jumlah + Adodc1.Recordset!Total
Adodc1.Recordset.MoveNext
Loop
Text10 = Jumlah
End Function
[/img]
mohon bantuannya gan yang udah pada master vb6 
