ParamByName('jibu').AsString := Insert_Code(combobox1.Text);
//요기서 insert_code라는 함수는 code_name으로 들어가 있는 값을 다시 db에서 불러와서리 입력을 코드로 하기 위한 함수거덩요....
Function TForm1.Insert_Code(codename:string):string;
begin
With Query2 do begin
Close;
Sql.clear;
Sql.Add( 'Select Code From C_Code ');
Sql.Add( 'Where Code_name = '''+codename+''' ');
OPen;
end;
StrCode := Query2.fieldbyname('Code_name').asstring
end;
//요렇게 처리 했는데...요 함수에 들어와서 open할 때 에러가 팍 뜨네요...
code_name필드를 찾을 수 없다구요...
아 ..제발 도와 주세용....(황사 조심하시구요)
라고 Code_name 필드명을 넣어주세요....그럼 해결될듯....
디비가 몬지 몰라서...
그럼
왕델초 wrote:
> ParamByName('jibu').AsString := Insert_Code(combobox1.Text);
> //요기서 insert_code라는 함수는 code_name으로 들어가 있는 값을 다시 db에서 불러와서리 입력을 코드로 하기 위한 함수거덩요....
> Function TForm1.Insert_Code(codename:string):string;
> begin
> With Query2 do begin
> Close;
> Sql.clear;
> Sql.Add( 'Select Code From C_Code ');
> Sql.Add( 'Where Code_name = '''+codename+''' ');
>
> OPen;
>
> end;
> StrCode := Query2.fieldbyname('Code_name').asstring
> end;
> //요렇게 처리 했는데...요 함수에 들어와서 open할 때 에러가 팍 뜨네요...
> code_name필드를 찾을 수 없다구요...
> 아 ..제발 도와 주세용....(황사 조심하시구요)