AccessTr.neT

Tam Versiyon: Vba İle Oluşturulan Sql Metninde "%" Karakterinin Kullanımı.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5
Hayır işaretli değil. İlk önce Excel'de aynı kitapta diğer sayfadan sorgulayıp, verileri çekmiştim. Access de de geçerli mi diye denedim, çalıştı.
Bende işe yaramadı.

DAO ile denedim * olarak kod çalışıyor.
Örnek dosya ekte görsel olarak çok kötü ama fikir verir.
Bende DAO ile denemiştim * olarak çalışıyor.DAO yu kullanmamıştım önceden.

Metin1 e * ile aratın yada Sql içine* ekleyin denerseniz örnek dosyayı ekledim ve sizinkinide deneyeceğim.


Sub ara()
  Dim rs As DAO.Recordset, intI As Integer
    Dim fld
    Dim xx, yy

    Form1AltForm.Form.RecordSource = "select * from Tablo1 where aa like '" & Metin1.Text & "'" ' 'Alttaki gibide olur
'    Form1AltForm.Form.RecordSource = "Tablo1"

    Set rs = Form1AltForm.Form.RecordsetClone

    If rs.RecordCount = 0 Then GoTo son

    Do Until rs.EOF
        xx = xx & rs(0) & Chr(10)
        rs.MoveNext
    Loop
'  MsgBox "(aa) sütun verileri: " & vbNewLine & "------" & vbNewLine & xx
   
    For Each fld In rs.Fields
      yy = yy & fld.Name & Chr(10)
    Next

Set Me.Liste1.Recordset = Form1AltForm.Form.RecordsetClone



'MsgBox "Sütun Adlari: " & vbNewLine & "------" & vbNewLine & yy
Set rs = Nothing
Exit Sub
son:
Set rs = Nothing
'MsgBox "Kayit yok", vbCritical
End Sub
(03/02/2020, 12:38)alicimri yazdı: [ -> ]Örnek dosya ekte görsel olarak çok kötü ama fikir verir.
Dosyadaki listboxa veri gelmedi a yada b yada diğerleribi girince
Sayın feraz
"*" karakteri kullanınca benim istediğim sonucu vermiyor. Belirlediğim harfleri içeren tüm kelimeleri getiriyor
Sayfalar: 1 2 3 4 5