Beberapa hari yang lalu saya dapat email dari teman, ini isi emailnya:
Mbak, saya merasa bingung dalam pencarian data dengan menggunakan dua form.
Misal :
- Form1 terdiri dari field IdNama (textbox1), Nama ((textbox2), Alamat (textbox3), Telpon (textbox3) dan sudah saya isi semua datanya sampai dengan 10 record.
- Form2 adalah form pencarian yang terdiri dari field IdNama.
Yang saya tanyakan : Bagaimana coding pencarian di form2 untuk mencari data di form1 berdasarkan IdNama (textbox1). saya menggunakan ADODC untuk koneksi database.
Alur : di form1 saya beri commondbuton dan saya beri nama pencarian data, kemudian setelah di klik akan tampil form2 yaitu form pencarian data. Di form2 tersebut terdapat textbox1 yaitu untuk pengisian data pencarian IdNama, setelah diisi data IdNama yang sesuai dan diklik commondbuton cari yang ada di form2, maka data yang dicari akan tampil di form1 dan bila mana IdNama tidak ada akan keluar pesan “Maaf, Data yang dicari tidak ada”.
Sebelumnya saya mengucapkan terimakasih banyak atas bantuannya
Hormat saya,
WINARKO
Makasih buat yang sudah kirim email ke saya. Padahal saya bukan ahlinya. Tapi saya akan coba jawab.
Pada intinya, caranya adalah sama. Cuma tinggal tambahin aja di Recordsource ADODCnya untuk buka dari data di Form 1.
Dari file saya kemarin, saya tambahkan 1 form baru untuk lihat data mahasiswa yang baru saja diinputkan dari form 1.
Tampilan Form 3
Dan Sorce Codenya adalah sebagai berikut :
Private Sub Form_Load()
Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\MHS.mdb;Persist Security Info=False”
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = “select * from mhs where nrp=’” & frmMAINT.txtNRP & “‘ order by nrp”
Adodc1.Refresh
DataGrid1.Refresh
For i = 0 To Adodc1.Recordset.RecordCount – 1
Combo1.AddItem Adodc1.Recordset.Fields(“nrp”)
Adodc1.Recordset.MoveNext
Next i
Combo1.Text = frmMAINT.txtNRP
End Sub
frmMaint adalah nama form1 yang ada di file sebelumnya. Setelah menginputkan data di Form1, setelah menekan tombol maka akan tampil data ke form3.
Semoga menjawab pertanyaan Anda. Jika Anda ingin bertanya lebih lanjut masalah VB, Anda bisa gabung di milis http://groups.yahoo.com/group/indoprog-vb/
