uzun sorgu satırlarını bölme sorunu

[silkap]

arkadaşlar uzun sql sorguları yaparken aynı sorgu cümlesi için alt satıra geçmeyi bi türlü beceremedim. yardmcı olursanız sevinirim

.Open "SELECT ISEMRI.KOD,ISEMRI.MUSTERIADI,ISEMRI.ALTMUSTERI,ISE MRI.SIPARISTARIHI,ISEMRI.TESLIMTARIHI,ISEMRI.MODEL ,ISEMRI.RENK,ISEMRI.METRAJ,ISEMRI.ADET,ISEMRI.TESL IM,ISEMRI.YOL FROM ISEMRI

mesela üstteki sorguyu iki veya üçe nasil böler bir kısmını alt satırda yazarız. tek satırda olunca işlem yapmak, değişiklik yapmak zor oluyor.

Teşekkürler

 

[silkap]

Bunun bir yolu yok mudur arkadaşlar.Çok acil ve önemli lütfen yardımcı olursanız sevinirim

 

[Korhan Ayhan]

Selamlar,

Çok hakim olduğum bir konu değil fakat kod mantığına göre aşağıdaki kod bloğu işinize yarayabilir. Denermisiniz.

Satır1 = "ISEMRI.KOD,ISEMRI.MUSTERIADI,ISEMRI.ALTMUSTERI,ISEMRI.SIPARISTARIHI,"
Satır2 = "ISEMRI.TESLIMTARIHI,ISEMRI.MODEL ,ISEMRI.RENK,ISEMRI.METRAJ,ISEMRI.ADET,"
Satır3 = "ISEMRI.TESLIM,ISEMRI.YOL FROM ISEMRI"
.Open "SELECT " & Satır1 & Satır2 & Satır3

 

[silkap]

Çok teşekkürler Korhan bey çalıştı bu verdiğiniz şekliyle. Çok makbule geçti teşekkürler tekrar..

 

[red_lion_72]

Selam,
başka yolu ise;

"SELECT ISEMRI.KOD,ISEMRI.MUSTERIADI,ISEMRI.ALTMUSTERI,ISE" _
&"MRI.SIPARISTARIHI,ISEMRI.TESLIMTARIHI,ISEMRI.MODEL, "_
&"ISEMRI.RENK,ISEMRI.METRAJ,ISEMRI.ADET,ISEMRI.TESL IM,ISEMRI.YOL FROM ISEMRI"

Kolay gelsin.

 

[sergions]

Selam,

yukarıdaki seçeneklere rağmen hata alanlar aşağıdaki yöntemi deneyebilirler...

Dim SQL as String
 
SQL = "SELECT Tablo.Isim, Tablo.Soyisim, Tablo.TCKimlikNo "
SQL = SQL & "Tablo.Maas, Tablo.GirisTarihi "
SQL = SQL & [B]VbCrlf[/B]
SQL = SQL & "FROM Tablo "
SQL = SQL & [B]VbCrlf[/B]
SQL = SQL & "WHERE Tablo.Isim = 'Ali' OR Tablo.Isim = 'Veli' "
SQL = SQL & [B]VbCrlf[/B]
SQL = SQL & "ORDER BY Tablo.Maas DESC"

Sonda bulunan çift tırnak ( " ) işaretlerinden önce bir boşluk bırakmak ve FROM, WHERE, HAVING, ORDER BY, ... gibi SQL tümcelerinden önce VbCrlf komutu kullanmak uzun SQL cümlelerinizdeki Yapısal Sorgu Dili hatalarını ortadan kaldıracaktır.