这是因为源程序中连接了GZGL名称的数据库。而你的电脑中没有设置这个数据库别名造成的。和BDE重新安装没有关系。而是BDE中没有设置这个别名的数据库。
你试试 ADO 呢?//开始初始化数据库
if gConnLC<>nil then
begin
gConnLC.Free
gConnLC:= nil
end
gConnLC:= TADOConnection.Create(nil)
gConnLC.KeepConnection:= True
sPath:= ExtractFilePath(Application.ExeName) + 'db.mdb'
if FileExists(sPath) then
begin
//Access
with gConnLC do
begin
ConnectionString:= ' Provider=Microsoft.Jet.OLEDB.4.0Data Source= ' + sPath + ''
LoginPrompt:= False
gConnLC.Open()
end
end
else begin
MsgBox('本地数据库连接失败!', '提示', MB_OK + MB_ICONINFORMATION)
//Application.Terminate
end
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)