Merhabalar,
adosql de kullanılan tablo yerine sanal tablo oluşturup onun üzerinde yeni alanda sorgulama yapmak istiyorum.
Yalnız ado da create view oluşturamadım.Böyle birşeynasıl yapılır.Örneğin;
create view deneme As Select * from [Sql3Tablo22]
create view deneme As Select (Ad + ' '+ Soyad) as AdSoyad, (Soyad + ' '+ Ad) as SoyadAD,* from [Sql3Tablo22]
Sorgu = select * from [deneme] where AdSoyad like '%Emine%' or SoyadAd like '%Emine%'"
Orginal çalışan kod
adosql de kullanılan tablo yerine sanal tablo oluşturup onun üzerinde yeni alanda sorgulama yapmak istiyorum.
Yalnız ado da create view oluşturamadım.Böyle birşeynasıl yapılır.Örneğin;
create view deneme As Select * from [Sql3Tablo22]
create view deneme As Select (Ad + ' '+ Soyad) as AdSoyad, (Soyad + ' '+ Ad) as SoyadAD,* from [Sql3Tablo22]
Sorgu = select * from [deneme] where AdSoyad like '%Emine%' or SoyadAd like '%Emine%'"
Orginal çalışan kod
Alıntı: Private Sub CommandButton2_Click()
Dim Con As Object, rs As Object, Sorgu As String, deneme As String, MyFullName As String
MyFullName = ThisWorkbook.FullName
Set Con = CreateObject("Adodb.Connection")
Set rs = CreateObject("Adodb.RecordSet")
Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
MyFullName & ";extended properties=""excel 12.0;hdr=Yes"""
'Sorgu = "Select * from [Sql3Tablo22] where Ad like '%Emine%'"
Sorgu = "Select (Ad + ' '+ Soyad) as AdSoyad, * from [Sql3Tablo22] where Ad like '%Emine%'"
rs.Open Sorgu, Con, 1, 3
Range("G3").CopyFromRecordset rs
rs.Close: Con.Close
Set Con = Nothing: Set rs = Nothing: Sorgu = ""
End Sub