1,Data Module名称:DataModule1,有个ADOConnection1
已设好ConnectionString属性,LoginPrompt为True
2,主窗口Form1主要控件有:ADOStoredProc1,DataSource1,DBGrid1,MaskEdit1,Button1
都已设好属性。
按Button1调用时出错:Missing Connection or ConnectionString,但我在Form1中做一个一样的ADOConnection1来调用这个时就不会出错,这是什么原因呢?调用代码:
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOStoredProc1.Close;
ADOStoredProc1.Parameters.ParamByName('@pbatt').Value:=MaskEdit4.Text;
ADOStoredProc1.Open;
end;谢谢!
已设好ConnectionString属性,LoginPrompt为True
2,主窗口Form1主要控件有:ADOStoredProc1,DataSource1,DBGrid1,MaskEdit1,Button1
都已设好属性。
按Button1调用时出错:Missing Connection or ConnectionString,但我在Form1中做一个一样的ADOConnection1来调用这个时就不会出错,这是什么原因呢?调用代码:
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOStoredProc1.Close;
ADOStoredProc1.Parameters.ParamByName('@pbatt').Value:=MaskEdit4.Text;
ADOStoredProc1.Open;
end;谢谢!
2.设置ADOStoredProc1的connection为DataMoudle中的ADOConnection1;
3.确认在dpr中datamodule先与Form创建
program ProductsStaticD;uses
Forms,
ProductStaticU in 'ProductStaticU.pas' {Form1},
ProductStaticU2 in 'ProductStaticU2.pas' {Form2},
About1 in 'About1.pas' {AboutBox},
DataForm in 'DataForm.pas' {DataModule1: TDataModule};{$R *.res}begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
program ProductsStaticD;uses
Forms,
ProductStaticU in 'ProductStaticU.pas' {Form1},
ProductStaticU2 in 'ProductStaticU2.pas' {Form2},
About1 in 'About1.pas' {AboutBox},
DataForm in 'DataForm.pas' {DataModule1: TDataModule};{$R *.res}begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Forms,
PrintName in 'PrintName.pas' {Form5},
dmADOConnection in 'dmADOConnection.pas' {DataModule1: TDataModule};{$R *.res}begin
Application.Initialize;
Application.CreateForm(TDataModule1, DataModule1);
Application.CreateForm(TForm5, Form5);
Application.Run;
end.
这是我的工程文件,你看看你还缺什么?
并且还要放在CreatForm(TForm1,Form1)的前面。
我已设了:LoginPrompt属性为True了