请问在delphi中如何连接paradox的数据库

[xiangding]

在delphi中用哪几种连delphi自带的paradox数据库？
用ADO可以连吗？我不想配ODBC,那样不方便。
大家帮帮我，

[cneast]

BDE

[cneast]

ADO很慢的

[xiangding]

像BDE,ODBC我都知道，
我现在想通过ADO直接连，因为要另外配置对用户就不方便了。

[jtww888]

用Tdatabase

[xiangding]

database如何连？
我不配BDE,ODBC.

[SmallMaker]

参考一下：
http://lzw222.myrice.com/3-SeverJiShu/Sever_wz/sever02.htm
对于文件型的数据库 如PARADOX只需要指定路径,配置ODBC比较简单；

[jackie168]

試試下面的代碼，應該對你有用
完全脱离BDE环境，用ADO
procedure Tproject.BitBtn1Click(Sender: TObject);
var
CreateAccess:OleVariant;
DataBaseName:ansiString;
ConnectStr:ansistring;
TdeForm:TTdeForm;
begin
SaveDialog1.InitialDir := ExtractFilePath(Application.ExeName) + '新建项目';
SaveDialog1.Title:='保存项目文件';
SaveDialog1.FileName:=ProjectNamesx;
if not SaveDialog1.Execute then
begin
close;
exit;
end else
begin
DataBaseName:=SaveDialog1.FileName;
if Not CopyFileTo(ExtractFilePath(Application.ExeName) + '\rationbase\ration.mdb', ChangeFileExt(DataBaseName,'') + 'Ration.mdb') then
begin
Application.MessageBox('对不起，创建数据库错误，请您重新进行操作','',MB_OK + MB_ICONINFORMATION);
Exit;
end;
SetFileAttributes(Pchar(ChangeFileExt(DataBaseName,'') + 'Ration.mdb'),FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(Pchar(ExtractFilePath(Application.ExeName) + '\rationbase\ration.mdb'),0);
//FileSetAttr()
//FileGetAttr()
//SetFileAttrigutes();
// SetFileAttrigutes(ExtractFilePath(Application.ExeName) + '\rationbase\ration.mdb',);
ConnectStr:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataBaseName + ';';
CreateAccess:=CreateOleObject('ADOX.Catalog');
CreateAccess.Create(ConnectStr);
with ProjectDatamodule do
begin
try
ProjectConnection.Connected:=false;
ProjectConnection.ConnectionString:=ConnectStr+'Persist Security Info=true';
ProjectConnection.Connected:=true;
ProjectDataModule.CreateYssTable();//创建...；
ProjectDataModule.CreateProjectTable();//创建...
ProjectDataModule.createystable();//创建...（临时）
ProjectDataModule.CreateStaffTable();//创建....
ProjectDataModule.CreateGcqfTable();//创建....
ProjectDataModule.CreateGcdj_lsTable;//创建...（临时）
ProjectDataModule.CreatelsYsTable;//创建~~~
ProjectDataModule.CreatezcmTable;
CreatesavedataTable; //创建全局变量存储表
HasProjectOpened:=true;
with projectdatamodule.properQuery do
begin
Open;
if not(Active) then Active;
Edit;
FieldbyName('jsxmmc').value:=Edit1.Text;
FieldbyName('qylb').value:=Edit2.Text;
FieldbyName('bz').value:=Memo1.Lines.Text;
FieldbyName('UserName').value:=Edit3.Text;
FieldbyName('Passwd').value:=Edit4.Text;
FieldbyName('Company').value:='Consid';
UpdateBatch;
end;
//设置主窗体的标题
ProjectName:=trim(Projectdatamodule.properquery.Fieldbyname('jsxmmc').value);
MainForm.Caption:='安装工程套价系统...['+ProjectName +']';
mainform.Statusbar1.Panels[3].Text:=Edit3.Text;
except
application.MessageBox('没有正确的建立数据库','错误',mb_ok+mb_iconinformation);
HasProjectOpened:=false;
close;
exit;
end;
end;
.....


建表例子
procedure TProjectDataModule.CreateYssTable();//创建项....
begin
with ProjectDataModule.CreateTableQuery do
begin
close;
SQL.Clear;
Sql.Add('CREATE TABLE T_yss (xh int,debh char(10),demc char(150),dw char(30),');
sql.add('sl numeric(8,3),jj numeric(8,2),jjhj numeric(8,2),');
sql.add('rgdj numeric(8,2),rghj numeric(8,2),cldj numeric(8,2),');
sql.add('clhj numeric(8,2),jxdj numeric(8,2),jxhj numeric(8,2),');
sql.add('gcm char(100),zjbm char(12),gcldwjs numeric(8,2))');
CreateTableQuery.execsql;
end;
end;

[cow8063]

只能是ODBC了，老兄

[雨后阳光2000]

建数据库笔名，用BDE就行了

[xiangding]

to: yuhouyangguang(雨后阳光) 兄

我说了不允许用ODBC和BDE的。