[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
begin
dm.ass.close;
dm.ass.sql.clear;
dm.ass.sql.add('select * from test');
dm.ass.open;
combobox1.Clear;
while not dm.ass.Eof do
begin
combobox1.Items.Add(dm.ass.fieldbyname('a').asstring);
dm.ass.Next;
end;
end;
[/code]
當我案執行的時候會出現'access violation at address 00487eee in module 'project1.exe'.read of address 0000005c'
請問我要如何解決 拜託各位大大指導一下 感恩

僅就以下程式進行猜測
可能你的 dm 沒有被建立, 才會引發物件找不到的 Access error
===================引 用 shihcai 文 章===================

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
begin
dm.ass.close;
dm.ass.sql.clear;
dm.ass.sql.add('select * from test');
dm.ass.open;
combobox1.Clear;
while not dm.ass.Eof do
begin
combobox1.Items.Add(dm.ass.fieldbyname('a').asstring);
dm.ass.Next;
end;
end;
[/code]
當我案執行的時候會出現'access violation at address 00487eee in module 'project1.exe'.read of address 0000005c'
請問我要如何解決 拜託各位大大指導一下 感恩

[code delphi]
unit unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DateUtils,StdCtrls, DBCtrls, ExtCtrls, Grids, DBGrids, DB, Mask, ComCtrls;
type
TF1_SCHEDULE = class(TForm)
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
Panel1: TPanel;
ComboBox1: TComboBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DataSource1: TDataSource;
DateTimePicker1: TDateTimePicker;
Edit1: TEdit;
Label6: TLabel;
Label7: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure FormActivate(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure DateTimePicker1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F1_SCHEDULE: TF1_SCHEDULE;
implementation
uses dm1;
{$R *.dfm}
procedure TF1_SCHEDULE.FormActivate(Sender: TObject);
var
n:string;
begin
dm.ass.close;
dm.ass.sql.clear;
dm.ass.sql.add('select * from Circle_report where use_ok is null');
dm.ass.open;
combobox1.Clear;
while not dm.ass.Eof do
begin
combobox1.Items.Add(dm.ass.fieldbyname('assemble_lot').asstring);
dm.ass.next;
end;

end;

[/code]
請問一下大大 我重新用後已經可以連結了 不會出現錯誤,但是不知道現在為什麼又出現同樣的問題了 請問各位大大 是我的ADOQ有哪裡設定錯誤嗎 還是甚麼沒打開?

第二次貼的程式, 還是看不出個所以然, 我想重點還是在於你的 DM 物件的宣告及建立, 請從這裡查起, 另外放在 ONACTIVE 並不是很恰當(但不知道你的目的, 所以不清楚要放那比較適合)
也有可能是放在ONACTIVE 會引發, 不妨嘗試放在 ONSHOW 上看看