halo sarwan,
coba di sub tutup dbasenya pake' koneksi.close yang lain hapus aja.
salam,
lukman.
Sarwan Arifin <[EMAIL PROTECTED]> wrote:
hi all,
lagi dapat masalah pas mau insert data ke dbase nya nih, mohon
pertolongan nya,
masalah seperti ini :
- Koneksi nya saya bikin di modul1 dg kode sbb :
'=============================================
Public koneksi As New ADODB.Connection
Public rsMasterBarang As New ADODB.Recordset
Public rsPelanggan As New ADODB.Recordset
Public rsPemasok As New ADODB.Recordset
Public rsStok As New ADODB.Recordset
'=============================================
Sub BukaDbase()
koneksi.CursorLocation = adUseClient
koneksi.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & App.Path & "\dbInventory.mdb;Persist Security Info=False"
koneksi.Open
rsMasterBarang.Open "tblBarang", koneksi, adOpenDynamic,
adLockOptimistic
rsPelanggan.Open "tblPelanggan", koneksi, adOpenDynamic,
adLockOptimistic
'rsPembelianDetail.Open "tblNotaBeliDetail", koneksi,
adOpenDynamic, adLockOptimistic
rsStok.Open "tblStok", koneksi, adOpenDynamic, adLockOptimistic
End Sub
'=============================================
Sub TutupDbase()
koneksi.Close
rsMasterBarang.Close
rsPelanggan.Close
rsStok.Close
End Sub
- Trus kode di button insert nya sbb :
'=============================================
Private Sub cmdSimpan_Click()
Dim msql As String
Call BukaDbase
koneksi.BeginTrans
msql = "insert into tblPemasok(Kode,Nama,Alamat,Telp,Kota)" & _
" values('" & txtKode.Text & "','" & txtNama.Text & "','"
& txtAlamat.Text & "','" & txtTelp.Text & "','" & txtKota.Text & "')"
koneksi.Execute (msql)
koneksi.CommitTrans
Call TutupDbase
End Sub
'=============================================
- Keluar error sbb :
Run-time error '3704':
Operation is not allowed when the object is closed
padahal di sub BukaDbase kan sudah ada perintah koneksi.open
pas di debug pointer mengarah ke koneksi.BeginTrans
Mohon pencerahannya...
Terima kasih
Sarwan
---------------------------------
Bergabunglah dengan orang-orang yang berwawasan, di bidang Anda di Yahoo!
Answers
[Non-text portions of this message have been removed]
