my first submission-hope this is right group for this-don't flame
me too bad.
i have a form with 2 buttons, 2 tables, 2 data source .
using p120,win 95, 64mb, delphi 2,bde conf util s3.0 and think
bde is 4.51
configure utility has as msaccess driver(blanks if not listed
here)
version 1.0
type server
dll32 idda3532.dll
database name c:\guide\testaccess
open mode is read\write
alias testaccess has
type msaccess
path c:\guide\testaccess
databasename testaccess
open mode read\write
lang driver access general
the crete table for paradox and access uses defaults except as
noted in the source code hereunder.. creation of paradox tables
works great.. access part stops at
rasied eception class edbengine error with message 'file does not
exist. couldn't find file 'testaccess'. alias.
alias:testaccess'. precess stopped. use step run etc.
WHAT AM I DOING WRONG?
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,
StdCtrls, DB, DBTables;
type
TForm1 = class(TForm)
btnBuildParadox: TButton;
Button2: TButton;
dsPdox: TDataSource;
tblPdox: TTable;
dsAccess: TDataSource;
tblAccess: TTable;
btnTestAccess: TButton;
procedure btnBuildParadoxClick(Sender: TObject);
procedure btnTestAccessClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.btnBuildParadoxClick(Sender: TObject);
begin
begin
with tblPdox do
begin
Active := false;
DatabaseName := 'testpdox';
TableName := 'district';
//'TableType := ttparadox; not needed using ttdefault for
database
with tblPdox.fielddefs do
begin
clear;
add ('AuditDistrict',ftstring,1,True);
add ('RunNumber', ftInteger,0,false);
add ('Auditkey',ftinteger,0,false);
add ('CountyString',ftstring,40,false);
end;
tblPdox.createtable;
if tblPdox.active then tblPdox.close;
end;
end;
end;
procedure TForm1.btnTestAccessClick(Sender: TObject);
begin
begin
with tblAccess do
begin
Active := false;
DatabaseName := 'testAccess';
TableName := 'district';
with tblAccess.fielddefs do
begin
clear;
add ('AuditDistrict',ftstring,1,True);
add ('RunNumber', ftInteger,0,false);
add ('Auditkey',ftinteger,0,false);
add ('CountyString',ftstring,40,false);
end;
tblAccess.createtable;
if tblAccess.active then tblAccess.close;
end;
end;
end;
end.
