On Thursday, July 13, 2006, 7:23:51 PM, barjokebantenan wrote:
> tolong di kasih masukkan bagaimana buka database (foxpro) dengan
> delphi tanpa menggunakan visual-nya.
uses
DB, DBTables;
procedure ListRecord(const ATableName: string; AList: TStringList);
var
ATable: TTable;
i: integer;
begin
AList.Clear;
Assert(FileExists(ATableName),'Table tidak ditemukan');
ATable := TTable.Create(nil);
try
ATable.TableName := ATableName;
ATable.Open;
while not ATable.eof do
begin
AList.Add('<RECORD>');
for i := 0 to ATable.FieldCount-1 do
AList.Add(
Format('%s=%s',[
ATable.Fields[i].FieldName,
ATable.Fields[i].AsString
])
);
AList.Add('</RECORD>');
ATable.Next;
end;
finally
ATable.Free;
end;
end;
--
Salam,
-Jaimy Azle
===========================================================
|| Personal Weblogs: http://jaim.log.web.id ||
|| Personal Delphi Weblogs: http://delphi.log.web.id ||
* Pengantar Pemrograman Database C/S, Delphi dan Firebird
http://delphi.log.web.id/blogs/delphi/000152.html
===========================================================
"Anakin, if one is to understand the great mystery, one must study
all its aspects, not just the dogmatic, narrow view of the Jedi"
-- Senator Palpatine
--
www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia
Info, Gabung, Keluar, Mode Kirim : [EMAIL PROTECTED]
:: Hapus bagian yang tidak perlu (footer, dst) saat reply! ::
## Jobs: itcenter.or.id/jobs ## Bursa: itcenter.or.id/bursa ##
$$ Iklan/promosi : www.itcenter.or.id/sponsorship $$
[@@] Jaket ITCENTER tersedia di http://shop.itcenter.or.id
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/ITCENTER/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
