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

Derecelendirme: 0/5 - 0 oy
arzuu

arzuu

Aktivasyon Bekleyen
 29
 38
 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



accessman

accessman

Aktif Üye
 Belirtilmemiş
 561
 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

arzuu

arzuu

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



ogulcan92

ogulcan92

Aktif Üye
 54
 154
 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.



Puletin

Puletin

Onursal Üye
 Belirtilmemiş
 40
 1.717
 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...

benremix

benremix

Onursal Üye
Ra.... So....
 52
 127
 4.443
 17/05/2009
365
 Ankara
 Şirket Sahibi
 Ofis 2010 64 Bit
 21/04/2019,21:56
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 3.082 10/03/2012, 19:26
Son Yorum: benremix
  Vb 6 Arama Rapor Sorgu İle Basit Örnekler |By|KiDnArUt| 4 4.002 26/05/2011, 17:13
Son Yorum: |By|KiDnArUt|

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