在delphi7中怎么连接Access数据库???
我是新手,请各位高手指点下小弟!
谢谢了!
我是新手,请各位高手指点下小弟!
谢谢了!
解决方案 »
- 树内拖动,树与树之间的拖动的问题,高手低手,请昂首挺胸地进来吧,在线等之,我们共同交流...
- 请问高手:delphi中如何实现模糊查找。。。
- Delphi中為何出現Invalid Parameter錯誤信息
- 急救 请问数据导入导出 如何实现?
- 请问如何在delphi中调用access中的模块和宏?
- 连接oracle的问题
- 我想在自己的程序中执行IE的“收藏夹”的功能,和IE的完全一样的那种,在菜单栏上设计一个“收藏夹”,点击后要与IE的一样,怎么办?
- 再次求教,ADO如何让数据库分页显示(每页显示10条)(61尽献各位)
- 请问在哪里可以下载到DELPHI的控件方面的好书?
- 请问“Delphi5 企业版Update.exe”的注册码
- 关于Delphi下的DLL编写问题
- 各位老大:这样的问题可以解决吗?
我刚学delphi,大家不要笑我哦~~~~~~~~
{* 用Ado连接Access数据库函数}
begin
with Adocon do
begin
Close;
LoginPrompt := False; //若数据库不存在时,进行判断
ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
'Data Source=' + DbName + ';' +
'Mode=ReadWrite;' +
'Persist Security Info=False;' +
'Jet OLEDB:Database Password=' + Password + ';' +
'Jet OLEDB:Compact Without Replica Repair=True';
try
KeepConnection := True;
Screen.Cursor := crHourGlass;
Connected := True;
Open;
Screen.Cursor := crDefault;
ADOConnectAccess := True;
except
ADOConnectAccess := False;
end;
end;
end;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
+ExtractFilePath(application.ExeName)//ParamStr(0))
+'database\GXStudent.mdb;Persist Security Info=False;Jet OLEDB:DataBase PassWord=123';