![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Field description
Макз © (2002-10-19 05:02:00)Раз уже задавал такой вопрос, и остался без ответа: может кто знает как добраться до субж из delphi?
MetalFan (2002-10-21 09:36:00) [1]может это подойдет?
procedure TForm1.Button1Click(Sender: TObject);
var
I:Integer;
begin
//OpenDialog1.Filter:="DB Files|*.DB;All Files|*.*"
if not OpenDialog1.Execute then exit;
Memo1.Lines.Clear;
with Table1 do begin
TableName:=OpenDialog1.FileName;
open;
for I:=0 to FieldDefs.Count-1 do
Memo1.Lines.Add(IntToStr(FieldDefs[i].FieldNo)+#9+
FieldDefs[i].Name+#9#9+
FieldDefs[i].FieldClass.ClassName +#9+
IntToStr(FieldDefs[i].Size));
close;
end;//with
end;
Vlad2 (2002-10-21 08:36:00) [2]> Макз
Если я правильно понял вопрос, необходимо получить некие мета данные о полях таблицы. Если таблица - объект mssql200 сервера, то можно использовать функцию:
select * from ::fn_listextendedproperty(
NULL, "user", "dbo", "table", "[имя таблицы]",
"column", NULL)
Извини, если что не так.
makdi (2002-10-21 07:29:00) [3]Ты хочешь узнать название, тип, размер поля?
Копай TFields.
vads (2002-10-20 09:32:00) [4]А подразумевается под Field description ???