Textbox1_Change olayı ve ADO bağlantsında Textbox1 içerir sorgusu

H

hsayar

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
Aşağıda Recep hocamın hazırladığı kodlar üzerinde küçük değişikler yaparak userformun açılışı esnasında çalışma sayfasındaki benzersiz kayıtları listboxa getiriyorum.

Yalnız Listbox1 e ADO ile gelen verileri Textbox1.text değerini içerir şekilde sorguda genişletmek nasıl olmalıdır?

Kod: 
Private Sub UserForm_Initialize()
  Call TextBox1_Change
End Sub

Private Sub TextBox1_Change()
'Private Sub Adodb_BenzersizKayıtÇek()
'Recep İpek'in ve Zeki Gürsoy'un Katkılarıyla, HSayar tarafından düzenlenmiştir.
'On Error Resume Next
Dim CKtp_Bu     As Workbook:            Set CKtp_Bu = ThisWorkbook                                                                                '||
Dim CSfData     As Worksheet:           Set CSfData = CKtp_Bu.Sheets("DATA")
Dim CSfOzet     As Worksheet:           Set CSfOzet = CKtp_Bu.Sheets("Ozet")

Dim adbBagl As ADODB.Connection
Dim adbKset As ADODB.Recordset
Dim sqlSatr$, sqlFrom$, sqlSorg$, sqlKynk$

'Adob Connection Değişkenleri
sqlKynk = ThisWorkbook.FullName

'Adob RecordSet Değişkenleri
'sqlFrom = "[" & CSfData.Name & "$" & "A3:C18" & "]"
'sqlSatr = "SELECT DISTINCT * FROM " & sqlFrom
 sqlFrom = "[" & CSfData.Name & "$" & "A2:C1800" & "]"
[FONT=Courier New][SIZE=3][B][COLOR=Red] If TextBox1.Text = Empty Then
  sqlSorg = "Sayac_No IS NOT NULL"
 Else
  Exit Sub
   'sqlSorg = "Sayac_No IS NOT NULL" & " AND Adı_Soyadı  =  " & TextBox1.Text & """"
''    SqlSrg = "mYIL = " & srgYil & " AND GIDER_TURU = " & "'" & "Personel" & "'"                

 
 End If
[/COLOR][/B][/SIZE][/FONT]
sqlSatr = "SELECT DISTINCT * FROM " & sqlFrom & " WHERE " & sqlSorg

  Set adbBagl = CreateObject("ADODB.Connection")
  With adbBagl
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Extended Properties").Value = "Excel 8.0"
    .Properties("Data Source").Value = sqlKynk
    .CursorLocation = adUseClient
    .Mode = adModeReadWrite
    .Open
  End With

  If Err = 0 Then
    Set adbKset = CreateObject("ADODB.Recordset")
    With adbKset
      .ActiveConnection = adbBagl
      .CursorLocation = adUseServer
      .CursorType = adOpenKeyset
      .LockType = adLockOptimistic
      .Source = sqlSatr
      .Open
      '***********************************************************************
      If .RecordCount > 0 Then
        ListBox1.ColumnCount = .Fields.Count
        ListBox1.Column = .GetRows
      Else
        MsgBox "Kayıt Bulunamadı.", 16, "Bilgi"
      End If
      If CBool(.State And adStateOpen) = True Then .Close:  Set adbKset = Nothing
    End With
  Else
    MsgBox "Bağlantı Hatası Kontrol Ediniz", vbInformation, "Bilgi"
  End If

If CBool(adbBagl.State And adStateOpen) = True Then adbBagl.Close:  Set adbBagl = Nothing

Set CKtp_Bu = Nothing:  Set CSfData = Nothing:  Set CSfOzet = Nothing
End Sub
 
tamer42

tamer42

Destek Ekibi
Destek Ekibi
Katılım
11 Mart 2005
Mesajlar
3,110
Excel Vers. ve Dili
Office 2013 İngilizce
Dosya eklermisiniz.
 
