iya betul itu yang di ceatk tebal..

tapi daripada pake adodc lebih enak kl pk adodb..

lebih sip codingnya..

--- On Tue, 2/16/10, Awin <[email protected]> wrote:

From: Awin <[email protected]>
Subject: Re: [Programmer-VB] cara save / add record command button via textbox
To: [email protected]
Date: Tuesday, February 16, 2010, 8:31 AM







 



  


    
      
      
      betul betul betul ....
ada yang kurang...
seharusnya.. (yang kurang sy cetak tebal ya ...)

Private Sub cmd_save_Click( )
    With Adodc1.Recordset
        .AddNew   'ini kalo penambahan data/Data baru
        !Nama = txt_nama.text
        !tempat = txt_tempat.text
        !tglahir = txt_tglahir. text
        !kelamin = txt_kelamin. text
        !alamat = txt_alamat.text
        !rtrw =
 txt_rtrw.text
        !desa = txt_kel.text
        !kecamatan = txt_kec.text
        !agama = txt_agama.text
        !Status = txt_nikah.text
        !kerja = txt_job.text
        !berlaku = txt_expire.text
        !warga = txt_warga.text
        .Update
    End With
End Sub

Semoga membantu .....

--- On Tue, 2/16/10, larry marzan <joen_m...@yahoo. com> wrote:

From: larry marzan
 <joen_m...@yahoo. com>
Subject: [Programmer- VB] cara save / add record command button via textbox
To: "Programmer VB" <Programmer-VB@ yahoogroups. com>
Date: Tuesday, February 16, 2010, 10:32 AM







 



    
      
      
      Dear all,
saya ingin tau caranya save record command button yang recordnya berasal dari 
textbox.
saya menggunakan database mdb.
berikut coding saya.

Private Sub cmd_save_Click( )
!nama = txt_nama.Text
!tempat = txt_tempat.Text
!tglahir = txt_tglahir. Text
!kelamin = txt_kelamin. Text
!alamat = txt_alamat.Text
!rtrw = txt_rtrw.Text
!desa = txt_kel.Text
!kecamatan = txt_kec.Text
!agama = txt_agama.Text
!Status = txt_nikah.Text
!kerja = txt_job.Text
!berlaku = txt_expire.Text
!warga = txt_warga.Text

End Sub

Private Sub Form_Load()

Adodc1.ConnectionSt ring = "Provider=Microsoft .Jet.OLEDB.
 4.0; " & _
"Data Source=C:\Program Files\joenware\ Pengloahan KTP\data\dbKTP. mdb"
Adodc1.RecordSource = "SELECT * FROM T_PENDUDUK"
Adodc1.Refresh

End Sub

nah waktu dijalankan dan
 mengklik command button "cmd_save" yang terjadi muncul compile error: "invalid 
or unqualified reference"

apakah ada yang kurang dari coding ini..?
mohon pencerahan.. . Thank's.



      

    
     



 





      

    
     

    
    


 



  






      

Kirim email ke