kode itu bisa dijadikan stored procedure (SP) nya SQL Server Txtidsurat dan #DTPicker1 # dijadikan parameter SP nya lalu SP nya bisa dipanggil dengan VB
cari cara panggi SP mengenai Stored Procedure bisa lihat di sini: http://www12.asphost4free.com/hartoto/frmInputJwb.asp?Kode=T81 ---------------------------------------------------------------------------------------------------------------------------- * Software Developer Solution - XBasicPro Flexi:061-77783749 http://xbasicpro.brinkster.net m i r r o r http://www12.asphost4free.com/hartoto ----- Pesan Asli ---- Dari: madhe <[EMAIL PROTECTED]> Kepada: [email protected] Terkirim: Kamis, 21 Agustus, 2008 10:09:21 Topik: Re: [indoprog-vb] pencarian dua kriteria kalau pencarian dengan 2 kriteria atau lebih, gunakan sql pak, kalau metode yang bapak lakukan tidak bisa. mis begini pak : select idsurat, nosurat, perihal, asalsurat, tglsurat, tglmasuk from namatabel where IDsurat=Txtidsurat and tglmasuk=#DTPicker1 #. ini secara global saja pak, untuk penggunaanya dengan code vb. http://cerita- gwe.blogspot. com ----- Original Message ---- From: dedy purnama <dedy_purnama82@ yahoo.co. id> To: indoprog-vb@ yahoogroups. com Sent: Wednesday, August 20, 2008 8:49:40 AM Subject: [indoprog-vb] pencarian dua kriteria Gimana yah pencarian 2 kriteria pada vb pada satu perintah cthnya saya mau cari IDsurat(Txtidsurat) dan Tgl/Bln/Thn( DTPicker1) cth perintah dengan pencarian 1 kriteria Private Sub Txtidsurat_KeyPress (KeyAscii As Integer) On Error GoTo Selesai If KeyAscii = 13 Then Txtnosurat.SetFocus TSuratMasuk. Find ("idsurat ='" & Me.Txtidsurat & "'") Txtidsurat.Text = TSuratMasuk. Fields("idsurat" ) Txtnosurat.Text = TSuratMasuk. Fields("nosurat" ) Txtperihal.Text = TSuratMasuk. Fields("perihal" ) Txtasalsurat. Text = TSuratMasuk. Fields("asalsura t") Dttgl = TSuratMasuk. Fields("tglsurat ") DTPicker1 = TSuratMasuk. Fields("tglmasuk ") Bprint.Enabled = True TSuratMasuk. Requery Call Locked1 End If Exit Sub Selesai: MsgBox "Data Tidak DiTemukan!", vbCritical, "Ditemukan" Btambah.Enabled = True End Sub klo untuk 2 kriteria gimana yah ? ____________ _________ _________ _________ _________ _________ _ Dapatkan alamat Email baru Anda! Dapatkan nama yang selalu Anda inginkan sebelum diambil orang lain! http://mail. promotions. yahoo.com/ newdomains/ id/ [Non-text portions of this message have been removed] [Non-text portions of this message have been removed] ___________________________________________________________________________ Dapatkan nama yang Anda sukai! Sekarang Anda dapat memiliki email di @ymail.com dan @rocketmail.com. http://mail.promotions.yahoo.com/newdomains/id/ [Non-text portions of this message have been removed]