H

hsayar

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
tamer42' Alıntı:
Dosya eklermisiniz.
Genişletmek için tıkla ...
Buyrun;

Gelen Userformdaki listboxın ikinci sütunu Textbox birde yazanı içerecek. örneğin MEŞE yazıldığında listboxta Ahmet MEŞE Ahmet MEŞEKIRAN Haşmet MEŞEKIRAN değerleri kalacak, Textbox boş hale geldiğinde bütün kayıtlar gelecek,

Gelen Userform isimden arama amaçlı olup tek başına kullanılmayacak.
 

Ekli dosyalar

H

hsayar

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
aklıma ne gelirse deniyorum olmuyor;

Kod: 
 sqlSorg = "Sayac_No IS NOT NULL"
 If TextBox1.Text <> Empty Then
    'Exit Sub
'Aşağıdaki sorgu ifadesine textbox1 de yazanı içerir eklenmesini.
   sqlSorg = sqlSorg & " AND Adı_Soyadı like " & TextBox1.Text
 End If
 
H

hsayar

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
böyle bir şeyler var ama ben çözemedim...
Kod: 
<%
PName= request.querystring("state")
Set pub=server.createobject("ADODB.recordset")
pub.open sqltext, "driver={microsoft access driver (*.mdb)}; dbq="& server.mappath("database.mdb") 

%>

<%mystate = request.form("state")
Select Case ucase(mystate)
case "AL"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "AK"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "AZ"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "AR"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "CA"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "CO"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "CT"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "DE"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "DC"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "FL"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "GA"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "HI"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "ID"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "IL"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "IN"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "IA"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "KS"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "KY"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "LA"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "ME"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "MD"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "MA"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "MI"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "MN"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "MS"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "MO"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "MT"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "NE"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "NV"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "NH"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "NJ"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "NM"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "NY"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "NC"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "ND"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "OH"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "OK"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "OR"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "PA"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "RI"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "SC"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "SD"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "TN"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "TX"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "UT"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "VT"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "VA"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "WA"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "WV"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "WI"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"
    case "WY"
    sqltext="Select * from zip WHERE state like " & "'%" & PName & "%'" &  ";"

End Select%>
    <%
    response.write "<p>Search result as follows:<br>"
response.write "<b>Name: </b>" & pub("first_name")   
response.write  pub("last_name") & "<br>"         
response.write "<b>Address: </b>" & pub("address") & " "
response.write  pub("email") & "</b><br>"
response.write "<b>City: </b>" & pub("city") & "</b><br>"
response.write "<b>State: </b>" & pub("state") & "</b><br>"
response.write "<b>Zip: </b>" & pub("zip") & "</b><br>"
    %>
Kod: 
[FONT=verdana][SIZE=2][COLOR=black][FONT=Verdana][SIZE=2][FONT=Verdana][SIZE=2]
Private Sub Text1_Change()
Dim rs As New ADODB.Recordset

rs.Open "SELECT * FROM Tablo1 WHERE alan1 Like '" & _
Text1.Text & "%';", Conn , adOpenKeyset, adLockReadOnly

ListView1.ListItems.Clear

With rs 
If(.EOF) And (.BOF) Then Exit Sub
Dim mLsi as ListItem
While (Not .EOF)
Set mLsi = ListView1.ListItems.Add(,,,.Fields("alan1"))
mLsi.SubItems(1) = .Fields("alan2")
.MoveNext
Wend
End With
End Sub
[/SIZE][/FONT][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
 
Son düzenleme:
H

hsayar

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
sn vural IS NOT NULL sorgusu çalışıyor, istediiğim texbox1 değişince sorguyua textbox biride içerir demek.
 
H

hsayar

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
Halletim gibi;
Büyük/küçük harf duyarlılığını ortadan kaldırmak gerekecek.

Kod: 
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As msforms.ReturnBoolean)
uf_SycTkp.ComboBox1.Value = Me.ListBox1.Value
Unload Me
End Sub

