在窗体运行时,想使连接初始化,可是试运行的时候提示‘找不到可安装的ISAM’,
这是怎么回事呢?
procedure TForm1.FormShow(Sender: TObject);
var
apppath:string;
begin
apppath:=extractfiledir(application.ExeName);
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;DataSource='+AppPath+'\canyinguanli.mdb;'+'Persist Security Info=False';
ADOConnection1.Connected:=True;
// ADOTable1.Open;
end;
end.
这是怎么回事呢?
procedure TForm1.FormShow(Sender: TObject);
var
apppath:string;
begin
apppath:=extractfiledir(application.ExeName);
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;DataSource='+AppPath+'\canyinguanli.mdb;'+'Persist Security Info=False';
ADOConnection1.Connected:=True;
// ADOTable1.Open;
end;
end.
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;DataSource='+AppPath+'canyinguanli.mdb;'+'Persist Security Info=False';
data.ado.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'\数据库\jxc.mdb'+';Persist Security Info=False;Jet OLEDB:Database Password=$jxc$';
data.ado.LoginPrompt :=false;
data.ado.Connected:=true;
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + AppPath + 'canyinguanli.mdb;' + 'Persist Security Info=False';
ADOConnection1.Connected := True;
// ADOTable1.Open;
还是连接不对。建议你静态连接确认以后。把鼠标放到conectionstring上。然后str;=‘ ’;照着仔细的写。然后
ado1.conectionstring:=str;
我也碰到过这样的问题,并没有安装什么东西,只是多试了几次就可以了。还是自己粗心