AccessTr.neT
Arama - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Örnekleri ve Uygulamaları (https://accesstr.net/forum-visual-basic-6-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Arama (/konu-arama--5787.html)

Sayfalar: 1 2


Arama - arzuu - 19/01/2010

Eklenecek nesneler
option1=kitap adına göre arama
option2=yazar adına göre arama
text1
datagrid1 ,adodc1(Bu işlemi Ctrl+T ile yapabildiğimiz gibi Menü çubuğundan Project>Components i seçerek de yapabiliriz. Microsoft ADO Data Control 6.0 ) Microsoft DataGrid Control 6.0 ))
kitap.mdb , t_kitapgiris tablosu=KitapAd ve Yazar alanlarını ekliycez.

Adodc1 sağ tıklayıp "General" sekmesinde 3. kısım olan "Use Connection String" Bölümündeki "Build" butonunu basalım. Açılan kısımdaki listeden "Microsoft 4.0 Jet OLE DB provider'i seçelim ve ileri butonuna basarak sonraki pencereden veritabanımızı (kitap.mdb) yerini belirtelim. "Tamam" butonu ile bu pencereyi kapatalım.

Adodc1:visible=false
Adodc1:enabled=true
Datagrid1:datasource=adodc1

Kod:
Private Sub Text1_Change()
If Option1.Value=True Then
Adodc1.CommandType=adCmdUnknwn
Adodc1.RecordSource="select * form t_kitapgiris where[KitapAd]Like'"& _
Trim(Ucase(Text1.Text)) & "%'"
Adodc1.Refresh
End If

If Option2.Value=True Then
Adodc1.CommandType=adCmdUnknwn
Adodc1.RecordSource="select * form t_kitapgiris where[Yazar]Like'"& _
Trim(Ucase(Text1.Text)) & "%'"
Adodc1.Refresh
End If
End Sub




Cvp: Arama - accessman - 19/01/2010

teşekkürler arzuu hanım
bu vb mi yoksa Access örneğimi tam anlayamadım
keşke örneği ekleme imkanınız olmuş olsa idi


Cvp: Arama - arzuu - 19/01/2010

vb örneği sn accessman


Cvp: Arama - ogulcan92 - 19/01/2010

Sn:Arzu Hanım
Paylaşım için teşekkürler.


Cvp: Arama - Puletin - 19/01/2010

sn.arzuu paylaşım için teşekkürler


Cvp: Arama - benremix - 19/01/2010

Sn Arzu hanım paylaşım için teşekkürler. Saygılar...