Private Sub UserForm_Initialize()
  Call TextBox1_Change
End Sub

Private Sub TextBox1_Change()
'Private Sub Adodb_BenzersizKayıtÇek()
'Recep İpek'in ve Zeki Gürsoy'un Katkılarıyla, HSayar tarafından düzenlenmiştir.
'On Error Resume Next
Dim CKtp_Bu     As Workbook:            Set CKtp_Bu = ThisWorkbook                                                                                '||
Dim CSfData     As Worksheet:           Set CSfData = CKtp_Bu.Sheets("DATA")
Dim CSfOzet     As Worksheet:           Set CSfOzet = CKtp_Bu.Sheets("Ozet")

Dim adbBagl As ADODB.Connection
Dim adbKset As ADODB.Recordset
Dim sqlSatr$, sqlFrom$, sqlSorg$, sqlKynk$

'Adob Connection Değişkenleri
sqlKynk = ThisWorkbook.FullName

'Adob RecordSet Değişkenleri
 sqlFrom = "[" & CSfData.Name & "$" & "A2:C1800" & "]"
 sqlSorg = "Sayac_No IS NOT NULL"
 
[COLOR=Green][B]If TextBox1.Text <> Empty Then
   sqlSorg = sqlSorg & " AND Adi_Soyadi Like '%" & TextBox1.Text & "%'"
 End If[/B][/COLOR]

sqlSatr = "SELECT DISTINCT * FROM " & sqlFrom & " WHERE " & sqlSorg
'Stop
  Set adbBagl = CreateObject("ADODB.Connection")
  With adbBagl
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Extended Properties").Value = "Excel 8.0"
    .Properties("Data Source").Value = sqlKynk
    .CursorLocation = adUseClient
    .Mode = adModeReadWrite
    .Open
  End With

  If Err = 0 Then
    Set adbKset = CreateObject("ADODB.Recordset")
    With adbKset
      .ActiveConnection = adbBagl
      .CursorLocation = adUseServer
      .CursorType = adOpenKeyset
      .LockType = adLockOptimistic
      .Source = sqlSatr
      .Open
      '***********************************************************************
      If .RecordCount > 0 Then
        ListBox1.ColumnCount = .Fields.Count
        ListBox1.Column = .GetRows
      Else
        MsgBox "Kayıt Bulunamadı.", 16, "Bilgi"
      End If
      If CBool(.State And adStateOpen) = True Then .Close:  Set adbKset = Nothing
    End With
  Else
    MsgBox "Bağlantı Hatası Kontrol Ediniz", vbInformation, "Bilgi"
  End If

If CBool(adbBagl.State And adStateOpen) = True Then adbBagl.Close:  Set adbBagl = Nothing
Set CKtp_Bu = Nothing:  Set CSfData = Nothing:  Set CSfOzet = Nothing
End Sub

onuda hallettim, :keyif:

Kod: 
If TextBox1.Text <> Empty Then
   sqlSorg = sqlSorg & " AND [B][COLOR=SeaGreen]ucase[/COLOR][/B](Adi_Soyadi) Like '%" & [B][COLOR=SeaGreen]UCase[/COLOR][/B](TextBox1.Text) & "%'"
End If
 
Son düzenleme:
H

hsayar

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
olmadı

Kod: 
sqlFrom = "[" & CSfData.Name & "$" & "A2:C1800" & "]"
sqlSorg = "Sayac_No IS NOT NULL"
If TextBox1.Text <> Empty Then
  [B][COLOR=Red] sqlSorg = sqlSorg & " AND UCase(Adi_Soyadi) Like '%" & UCase(TextBox1.Text) & "%'"[/COLOR][/B]
