Re: [Programmer-VB] Metode Save

Tue, 17 May 2005 17:17:45 -0700

Rekanz Edi,
 
Bagi saya pribadi sebenarnya masalah, meski metode find yang dimaksud berbeda-beda. Untuk standar saya pribadi, saya biasa gunakan model find (composite maupun tunggal) dan jika tidak ditemukan posisinya AddNew, sedangkan jika tidak posisinya Edit.
 
If .eof then
    .addnew
else
    .edit
endif
 
Atau ada komentar lain ? Atau ada yang menggunakan model stored procedure ?
 
Vavai 
----- Original Message -----
From: "Edi Susanto" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Tuesday, May 17, 2005 9:44 PM
Subject: [Programmer-VB] Metode Save

> Menurut rekan2, efektifkah kalo kita ingin membuat prosedur save dengan
> metode Find, ini saya sertakan contoh code yang saya maksud ?
> Mohon masukannya...
> Thx
> Edi susanto
> ------------------------------------------------------
> With KoneksiUtama.rstblMutasiCek
>         .MoveFirst
>         .Find "NoCek = '" & Trim(txtNoCek.Text) & "'"
>         If .EOF Then
>             KoneksiUtama.rstblMutasiCek.AddNew
>                 KoneksiUtama.rstblMutasiCek.Fields("NoCek") = txtNoCek.Text
>                 KoneksiUtama.rstblMutasiCek.Fields("CustomerID") =
> txtCustomerID.Text
>                 KoneksiUtama.rstblMutasiCek.Fields("TanggalKeluar") =
> Format(cmbTanggalKeluar.Value, "dd/mm/yyyy")
>                 KoneksiUtama.rstblMutasiCek.Fields("JumlahTicket") =
> txtJumlahTicket.Text
>                 KoneksiUtama.rstblMutasiCek.Update
>        
>                 MsgBox "Penambahan No Cek : " & txtNoCek.Text & " berhasil
> !", vbInformation, "Sukses"
>         Else
>                 If MsgBox("No Cek : " & txtNoCek.Text & " sudah ada, apakah
> anda ingin menyimpan perubahan datanya ?", vbYesNo, "Simpan Perubahan Data")
> = vbYes Then
>                     KoneksiUtama.rstblMutasiCek.Fields("NoCek") =
> txtNoCek.Text
>                     KoneksiUtama.rstblMutasiCek.Fields("CustomerID") =
> txtCustomerID.Text
>                     KoneksiUtama.rstblMutasiCek.Fields("TanggalKeluar") =
> Format(cmbTanggalKeluar.Value, "dd/mm/yyyy")
>                     KoneksiUtama.rstblMutasiCek.Fields("JumlahTicket") =
> txtJumlahTicket.Text
>                     KoneksiUtama.rstblMutasiCek.Update
>                     MsgBox "Perubahan Data No Cek : " & txtNoCek.Text & "
> berhasil disimpan", vbExclamation, "Suskes"
>                 Else
>                     txtNoCek.SetFocus
>                     txtNoCek.SelStart = 0
>                     txtNoCek.SelLength = 7
>                     Exit Sub
>                 End If
>         End If
>     End With

Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]


Yahoo! Groups Links

Kirim email ke