[Çözüldü]  textbox ile arama

Metin Kutucuğu. Bir programcının olmazsa olmazlarındandır.

textbox ile arama

İleti#1)  dindar » 03 Nis 2018 16:59

merhaba arkadaşlar ben textboxa bir karakter girdikçe o karakterlerle başlayan kullanıcılar listboxa sıralansın ben ad' a göre harf girdiğimde öğrencinin numarası adı ve soyadı sıralansın
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
dindar
Yeni Başlamış
 
Kayıt: 28 Mar 2018 20:40
Meslek: öğrenci
Yaş: 23
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

Cevap: textbox ile arama

İleti#2)  Ali ÖZ » 03 Nis 2018 18:12

Merhaba,

Forum kuralları 20. maddeye uygun ileti yazmaya özen gösterin.
20.Mesaj yazarken büyük harf kullanmak bağırmak anlamına geleceği için kesinlikle mesajınızın tamamını büyük harf kullanarak yazmayınız. Türkçe yazım kurallarında; cümlede kelimelerin ilk harfi büyük olur, özel isimlerin baş harfi büyük olur, noktadan sonra başlayan her kelimenin baş harfi büyük olur, mesaj içindeki tüm harfler büyük yazılmaz yahut tümü küçük yazılmaz. Sitemiz Türkçe karakter desteklemektedir ve i, ç , ş , ğ gibi harfleri kullanmanızda hiç bir sakınca yoktur.



Kod: Tümünü seç
Private Sub TextBox1_Change()
On Local Error Resume Next
Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
con.Open "provider=microsoft.ace.oledb.12.0;" & "data source=" & ThisWorkbook.FullName & ";" & _
"extended properties=""excel 12.0;hdr=yes"""
  sorgu = "select * from [Sayfa1$] where ad like '" & TextBox1.Text & "%'"
rs.Open sorgu, con, 1, 1
With ListBox1
    .ColumnCount = rs.Fields.Count
    .ColumnWidths = "100;100"
    .Column = rs.getrows
End With
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9431
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: textbox ile arama

İleti#3)  dindar » 04 Nis 2018 17:38

Ali ÖZ yazdı:Merhaba,


Kod: Tümünü seç
Private Sub TextBox1_Change()
On Local Error Resume Next
Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
con.Open "provider=microsoft.ace.oledb.12.0;" & "data source=" & ThisWorkbook.FullName & ";" & _
"extended properties=""excel 12.0;hdr=yes"""
  sorgu = "select * from [Sayfa1$] where ad like '" & TextBox1.Text & "%'"
rs.Open sorgu, con, 1, 1
With ListBox1
    .ColumnCount = rs.Fields.Count
    .ColumnWidths = "100;100"
    .Column = rs.getrows
End With
End Sub

Çok tesekkurler hocam
Kullanıcı avatarı
dindar
Yeni Başlamış
 
Kayıt: 28 Mar 2018 20:40
Meslek: öğrenci
Yaş: 23
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

Cevap: textbox ile arama

İleti#4)  Ali ÖZ » 04 Nis 2018 18:03

Rica ederim.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9431
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum TextBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe