3
uses fpodbc,Classes,odbcsql;
6
Conn : TODBCConnection;
7
St : TODBCSQLStatement;
8
FieldNames : TStringList;
11
procedure DumpFielddef(F : TODBCField);
14
Writeln('Field ',F.Position,' : ',F.Name);
15
Writeln('Type : ',F.DataType);
16
Writeln('Size : ',F.Size);
17
Writeln('Decimal digits : ',F.DecimalDigits);
18
Writeln('Nullable : ',F.Nullable);
21
procedure DumpField(F : TODBCField);
26
Write(Name:12,BufType:5,' ');
31
SQL_Smallint : Writeln(AsInteger);
32
SQL_Integer : Writeln(AsInteger);
33
SQL_BIT : Writeln(AsInteger);
34
SQL_CHAR : Writeln(AsString);
35
SQL_DOUBLE : Writeln(AsDouble);
41
SQL_TYPE_TIME : Writeln(AsString);
43
Writeln('Unknown field type');
50
Conn:=TODBCConnection.Create(Nil);
54
ST:=TODBCSQLStatement.Create(Conn);
56
ST.SQL.Text:='Select * from fpdev order by id';
61
FieldNames:=TStringList.Create;
63
st.GetFieldList(FieldNames);
64
Writeln('Found ',FieldNames.Count,' Fields in result set :');
65
For I:=0 to FieldNames.Count-1 do
66
Writeln(i+1,': ',FieldNames[i]);
67
Writeln('End of list');
68
Writeln('FieldDefs:');
70
for I:=0 to COunt-1 do
71
DumpFielddef(st.fields.items[i] as TODBCField);
72
Writeln('Data dump:');
77
Writeln('Record no ',Count,' : ');
78
Writeln('Name':12,'Type':5,' Value');
79
for I:=0 to st.fields.COunt-1 do
80
DumpField(st.fields.items[i] as TODBCField);
83
Writeln('End of data');
86
Writeln('Freed list');
94
Writeln('Freed statement');
97
Writeln('Disactivated connection');
100
Writeln('Freed Connection');