[Yardım]  TextBox ado ile sayfada süzme işlemi

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

TextBox ado ile sayfada süzme işlemi

İleti#1)  emrah2321 » 06 Tem 2018 13:34

Hayırlı Cumalar

Ekteki dosyada TextBox da Ado ile yazılan kod ile listbox a süzme işlemi yapıyor. Ben bu kod yapısı ile userform üzerinden değil sayfada TextBox da ado ile yazılmış bir kod ile süzme işlemi yapmak istiyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
emrah2321
Siteye Alışmış
 
Adı Soyadı:EmRaH AK
Kayıt: 26 Arl 2013 10:27
Konum: ELAZIĞ
Meslek: Bilgisayar Programcısı
Yaş: 35
İleti: 416
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ELAZIĞ

Cevap: TextBox ado ile sayfada süzme işlemi

İleti#2)  Orion1 » 07 Tem 2018 00:21

Dosyanızda ado ile veri alma kodları yok.Yalnızca aşağıdaki kodlar var. :cool:
Kod: Tümünü seç
Private Sub TextBox1_Change()
Dim x As String
x = TextBox1.Text
x = B Like "x*"


End Sub
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 22:51
Meslek: inşaat teknikeri
İleti: 386
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

Cevap: TextBox ado ile sayfada süzme işlemi

İleti#3)  emrah2321 » 09 Tem 2018 09:50

Aynen yanlış olan dosyayı göndermişim. :lol:

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 8.0;hdr=no"""
If TextBox1.Text = "" Then
  sorgu = "select * from [Sayfa1$]"
Else
  sorgu = "select * from [Sayfa1$] where f2 like '%" & TextBox1.Text & "%'"
End If

rs.Open sorgu, con, 1, 1
With ListBox1
    .ColumnCount = rs.Fields.Count
    .ColumnWidths = "90;90;90"
    .Column = rs.getrows
End With
End Sub 
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
emrah2321
Siteye Alışmış
 
Adı Soyadı:EmRaH AK
Kayıt: 26 Arl 2013 10:27
Konum: ELAZIĞ
Meslek: Bilgisayar Programcısı
Yaş: 35
İleti: 416
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ELAZIĞ

Cevap: TextBox ado ile sayfada süzme işlemi

İleti#4)  Yasin KURT » 09 Tem 2018 10:29

Sayfanızda textbox göremedim ama arama yapılacak karakteri G1 hücresine yazacak şekilde bu kodu kullanabilirsiniz.
F1 A sütunu için
F2 B sütunu için
F3 C sütunu için
Kod: Tümünü seç
Sub ara()
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 8.0;hdr=no"""
sorgu = "select * from [Sayfa1$] where F3 like '%" & Range("G1").Value & "%'"
rs.Open sorgu, con, 1, 1
Range("F2:H" & Rows.Count).ClearContents
Range("F2").CopyFromRecordset rs
End Sub
yasinkurt06@ gmail.com
Ankara 0506 669 1079
Yasin KURT
Forum Moderatörü
 
Adı Soyadı:Yasin KURT
Kayıt: 08 Arl 2008 02:18
Konum: ANKARA
Yaş: 37
İleti: 3179
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara



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

Cevap: TextBox ado ile sayfada süzme işlemi

İleti#5)  emrah2321 » 09 Tem 2018 10:49

Merhaba Yasin Bey;

Gönderdiğiniz kodu Textbox'a uyguladım. Benim istediğim ilgili sütunlara süzme işlemi yapması sizin gönderdiğiniz ayrı bir yere süzüyor. Ado haricinde süzme işlemi yapan kod var ama çok çok yavaş işlem yapıyor.
Kullanıcı avatarı
emrah2321
Siteye Alışmış
 
Adı Soyadı:EmRaH AK
Kayıt: 26 Arl 2013 10:27
Konum: ELAZIĞ
Meslek: Bilgisayar Programcısı
Yaş: 35
İleti: 416
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ELAZIĞ

Cevap: TextBox ado ile sayfada süzme işlemi

İleti#6)  Yasin KURT » 09 Tem 2018 10:52

a,b ve c sütunlarına süzme yapması için filtreleme yapmanız mümkün. Onun dışında mesela ado yu kullandınız.
Verilerin silinmesi gerekmez mi ? Silinirse yeni bir sorgulamayı nasıl yapacağız ?
yasinkurt06@ gmail.com
Ankara 0506 669 1079
Yasin KURT
Forum Moderatörü
 
Adı Soyadı:Yasin KURT
Kayıt: 08 Arl 2008 02:18
Konum: ANKARA
Yaş: 37
İleti: 3179
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara



REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: TextBox ado ile sayfada süzme işlemi

İleti#7)  emrah2321 » 09 Tem 2018 18:12

Yasin Bey;

İstemiş olduğum çalışma ile ilgili örnek yaptım. Yaptığım çalışmada satır sayısı çok olduğundan dolayı çok yavaş çalışıyor. Ado ile daha hızlı yapılabilir diye düşündüm.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
emrah2321
Siteye Alışmış
 
Adı Soyadı:EmRaH AK
Kayıt: 26 Arl 2013 10:27
Konum: ELAZIĞ
Meslek: Bilgisayar Programcısı
Yaş: 35
İleti: 416
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ELAZIĞ


Forum TextBox

Online Kullanıcılar

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

Bumerang - Yazarkafe