kepada dehen
untuk manipulasi data mengunakan dao saya kurang terlalu menguasai.
tetapi pengalaman saya mengunakan dao waktu kuliah, tidak pernah
terjadi, karena :
setiap saya mau menambah data, sebelum addnew, saya selalu melakukan
pencarian data terlebih dahulu, apakah data sudah ada atau tidak
mengunakan index atau mengunakan pencarian sekuensial
databarang.index=kodebarang
msyarat = "kodebarang='" & tkode.text & "'"
databarang.find msyarat
if databarang.eof then
databarang.addnew
bla bla bla
databarang.update
end if
untuk edit juga harus dilakukan pencarian terlebih dahulu, karena jika
tidak akan terjadi redudancy data ( jika anda tidak mengunakan PK
ditabel), atau tidak terjadi redudancy data/ data double tetapi anda
akan mengalami kesalahan dalam memanupulasi data karena pada saat
recordset ( databarang - red, maskudnya ) record akan aktif pada
record ke - n, atau record ke -1 , atau record akhir, sehingga jika
anda tidak pakai kriteria pencarian terlebih dahulu kodebarang maka
akan mengupdate record yang lainnya, sehingga data anda akan salah,
kacau.
setahu saya ada buku pemrograman vb dengan dao sech tapi udh lama
kira2 range tahun 2003-2006, coba anda lihat utk lebih detailnya
nama penulisnya yuniar supardi ( pa yuniar itu dosen saya loh, promo
nech, dosen Amik Bogor, Jln. Pajajaran no 31, warung jambu, bogor,
jawa timur, promo boleh donk, itulah maksudnya diadakan ospek supaya
jiwa akademis tetap melekat dihati kita, walau kita sudah akademis)
wakakakakakaak, till we meet again in cyber world, farewell, kuppo
--- In [email protected], "D.N.Adam" <[EMAIL PROTECTED]> wrote:
>
> Teman-teman, mohon bantuannya. Mengapa saya buat program di VB 6.0 utk
> Edit Data, Kok kondisi logikanya tdk menuju script utk Edit
> Datanya..? Malah menganggap saya menambah Data Baru. Pdhal saya cuman
> mau edit Stok Barangnya.Apakah ada kesalahan logika untuk Tambah atau
> Editnya karena saya buat kondisi Tambah(AdNew) & Edit(Edit) jadi satu
> dgn tombol command button SIMPAN.Coding sbb:
>
> If txtkdbrg = "" Or TxtNama = "" Or txthargabeli = "" Or txthargajual
> = "" Or txtstockmin = "" Then
> X = MsgBox("Data Tidak Boleh Kosong...!", 0, "Informasi")
> Exit Sub
> Else
>
> If CmdSimpan.Enabled = True Then
> 'On Error GoTo ErrorHandler
> DataBrg.Recordset.AddNew
> DataBrg.Recordset!kdbrg = txtkdbrg.Text
> DataBrg.Recordset!nama = TxtNama.Text
> DataBrg.Recordset!hargabeli = txthargabeli.Text
> DataBrg.Recordset!hargajual = txthargajual.Text
> DataBrg.Recordset!stockmin = txtstockmin.Text
> datajenisbrg.Recordset.AbsolutePosition = cmbjenisbrg.ListIndex
> DataBrg.Recordset!kdjenis = datajenisbrg.Recordset!kdjenis
> DataBrg.Recordset.Update
> Call PosisiAwal
> Call txtkosong
> 'On Error Resume Next
> 'On Error GoTo 0
> ElseIf CmdEdit.Enabled = True Then
> DataBrg.Recordset.Edit
> DataBrg.Recordset!nama = TxtNama.Text
> DataBrg.Recordset!hargabeli = txthargabeli.Text
> DataBrg.Recordset!hargajual = txthargajual.Text
> DataBrg.Recordset!stockmin = txtstockmin.Text
> datajenisbrg.Recordset.AbsolutePosition = cmbjenisbrg.ListIndex
> DataBrg.Recordset!kdjenis = datajenisbrg.Recordset!kdjenis
> DataBrg.Recordset.Update
> End If
> End if
> End Sub
>
