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;
 
阅读更多
上一篇Delphi通过ADO连接MYSQL
下一篇怎样在vc、delphi中使用mysql(mysql odbc驱动的使用)
想对作者说点什么? 我来说一句

Delphi + SQL Server 2008 登录系统

2014年03月28日 1.54MB 下载

没有更多推荐了,返回首页

关闭
关闭