Re: [Programmer-VB] Coding Eror ..!! Tidak Mau Ke Kondisi/Logika Edit Data...?

[Liungs]

Sepertinya kondisi cmdSimpan.Enabled selalu dalam kondisi True, jadi program 
selalu memproses Recordset.AddNew.
Coba anda telusuri lagi logikanya.

Untuk gambaran logika, bisa diakali dengan mendeklarasikan variabel (misalnya 
strStatus).
Pada saat user meng-klik "Add New", strStatus di-set jadi "Add" ; sebaliknya 
kalau user meng-klik "Edit", strStatus jadi "Edit"

Jadi pada saat cmdSimpan_click() :
If strStatus="Add"
    DataBrg.Recordset.AddNew
    'Isi field-fied nya
    DataBrg.Recordset.Update
else
    'Tidak perlu add new, langsung Isi field-field nya
    DataBrg.Recordset.Update
endif

Selain pakai Recordset.AddNew atau Update, anda bisa gunakan juga SQL query.
Jadi code nya kira2 begini :
Connection.Execute "insert namatable (kode, nama) values('" & txtKode.Text & 
"', '" & txtNama.Text & "')
atau
Connection.Execute "update namatable set nama = '" & txtNama.Text & "' where 
kode = '" & txtKode.Text & "'"
Setelah di-execute, DataBrg.Refresh supaya recordset nya up-to-date.

Thanks
Liung's
www.apktntajd.com (Ape Kate Ente Aje Deh!)

  ----- Original Message ----- 
  From: D.N.Adam 
  To: Programmer-VB@yahoogroups.com 
  Sent: Tuesday, June 19, 2007 10:32 AM
  Subject: [Programmer-VB] Coding Eror ..!! Tidak Mau Ke Kondisi/Logika Edit 
Data...?


  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



  .