Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Delphi ADOQuery->Fields Editor->Add all fields

25 views
Skip to first unread message

SerG

unread,
Nov 13, 2009, 7:23:45 AM11/13/09
to
О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ Fields Editor О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©Ґ О©Ґ О©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ
Add all fields. О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©Ґ О©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ, О©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ/О©ҐО©ҐО©ҐО©ҐО©Ґ
О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ. О©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ.

О©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ?

О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ.

Aist35

unread,
Nov 13, 2009, 8:15:43 AM11/13/09
to

"SerG" <ik3...@ya.ru> О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ/О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ:
news:hdjj4i$mrf$1...@news.ntu-kpi.kiev.ua...

> О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ Fields Editor О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©Ґ О©Ґ О©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ
> Add all fields. О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©Ґ О©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ, О©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ/О©ҐО©ҐО©ҐО©ҐО©Ґ
> О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ. О©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ.

О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©Ґ? О©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ? О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ?

О©ҐО©ҐО©ҐО©Ґ О©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ (О©ҐО©ҐО©ҐО©ҐО©Ґ) О©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ
О©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©Ґ ...
О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ
О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ.

О©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©Ґ О©Ґ О©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©Ґ, О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©Ґ
О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©Ґ О©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©Ґ...
О©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©Ґ О©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ, О©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©Ґ О©Ґ О©ҐО©ҐО©ҐО©ҐО©Ґ(О©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ
О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©Ґ О©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ)


SerG

unread,
Nov 13, 2009, 8:42:11 AM11/13/09
to
О©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©Ґ. О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ. О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©Ґ О©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ
О©Ґ О©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©Ґ)


Elfik

unread,
Nov 13, 2009, 9:05:15 AM11/13/09
to
О©ҐО©ҐО©ҐО©Ґ О©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©Ґ О©ҐО©ҐО©Ґзі?
О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ - віО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©Ґ, О©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐуєО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐліО©Ґ О©ҐО©ҐО©ҐО©ҐО©Ґці О©ҐО©Ґ
О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ SQL-О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ ("TOP 1" О©ҐО©ҐО©ҐріО©ҐО©ҐО©Ґ О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©Ґ, О©ҐО©ҐО©Ґ О©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©Ґ
О©ҐміО©ҐО©Ґ - віО©Ґ О©ҐО©ҐО©Ґ О©ҐО©Ґ О©ҐО©ҐО©ҐтіО©ҐО©ҐО©Ґ О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©Ґ, О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ тіО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐліО©Ґ).


const DBFileName = 'db.mdb';

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ADOConnection1.ConnectionString :=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
ExtractFilePath(Application.ExeName) + DBFileName + ';Persist
Security Info=False';
ADOConnection1.LoginPrompt := false;
ADOConnection1.Mode := cmShareDenyNone;

try
ADOConnection1.Connected := true;
except
ShowMessage('Failed to connect database');
Application.Terminate;
end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
ADOConnection1.Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
ListBox1.Clear;
ADODataSet1.Connection := ADOConnection1;
ADODataSet1.CommandText := 'SELECT TOP 1 * FROM Table1';
try
ADODataSet1.Open;
except
on E: Exception do
ShowMessage('Failed to perform SQL query on database!' + #13#10 +
'Error : ' + E.Message);
end;
for i := 1 to ADODataSet1.Fields.Count - 1 do
ListBox1.Items.Add(ADODataSet1.Fields[i].AsString);
end;

SerG

unread,
Nov 13, 2009, 9:15:17 AM11/13/09
to
ADODataSet1.Fields[i] -> О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©Ґ.
О©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©Ґ, О©ҐО©ҐО©ҐО©Ґ О©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ.


Elfik

unread,
Nov 13, 2009, 9:25:39 AM11/13/09
to
SerG wrote:
> ADODataSet1.Fields[i] -> О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©Ґ.
> О©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©Ґ, О©ҐО©ҐО©ҐО©Ґ О©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ.
>
О©ҐО©ҐО©Ґ О©Ґ О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐхіО©Ґні О©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ ADODB?
О©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ - О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ, О©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ. О©ҐО©ҐО©ҐО©Ґ піО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ О©Ґ
О©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©Ґ О©ҐО©ҐО©ҐО©ҐО©ҐО©Ґ ;) :
procedure TADOConnection.GetFieldNames(const TableName: string;
List: TStrings);
procedure TADOConnection.GetTableNames(List: TStrings;
SystemTables: Boolean);

SerG

unread,
Nov 13, 2009, 10:04:02 AM11/13/09
to

"Elfik" О©ҐО©ҐО©ҐО©ҐО©Ґ.


0 new messages