delphi连接sql例子

放一个连接组件 ADOConnection 其它组件TADODataSet,TADOQuery等的connection指向ADOConnection就可以了.

function OpenADOConn:boolean;

begin

result:=false;

try

with ADOConnection do

begin

Connected:= false;

Provider:= 'SQLOLEDB.1';

Properties['Data Source'].Value:= HostName; //服务器名

Properties['Initial Catalog'].Value:= DatabaseName; //表名

Properties['User ID'].Value:= UserID; //用户名

Properties['password'].Value:= UserPWD; 密码

LoginPrompt:= false;

try

Connected:= true;

except

begin

Application.MessageBox('无法连结远程数据库！'

,'注意', MB_OK);

exit;

end;

end;

end;

finally

end;

result:=true;

end;