关闭

delphi连接sql例子

365人阅读 评论(0) 收藏 举报
放一个连接组件 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;
 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:12345次
    • 积分:238
    • 等级:
    • 排名:千里之外
    • 原创:13篇
    • 转载:1篇
    • 译文:0篇
    • 评论:4条
    文章分类