End If
sqlSatr = "SELECT DISTINCT * FROM " & sqlFrom & " WHERE " & sqlSorg
Sorgu satırında Türkçe Karakterleri tanımıyor.
DATA sayfasındaki yazım KIRAN
textboxa "kı" yazdığım anda kayıt bulunamadı, ki yazdığımda getiriyor. Sql'e türkçe öğreten yöntem bulundumu en son hatırladığım kadarı ile replace yönetemini tanımıyordu.
 
H

hsayar

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
uf_ara Kodlarının son hali aşağıdaki olup Türkçe Karakterleri içeren alan sorgulamalarında yardımlarınızı bekliyorum;

Kod: 
Private CKtp_Bu     As Workbook
Private CSfData     As Worksheet
Private adbBagl     As ADODB.Connection
Private adbKset     As ADODB.Recordset
Private Sub UserForm_Initialize()
  Call adbBagl_Aç
  Call adbKset_İsimler_Aç
End Sub
Private Sub TextBox1_Change()
  Call adbKset_İsimler_Aç
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As msforms.ReturnBoolean)
  uf_SycTkp.ComboBox1.Value = Me.ListBox1.Value
  Unload Me
End Sub
Private Sub CommandButton1_Click()
  Unload Me
End Sub
Private Sub UserForm_Terminate()
  Set CKtp_Bu = Nothing:  Set CSfData = Nothing
  If CBool(adbBagl.State And adStateOpen) = True Then adbBagl.Close:  Set adbBagl = Nothing
End Sub
'********************************************************************************************
Kod: 
Private Sub adbBagl_Aç()
Set CKtp_Bu = ThisWorkbook               'Verilerin alınacağı kitap.
'Adob Connection Değişkenleri
Dim sqlKynk$: sqlKynk = ThisWorkbook.FullName
  Set adbBagl = CreateObject("ADODB.Connection")
  With adbBagl
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Extended Properties").Value = "Excel 8.0"
    .Properties("Data Source").Value = sqlKynk
    .CursorLocation = adUseClient
    .Mode = adModeReadWrite
    .Open
  End With
End Sub
Kod: 
Private Sub adbKset_İsimler_Aç()
  Set CSfData = CKtp_Bu.Sheets("DATA")     'Verilerin alınacağı sayfa.
  Dim sqlFrom$, sqlSorg$, sqlSatr$

  'Adob RecordSet Değişkenleri
  sqlFrom = "[" & CSfData.Name & "$" & "A2:C1800" & "]"
  sqlSorg = "Sayac_No IS NOT NULL"
[FONT=Courier New][B][COLOR=Red]  If TextBox1.Text <> Empty Then
    sqlSorg = sqlSorg & " AND UCase(Adi_Soyadi) Like '%" & UCase(TextBox1.Text) & "%'"
  End If[/COLOR][/B][/FONT]
  sqlSatr = "SELECT DISTINCT * FROM " & sqlFrom & " WHERE " & sqlSorg

  'Adob RecordSet Sorgulaması
  If Err = 0 Then
    Set adbKset = CreateObject("ADODB.Recordset")
    With adbKset
      .ActiveConnection = adbBagl
      .CursorLocation = adUseServer
      .CursorType = adOpenKeyset
      .LockType = adLockOptimistic
      .Source = sqlSatr
      .Open
      '***********************************************************************
      If .RecordCount > 0 Then
        ListBox1.ColumnCount = .Fields.Count
        ListBox1.Column = .GetRows
      Else
        MsgBox "Kayıt Bulunamadı.", 16, "Bilgi"
      End If
    If CBool(.State And adStateOpen) = True Then .Close:  Set adbKset = Nothing
    End With
  Else
    MsgBox "Bağlantı Hatası Kontrol Ediniz", vbInformation, "Bilgi"
  End If
End Sub
 
H

hsayar

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
uf_ara Kodlarının son hali aşağıdaki olup Türkçe Karakterleri içeren alan sorgulamalarında yardımlarınızı bekliyorum;

