function Tdm1.LoginToDb(user,pass,servername:string):boolean; var rtn:boolean; conn:string; begin with dm1.ADOConnection1 do begin if connected then close; conn:='Provider=MSDAORA.1;Password='+pass+';User ID='+user+';Persist Security Info=True;'+'Data Source='+servername; adoconnection1.ConnectionString:= conn; try Open; rtn:= true; except rtn:= false; end; end; result:= rtn; end;
var
rtn:boolean;
conn:string;
begin
with dm1.ADOConnection1 do
begin
if connected then close;
conn:='Provider=MSDAORA.1;Password='+pass+';User ID='+user+';Persist Security Info=True;'+'Data Source='+servername;
adoconnection1.ConnectionString:= conn;
try
Open;
rtn:= true;
except
rtn:= false;
end;
end;
result:= rtn;
end;
Oracle和Sybase一样,都学要保证数据库直接拥有Client和Server
直接有连接的配置才可以使用应用软件进行对Server上的数据库进行操作。