delphi中如何连接到sql server ,不用odbc?
解决方案 »
- stringgride
- 我在SQL SERVER2000里可以查询,可以DELPHI运行就说“FORM语句有错误”。
- 如何得到一个字符在字符串中第一次出现的位置?在线等!
- Fastreport中如何动态画线条
- 请教! 什么是三层数据库啊 ,我不懂,请从简单说起!谢谢
- 发个贴子,大家讨论一下!!!!!
- 为什么??100分求教
- 刚接手别人做的一个软件碰到一个问题:程序运行时在MDI主窗体中上下两个子窗体同时显示,请问这是怎么实现的?高手请进,高分!!!!!
- skinengine2.9怎么打开skinengine3.11的Skin
- 请教一个很菜的问题,怎样在机器上安装两win98(繁体版与简体版)
- 如何利用delphi开发b/s办公自动化应用程序
- 请教一个程序 问题??
使用adoconnection可以共享连接!
ADOConnection1.LoginPrompt := False;
动态设置sql连接: //别名设置//
asl:=tstringlist.Create ;
asl.Clear;
asl.add('driver name= MSSQL'); //数据库类型
asl.Add('SERVER NAME='+ svrname); //主机名称
asl.add('database name='+ dbname); //数据库名称
asl.Add('USER NAME='+ svruser); //dbo名称
asl.Add('SQLQRYMODE=LOCAL'); //别名写入:别名存在,修改;别名不存在,加入
if not Session.IsAlias('seg') then
begin
try
Session.AddAlias('seg','MSSQL',asl);
finally
asl.Free ;
end;
end
else if Session.IsAlias ('seg') then
begin
try
Session.ModifyAlias('seg',asl);
finally
asl.Free ;
end;
end;
ADOConnection1.LoginPrompt := False;
然后其它连接数据库的组件都连接到ADOConnection1就行了
adoquery1.connectino:=ADOConnection1;
很流行的呀
:)