刚接触DELPHI,求教与ACCESS数据库链接问题! 用BDE、ADO都可以,不过用BDE要设ODBC数据源。具体操作比较简单,按向导做就可以了,不过要注意数据库的文件路径。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用adoconnection连接数据库驱动程序 然后再加个adoquery 连接adoconnection的数据库表 这样就更完美了! 在form上放个adoconnection,然后双击,一步步跟着来就可以连上去了。 function ADOConnectAccess(const Adocon: TADOConnection; const DbName, Password: string): Boolean;{* 用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; 回调函数只触发一次,怎么回事,软件重开又可以了,求救大家了,很痛苦 高手请进,小鸟一问! 我在用xpmenu时的烦恼 菜鸟问题:edit 如何去掉某一程序的托盘图标? ShellExecute(handle, nil, Pchar(s), nil, nil, sw_shownormal);为什么在98下可以.在XP或2000下不行呢? 一个基础的问题! 用动态方法操作Excel,不能直接保存 大家帮忙提个醒,这个第三方控件来叫什么来的? win7 64系统安装delphi7 怎么安装不了 一个小问题 Delph中怎么得到窗口句柄,就是和MFC中GetSafeHwnd返回的窗口句柄一样?谢
{* 用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;