çalışma anında tablonun yapısını memo text içinde göstemek

[kodcuminik]

merhaba arkadaşlar

Kod: Tümünü seç

memo1.text:=adoquery1.sql.text;

yukarıdaki sorgu ile adoquery içindeki sorguyu memo içinde gösterebiliyoruz
bunu tekrar kullanada biliyoruz

peki ismini verdiğimiz tablonun yapısını nasıl görebiliriz

örnek cari tablosu olsun yani bir nevi sql serverda tablonun üzerine sağtuş yapıp edit modunda açmak istiyorum
bunu memoda göstermek istiyorum

Kod: Tümünü seç

select  

adi              as [cari adi],
soyadi         as [cari soyadi]

from cariler with (nolock) 

yukarıdaki görünümü memoda nasıl alırım ?

[SimaWB]

SQL'le tablonuzun alan isimlerini alabilirsiniz:

Kod: Tümünü seç

SELECT * FROM sys.columns WHERE object_id = OBJECT_ID('dbo.TabloIsmi')

[kodcuminik]

TAM OLARAK BU DEĞİLDİ BU KOD İŞİMİ GÖRDÜ BUYRUN BELKİ İHTİYACI OLANLAR VARDIR DİYE YAZIYORUM TEŞEKKÜRLER

Kod: Tümünü seç

EXEC sp_helptext 'CARI_CHS' 

AMA ŞİMDİDE MEMO YA ALIRKEN HER SATIRDA BİR BOŞLUK ATIYOR ENTERESAN NEDEN OLABİLİR NEYİ ATLIYOR OLABİLİRİM

Kod: Tümünü seç

var
a:integer;
begin
ADOQuery7.First;
for a:= 1 to ADOQuery7.RecordCount do
begin
Memo1.Lines.Add(ADOQuery7.Fields[0].AsString);
ADOQuery7.Next;
end;

[m_ekici]

Yukarıdaki kodla Table ları alamadım. Aşağıdaki kodla tablo içeriğini daha sade alabilirsin.

Kod: Tümünü seç

SELECT COLUMN_NAME, CASE DATA_TYPE
 WHEN 'varchar' THEN DATA_TYPE+'('+ RTRIM(CAST(CHARACTER_MAXIMUM_LENGTH AS CHAR(5)))+')'  
 WHEN 'nvarchar' THEN DATA_TYPE+'('+ RTRIM(CAST(CHARACTER_MAXIMUM_LENGTH AS CHAR(5))) +')' 
 WHEN 'char' THEN DATA_TYPE+'('+ RTRIM(CAST(CHARACTER_MAXIMUM_LENGTH AS CHAR(5))) +')' 
 ELSE DATA_TYPE 
END AS DATA_TYPE
FROM INFORMATION_SCHEMA.COLUMNS
WHERE TABLE_NAME NOT IN ('dtproperties','sysconstraints','syssegments')
AND TABLE_NAME ='INFO_L03_USER' 
ORDER BY TABLE_CATALOG,TABLE_NAME,COLUMN_NAME,ORDINAL_POSITION,DATA_TYPE