Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
19/01/2010 10:54
Konu Sahibi
arzuu
Yorumlar
8
Okunma
3195
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

arzuu

desire
Aktivasyon Bekleyen
 28
341
17/02/2009
-
Ofis XP
24/04/2010,10:04
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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



Kullanici Avatari

accessman

Aktif Üye
Aktif Üye
 Belirtilmemiş
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
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


@benbendedeilem

Kullanici Avatari

arzuu

desire
Aktivasyon Bekleyen
 28
341
17/02/2009
-
Ofis XP
24/04/2010,10:04
vb örneği sn accessman



Kullanici Avatari

ogulcan92

Aktif Üye
Aktif Üye
 53
1.159
06/05/2009
480
İzmir
Ofis 2003
07/08/2015,11:50
Sn:Arzu Hanım
Paylaşım için teşekkürler.



Kullanici Avatari

Puletin

Onursal Üye
Onursal Üye
 Belirtilmemiş
1.716
01/11/2008
416
-
Ofis 2003
24/12/2016,00:18
sn.arzuu paylaşım için teşekkürler


Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...

Kullanici Avatari

benremix

Onursal Üye
Onursal Üye
RA.... SO....
 51
4.440
17/05/2009
365
Ankara
Şirket Sahibi
Ofis 2010 64 Bit
08/07/2018,19:27
Sn Arzu hanım paylaşım için teşekkürler. Saygılar...


Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  TextBox İçerisinde İçerik Arama ogulcan92 5 2.903 10/03/2012, 19:26
Son Yorum: benremix
  Vb 6 Arama Rapor Sorgu İle Basit Örnekler |By|KiDnArUt| 4 3.830 26/05/2011, 17:13
Son Yorum: |By|KiDnArUt|

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.