AccessTr.neT
Vba İle Oluşturulan Sql Metninde "%" Karakterinin Kullanımı. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vba İle Oluşturulan Sql Metninde "%" Karakterinin Kullanımı. (/konu-vba-ile-olusturulan-sql-metninde-karakterinin-kullanimi.html)

Sayfalar: 1 2 3 4 5

Cvp: Vba İle Oluşturulan Sql Metninde "%" Karakterinin Kullanımı. - alicimri - 03/02/2020

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ı.

Cvp: Vba İle Oluşturulan Sql Metninde "%" Karakterinin Kullanımı. - feraz - 03/02/2020

Bende işe yaramadı.

DAO ile denedim * olarak kod çalışıyor.

Cvp: Vba İle Oluşturulan Sql Metninde "%" Karakterinin Kullanımı. - alicimri - 03/02/2020

Örnek dosya ekte görsel olarak çok kötü ama fikir verir.

Cvp: Vba İle Oluşturulan Sql Metninde "%" Karakterinin Kullanımı. - feraz - 03/02/2020

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


Cvp: Vba İle Oluşturulan Sql Metninde "%" Karakterinin Kullanımı. - feraz - 03/02/2020

(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

Cvp: Vba İle Oluşturulan Sql Metninde "%" Karakterinin Kullanımı. - alicimri - 03/02/2020

Sayın feraz
"*" karakteri kullanınca benim istediğim sonucu vermiyor. Belirlediğim harfleri içeren tüm kelimeleri getiriyor