不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

出错了,但不知错在哪?很短的一句代码.

楼主cowbo（友好的狮子&鬼故事砖家）2005-05-05 16:47:24 在 Delphi / 数据库相关提问

DataModule1是一个数据模组,已加入Adoconnection,ADOQuery,TDataSource,运行下面的FORM中的代码时出错了,只是提示内存地址错,偶不知道错在哪里了?高手请指教,我是菜鸟,谢了.

with DataModule1 do
begin
Sql1.Connection:=Conn;//出错的行
Sql1.SQL.Clear ;
Sql1.SQL.Add('select * from class ');
Sql1.active:=true;
Ds.DataSet :=Sql1;
dbgrid1.DataSource:=Ds;
end; 问题点数：10、回复次数：13Top

1 楼cowbo（友好的狮子&鬼故事砖家）回复于 2005-05-05 16:48:00 得分 0

在线等:|Top

2 楼cowbo（友好的狮子&鬼故事砖家）回复于 2005-05-05 16:50:16 得分 0

数据库联接是没问题的啊.Top

3 楼cfwgson（中国心）回复于 2005-05-05 17:37:39 得分 2

Sql1.Connection:=Conn;这句中的Conn是Adoconnection组件吗?Top

4 楼5043682（投身于..??）回复于 2005-05-06 00:13:34 得分 2

报的什么错啊Top

5 楼dreamover（梦醒了〖http://hellfire.cn〗）回复于 2005-05-06 09:46:03 得分 2

在project|options里面auto-create forms里面的datamoudle1放在最前面Top

6 楼longwycn（(理想0769) ---要做DBA）回复于 2005-05-06 09:47:34 得分 2

是呀,应该是把datamoudle1的FORM放在最前面Top

7 楼cowbo（友好的狮子&鬼故事砖家）回复于 2005-05-06 11:29:54 得分 0

还是不行啊:
说明:

Form1中的代码如下:

type
Conn: TADOConnection;

DataMoulel文件中的代码如下:

type
TDataModule1 = class(TDataModule)

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
Conn.ConnectionString:='driver={SQLServer};server=172.16.21.185;UID=sa;PWD=;database=Store';

end;

Top

8 楼jchen00（假老练）回复于 2005-05-06 11:38:18 得分 2

form1中uses unit xxx 了吗？ (xxx 表示datamodulename)Top

9 楼cowbo（友好的狮子&鬼故事砖家）回复于 2005-05-06 11:55:00 得分 0

楼上,用了,但还是不行Top

10 楼cowbo（友好的狮子&鬼故事砖家）回复于 2005-05-06 11:57:59 得分 0

错误如下:

Project Store.exe raised execption class EAccessViolation with message 'Access violation at address 004AAD33 in module 'STORE.exe'. Read of address 00000058'.Process stopped.Use step or Run to continue.Top

11 楼dreamover（梦醒了〖http://hellfire.cn〗）回复于 2005-05-06 13:33:20 得分 0

with DataModule1 do
begin
Sql1.Connection:=Conn;//为什么这样用?
Sql1.SQL.Clear ;
Sql1.SQL.Add('select * from class ');
Sql1.active:=true;
Ds.DataSet :=Sql1;
dbgrid1.DataSource:=Ds;
end;

你把conn建到datamoudle1里好不好Top

12 楼cowbo（友好的狮子&鬼故事砖家）回复于 2005-05-06 14:36:23 得分 0

TO 楼上大虾:

你好!
我已经将CoNN托到datamoudle1里了,还双击设定了SQL数据库联接,
那上面的代码要怎么改啊?谢了.Top

13 楼hatum（hatum）回复于 2005-05-06 15:08:55 得分 0

静态设置你的Sql1的Connection
然后：
with DataModule1 do
begin
Sql1.Connection:=Conn;//这行去掉
Sql1.SQL.Clear ;
Sql1.SQL.Add('select * from class ');
Sql1.active:=true;
Ds.DataSet :=Sql1;
dbgrid1.DataSource:=Ds;
end;
Top