Delphi问题1：不用控件连接MS SQL数据库？

[huangjianyou]

书上说的全是用控件的，我用VB时不用控件连接数据库的，所以想用Delphi时都不用控件。

刚转来Delphi，请指教。

＾_＾

[huangjianyou]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, adodb, DB;

type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
qrySel: TADOQuery ;

implementation

{$R *.dfm}

begin
qrysel:= TADOQuery.Create(nil); //这一句出错，弹出是“...‘未调用 Coinitialize...’”
try
//qrysel.ConnectionString :='Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=sa;Initial Catalog=pos;Data Source=.'; //设置连接串
qrysel.ConnectionString :='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=CSDB;Data Source=YOU';
with qrysel do
begin
close;
sql.clear;
sql.add('select * from Car');
try
execsql;
except
showmessage('error');
end;
end;

finally
qrysel.free;
end;

end.

end;


出错啊，看看啦... :(

[ttii]

兄弟，问问题不能这样子阿，你能先看看书，关于这方面是很多资料的

[huangjianyou]

我两周看了＜Delphi7完美经典＞，铁道出版社的，里面有三分一关于数据库的，但全部用控件连接数据库的，我这样问问题有什么问题吗？

刚收到qxj信息，试试先，先多谢啦。

[huangjianyou]

还是不行，晕了！

只有等qxj明天来了。

[huangjianyou]

＾_＾，问题解决了，多谢qxj，多谢各位。

[exu]

"我用VB时不用控件连接数据库的"???
难道你不用ADO?只不过是动态创建ADO罢了,Delphi中你完全可以导入ADO类库,用CreateCOMObject的方法来创建嘛

[huangjianyou]

我就是用ADO，但不想用ADOConnection等控件，你说的CreateCOMObject方法我又不会，用qxj的方法就行了。

[qxj]

^-^
解决就好.

有时间多看看书.

嘻嘻

[befree]

给分，靓仔DD

[huangjianyou]

我看书了，但书上没说的呀，晕，现在的书专搞一些简单的例子，几句话就说一个什么什么系统出来了，晕。我的书七十元的呀，再晕。

[chinaandys]

可以啊，动态建立控件

[huangjianyou]

不一样是要用控件，＾_＾，不用控件Delphi没办法吗？

[qxj]

uses adodb;

var
qrySel: TADOQuery ;
begin
qrysel:= TADOQuery.Create(nil);
try
qrysel.ConnectionString :='Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=sa;Initial Catalog=pos;Data Source=.'; //设置连接串
with qrysel do
begin
close;
sql.clear;
sql.add('select * from table1");
try
execsql;
except
showmessage('error');
end;
end;

finally
qrysel.free;
end;

end;

[chwdong]

放一个adoconnection

ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;password=;Persist Security Info=True;User ID=sa;Initial Catalog=jdtransdb1;Data Source=192.168.0.105';
adoconnection1.connected;

[helodd]

麻烦.....

[hexenzhou]

使用CreateOleObject函数创建ADO！

[huangjianyou]

//chwdong(chwdong)

这个连接方法用控件了，书上都有说。＾_＾


//麻烦.....

是的，我比较麻烦，我只是想学习，多谢了。


//使用CreateOleObject函数创建ADO！

才学Delphi，你讲得这么深，我不会啊。


一会试一下qxj的行不行。＾_＾