demek istediğim Veri Tabanında izmir olarak geçen kaydı İZMİR diye sorgulamaya başlayınca hata gönderiyor. bunun için ne gibi bir önerileriniz olabilir?
 
H

hsayar

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
Arka Sayfaya geçmeden bir kere daha güncelliğini bildireyim.. yarın son şekline getirmeye çalışacağım. onun için önemli.
Saygılarımla
 
T

Tarkan VURAL

Katılım
22 Nisan 2005
Mesajlar
486
Excel Vers. ve Dili
tarkan@tarkanvural.com.tr
SQL de çalışmayanlar

Aşağıdaki VBA işlevleri bir özellik sayfasından çağırıldığında veya bir SQL deyiminde kullanıldığında çalışmaz:
FormatCurrency
FormatDateTime
FormatNumber
FormatPercent
InStrB
InStrRev
MonthName
Replace
StrReverse
WeekDayName
 
T

Tarkan VURAL

Katılım
22 Nisan 2005
Mesajlar
486
Excel Vers. ve Dili
tarkan@tarkanvural.com.tr
Ama SQL dışında visual basic application komutlarını kullanarak Replace yapma ihtimaliniz var gibi.

Ben kısa bir örnek yaptım siz geliştirin.
Kod: 
sqlsorg = "Not IsNull(Sayac_No)"
If TextBox1.Text <> Empty Then
sqlsorg = sqlsorg & " AND UCase(adi_soyadi) like '%" & replace(replace(ucase(textbox1.text), "ı", "I", , , vbtextcompare), "İ", "I", , , vbtextcompare) & "%'"
End If
 
H

hsayar

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
teşekkür ederim sn vural deneyip sonucu bildireceğim.
 
H

hsayar

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
Tekrar teşekkür ederim sn vural işimi gördü
Kod: 
Private Sub adbKset_İsimler_Aç()
  Set CSfData = CKtp_Bu.Sheets("DATA")     'Verilerin alınacağı sayfa.
  Dim sqlFrom$, sqlSorg$, sqlSatr$, strAra$
  'strAra = UCase(TextBox1.Text)
  [COLOR=Green]strAra = Replace(Replace(UCase(TextBox1.Text), "ı", "I", , , vbTextCompare), "İ", "I", , , [/COLOR]vbTextCompare)
  
  'Adob RecordSet Değişkenleri
  sqlFrom = "[" & CSfData.Name & "$" & "A2:C1800" & "]"
  sqlSorg = "Sayac_No IS NOT NULL"
  If TextBox1.Text <> Empty Then
    sqlSorg = sqlSorg & " AND UCase(Adi_Soyadi) Like '%" & [COLOR=Green]strAra[/COLOR] & "%'"
  End If
  sqlSatr = "SELECT DISTINCT * FROM " & sqlFrom & " WHERE " & sqlSorg

  'Adob RecordSet Sorgulaması
  If Err = 0 Then
    Set adbKset = CreateObject("ADODB.Recordset")
    With adbKset
      .ActiveConnection = adbBagl
      .CursorLocation = adUseServer
      .CursorType = adOpenKeyset
      .LockType = adLockOptimistic
      .Source = sqlSatr
      .Open
      '***********************************************************************
      Label1.Caption = .RecordCount & " Adet Abone Kaydı bulundu"
      If .RecordCount > 0 Then
        ListBox1.ColumnCount = .Fields.Count
        ListBox1.Column = .GetRows
      Else
        MsgBox "Kayıt Bulunamadı.", 16, "Bilgi"
      End If
    If CBool(.State And adStateOpen) = True Then .Close:  Set adbKset = Nothing
    End With
  Else
    MsgBox "Bağlantı Hatası Kontrol Ediniz", vbInformation, "Bilgi"
  End If
End Sub
 
T

Tarkan VURAL

Katılım
22 Nisan 2005
Mesajlar
486
Excel Vers. ve Dili
tarkan@tarkanvural.com.tr
yanıt

;) iyi çalışmalar.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst