Creating ms access database in realtime error

Line 30 (with the cs).

btw I have cs : string in the private part code, even under var (above) I get the same error.

It's very simple to create a empty Access-Database (*.mdb File) using OLE. It's not necessary to have MS-Access installed on your computer. If an exception occures the error message will returned. After creating the DB you can create Tables with simple SQL-Statements.


uses comobj,sysutils;

function CreateAccessDatabase(FileName : String) : String;
var cat : OLEVariant;
begin
result := '';
try
  cat := CreateOleObject('ADOX.Catalog');
  cat.create ('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Filename+';');
  cat := NULL;
except
  on e : Exception do result := e.message;
end;
end;

see also :
http://www.freedownloadscenter.com/Programming/Delphi_Tools_and_Components/Database_Example_in_Delphi__main_form_and_sub_forms.html

Thanks, how can I get all the records from my online database into the ms access database just created?

I know I can do that with an SQL query
I've looked on the internet for a good tutorial, but the ones I found where from table1 into table2 in the same database and what I want is total different.

Hope you can point me into the right direction?

Thanks in advanced.

I neglected to ask why you want to do this. Are you migrating from online to Access. If not you don't need to copy records, you can just link Access to the online table(s).

IMHO the easiest way to copy the records is to open the Access database, link to the table(s) and run MakeTable query(s), or to import them.

I'll be willing to answer your question. The app I'm creating can't run if there isn't a connection to the online database (no internet, I know it's almost impossible), but still if it happends, then the app can connect to the latest database (with most updated records in the ms access database (they don't update that fast).

About your last part. Is there an example, because looked on the internet for an example but couldn't find anything yet.

Thanks

ms access has export import incorporated so that is easy.

I know that, but how to do an import without using ms access itself.

use ODBC ...

here :
http://www.connectionstrings.com/access

How To Export and Import Access Tables Using DAO or ODBC:
http://support.microsoft.com/kb/200427

One way would be to have  2 connection strings (one for your database) and one for online database.Have all the tables as well then just do a record copy from one table to another.

Your last comment is sort of the plan, I have a code already, but nothing is copied yet (the ms access database exists and the table with columns also).

Here is the code I use, maybe you can help me out with that:

Thanks

procedure TForm1.FormCreate(Sender: TObject);
var Source, Target : TAdQuery;
     teller : integer;
begin
  ADConnection2.Connected := True;
  AccessConnect;
  Source := TADQuery.create(nil);
  Target := TADQuery.create(nil);
  try
    Source.connection := ADConnection2;
    Target.connection := ADConnection1;
    Source.SQL.Text := 'SELECT * FROM songs';
    Target.SQL.Text := 'INSERT * INTO songs';
    Source.Active := True;
    Target.Active := True;
    while not Source.eof do
    begin
       Target.Append;
       for teller := 0 to Source.fieldcount -1 do
           Target.Fields[teller].Value := Source.Fields[teller].value;
       Target.Post;
       Source.next;
    end;
  finally
     if Source.active then Source.active := false;
     if Target.active then Target.active := false;
     Source.free;
     Target.Free;
  end;
end;

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

dont know why you people create components on the fly...for what reason or purpose?If you got' to have it you got' to have it.So just use it...Just drop 2 adoconnections,adotables on the form and one queery.
Link 1 connection to server and the other one to your application.
Link table1 to server.songs other to local.songs and just bang the queery to copy/append from one table to another.

For the server connection I usually use a function (which checks the connection) as usually the server is the one giving hard time.If server has no connection everything else is pointless.So care must be taken in connecting to server,
Good practice is to use TRY FINALLY EXCEPT with logging to text file.
Npwdays to connect securely to server is a real pain in the ass.Bypassing firewalls is a nice sport.I busted my balls one afternoon just to find NOD blocking my connection.

and if you are going to synchronise the tables then either you must copy only newly added records.Otherwise you will have to delete everything first in your table and then append...