Mas Agung, Terima kasih ya. Programnya sudah jadi.
  ----- Original Message ----- 
  From: ageng setia 
  To: [email protected] 
  Sent: Thursday, December 07, 2006 11:06 AM
  Subject: Re: [Programmer-VB] ADODC


  Hallo Semua Pa Khabar

  Begini mas ketika Anda melakukan pencarian anda tidak merefresh nilai-nya. 
Jadi Ketika memberi nilai di text usahakan direfresh adodcnya dengan parsing 
kembali pada pencariannya:
  Coba pelajari Contoh Ini Ya :

  Private Sub Form_Load()
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data 
Source=C:\blaaa\dbblaa.mdb;Persist Security Info=False"
  Adodc1.RecordSource = "SELECT * FROM table WHERE kunci like '%" & 
txt_blaa.Text & "%'"
  Adodc1.Refresh
  Set DataGrid1.DataSource = Adodc1
  End Sub

  Nah Ketika Event txt_blaaa_Change lakukan pencarian kembali:
  Private Sub txt_blaa_Change()
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data 
Source=C:\blaaa\dbblaa.mdb;Persist Security Info=False"
  Adodc1.RecordSource = "SELECT * FROM table WHERE kunci like '%" & 
txt_blaa.Text & "%'"
  Adodc1.Refresh
  Set DataGrid1.DataSource = Adodc1
  End Sub

  Semoga dapat membantu ya dan sukses untuk kita semua

  Best Regards
  ag3ng



  ----- Original Message ----
  From: Frangky <[EMAIL PROTECTED]>
  To: [email protected]
  Sent: Thursday, December 7, 2006 9:22:10 AM
  Subject: Re: [Programmer-VB] ADODC


  select * from tbKaryawan where Perusahaan = "PT. HAMPIR BANGKRUT" saya ketik 
  di Propertiesnya ADODC tapatnya di RecordSource
  ----- Original Message ----- 
  From: "ChipMunks" <[EMAIL PROTECTED] co.id>
  To: "Frangky" <Programmer-VB@ yahoogroups. com>
  Sent: Thursday, December 07, 2006 10:09 AM
  Subject: Re: [Programmer- VB] ADODC

  > Frangky
  > Frangky> Para Pakar VB yang terhormat.
  >
  >
  > Frangky> Didalam form ada 1 Adodc Control dan 2 buah text box yg
  > Frangky> masing saya beri nama txtNamaPegawai dan txtNamaPerusahaan.
  >
  >
  > Frangky> Masalahnya pada Adodc1.RecordSource kalau saya ketik select
  > Frangky> * from tbKaryawan where Perusahaan = '" & txtPerusahaan & "'
  > Frangky> Adodc1-nya tidak aktif. Tetapi kalau Adodc1.RecordSource
  > Frangky> kalau saya ketik select * from tbKaryawan where Perusahaan = "PT. 
  > HAMPIR BANGKRUT"
  > Frangky> Adodc1-nya aktif (bisa dipakai untuk klik tombol Next,Last, dll)
  >
  > itu berarti recordsetnya gak ada ...
  >
  > ini eventnya pada saat apa ? form load ? coba di ganti pake command
  > button ... terus diisi txtPerusahaannya ...
  >
  >
  > Salam,
  > ChipMunks (Copy Paste Programmer)
  > mailto: [EMAIL PROTECTED] co.id
  > Yahoo : Henqy
  > Skype : Hengky_Purnomo
  >
  >
  >
  > Wahana Programmer Groups Links
  >
  > Yahoo! Groups Links
  >
  >
  >







------------------------------------------------------------------------------
  Need a quick answer? Get one in minutes from people who know. Ask your 
question on Yahoo! Answers.  

Kirim email ke