不用ADO控件，直接用代码，如何连接SQLSERVER数据库

[blackspider]

RT

[OYHL]

不用ADO控件 ?????
顶。。。。。。。。。。。。

[DelphiBird]

可以把ADO当作com来用
用元生得ado对象
直接根据classid省城对象
声明一个变体类型变量
然后可以付给这个变量
比如conn
conn:=createobject("adodb.connection")

[大地精灵]

同意楼上的

[47522341]

楼主链接到数据库怎么用？

[xiaoyuer0851]

如果非要用的话呢？
那么可以使用楼上的方法，动态创建
既然能够创建，那么连接的路径方面就更简单了啊
写几行代码就可以搞定了

[niuyongzljtoo]

var
connect:adoconnection;
.........
with connect do
begin
connectionstring:='Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=ny;Data Source=haven125';
connected:=true;
end;

.........

[lonelylight]

直接使用sqlserver的api接口。sqlserver带了几个动态连接库。可以使用它们连接

[说好不能打脸]

高手，我只听过动态创建连接，第一次听说动态创建ADO组件哈！高实在是高！！

[traveler_qt]

楼主可使用ADOX或者原生的ADO对象，使用ADOX你看看李维的《delphi5 com/Dcom/mts》,如果用原生的ADO原生对象可以参考一下左轻侯的“Rich Explorer”（这是delphibbs的离线工具，有源程序，使用ADO原生对象）

yinwenjie(晕) :你不知道的还多呢！动态创建ADO组件怎么了？

我的程序中经常使用，为了节省资源。

给个最简单的例子:
var
_adoq:TADOQuery;
begin
try
_adoq:=TADOQuery.Create(nil);
_adoq.Connection:=dm.ADOConn;//数据模块的TADOConnection
//_adoq.ConnectionString:="自已写";
with _adoq do
begin
Close;
Sql.Text:="自已写";
Open;
end;
....
finally
FreeAndNil(_adoq);
end;
end;

[traveler_qt]

楼主可使用ADOX或者原生的ADO对象，使用ADOX你看看李维的《delphi5 com/Dcom/mts》,如果用原生的ADO原生对象可以参考一下左轻侯的“Rich Explorer”（这是delphibbs的离线工具，有源程序，使用ADO原生对象）

yinwenjie(晕) :你不知道的还多呢！动态创建ADO组件怎么了？

我的程序中经常使用，为了节省资源。

给个最简单的例子:
var
_adoq:TADOQuery;
begin
try
_adoq:=TADOQuery.Create(nil);
_adoq.Connection:=dm.ADOConn;//数据模块的TADOConnection
//_adoq.ConnectionString:="自已写";
with _adoq do
begin
Close;
Sql.Text:="自已写";
Open;
end;
....
finally
FreeAndNil(_adoq);
end;
end;

[Erice]

conn:=createobject("adodb.connection")
rcord:=createobject("adodb.recordset")
等；
创建ADO原生对象

[kaiyun97]

人家做好的东西为何不用呢,