Console app to write to MS Access database
- From: "mac" <mac32bit@xxxxxxxxxxx>
- Date: 19 Feb 2006 03:51:22 -0800
Hi all,
I am fairly new to Delphi so could someone look at this code for me and
tell me if it is any good. It works but I am not sure if it is the
right way to do it. It is a simple console app that writes to an Access
database.
I had to add "ActiveX" of all things to "Uses" to get
CoInitialize/CoUninitialize to work is that the right one?
Thanks in advance!
M.
Code follows...
uses
ADODB, ActiveX;
Var
ADOTable1: TADOTable;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Writeln('Opening database...');
CoInitialize(nil);
try
ADOTable1 := TADOTable.Create(nil);
try
ADOTable1.ConnectionString :=
'Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=D:\ctgwork\Databases\FTPrecords.mdb;Persist Security Info=False'
;
ADOTable1.Name := 'ADOTable1';
ADOTable1.TableName := 'Table1';
try
ADOTable1.Open;
ADOTable1.Append;
ADOTable1.FieldByName('ZipFileName').AsString := 'Hello World
11:45';
ADOTable1.Post;
finally
ADOTable1.Close;
end;
finally
ADOTable1.Free;
end; // try
finally
CoUninitialize();
end; //try
Writeln('Done!');
end.
.
- Prev by Date: Console app to write to MS Access database
- Next by Date: Console app to write to MS Access database
- Previous by thread: Console app to write to MS Access database
- Next by thread: Console app to write to MS Access database
- Index(es):
Relevant Pages
|
