procedure DBConnect();
{
功能: 连接到数据库
}
var
s : string;
begin g_CurDir := ExtractFilePath(Application.ExeName); // 创建数据模块
MainDB := TMainDB.Create(Application); // 连接数据库
if not mainDB.adoCn.Connected then
begin
s := g_CurDir+'DB\'+'xxx.mdb';
s := 'Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='+ s;
mainDb.adoCn.ConnectionString := s;
maindb.adoCn.Connected := true;
maindb.adsTb.CommandText := 'select * from Client';
maindb.adsTb.Connection := maindb.adoCn;
maindb.adsTb.Active := true;
end;end;
{
功能: 连接到数据库
}
var
s : string;
begin g_CurDir := ExtractFilePath(Application.ExeName); // 创建数据模块
MainDB := TMainDB.Create(Application); // 连接数据库
if not mainDB.adoCn.Connected then
begin
s := g_CurDir+'DB\'+'xxx.mdb';
s := 'Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='+ s;
mainDb.adoCn.ConnectionString := s;
maindb.adoCn.Connected := true;
maindb.adsTb.CommandText := 'select * from Client';
maindb.adsTb.Connection := maindb.adoCn;
maindb.adsTb.Active := true;
end;end;
解决方案 »
- 有关TStrings类的问题
- 那位老大能把这段C代码改为Delphi
- dll改名的问题
- *** 散分,祝大家新年快乐,工作顺利!!! ***
- 兄台,帮一帮穷人啊
- 怎样让窗体不可移动!但是X(关闭)按钮可使用!
- 请问那里有这个控件(用来打印条形码的)???
- 如何向memo加入字符串?
- 痛苦的情人节!
- socket问题
- !!!moudy(勇士(绝对盗版))来拿分 ,考,说话算话,答应再给解决问题的再送 一根油条和两个鸡蛋, 不过能不能再进一步回答我的问题!多
- 我想在ie的右键菜单中增加一项,执行一个脚本对ie中选择的文本进行处理,如flashget目录中的jc_link.htm,该怎么取得文本,好像不能直接
我用的是Delphi6+ado+Access97
UP
ado的版本从哪里看得出来?
没有任何问题。
怎样使得ADO版本一致?
我将98下的Msado15.dll拷到安装目录还是不行啊。
2 和bde完全无关
3 g_CurDir := ExtractFilePath(Application.ExeName);
if g_CurDir[length(g_CurDir)]<>'\' then
g_CurDir :=g_CurDir +'\';
D6_upd2_ent.exe
还是不幸!
在WIN2K下重新捕捉到的错误如下:
未找到提供程序。该程序可能未正确安装。
我没有权力要求用户安装Office2000
有没有办法不装Office就能解决问题呢?
Win2K已经自带MDAC了