1 sayfadan 1. sayfa

textbox ile arama

İletiTarih: 03 Nis 2018 16:59
dindar
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

Cevap: textbox ile arama

İletiTarih: 03 Nis 2018 18:12
Ali ÖZ
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

Cevap: Cevap: textbox ile arama

İletiTarih: 04 Nis 2018 17:38
dindar
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

Cevap: textbox ile arama

İletiTarih: 04 Nis 2018 18:03
Ali ÖZ
Rica ederim.