球
球迷
Unregistered / Unconfirmed
GUEST, unregistred user!
本来用PARADOX数据库,后来转到SQL2000下,结果编译的时候没有问题,运行的时候出现如下错误信息。
Project case.exe raised exception class EDBEngineError with message 'Invalid field name'
[Microsoft][ODBC SQL Server Drivers][SQL Server]列名'个险'无效;
[Microsoft][ODBC SQL Server Drivers][SQL Server]列名'0701'无效;
[Microsoft][ODBC SQL Server Drivers][SQL Server]列名'date'无效;
......
出错的那段程序如下,请高手指点:
procedure Tcase_Input.comb_casetypeChange(Sender:TObject);
var rep_no:string;
begin
case comb_casetype.ItemIndex of
0: begin
query1.SQL.Clear;
query1.SQL.Add('select count(*)+1 from case_rep');
query1.SQL.Add('where case_type="个险"');
query1.SQL.Add('and operator_date=date');
query1.SQL.Add('and agent_no="0701"');
query1.Open;
rep_no:=query1.Fields[0].AsString;
while length(rep_no)<3 do rep_no:='0'+rep_no;
rep_no:='GB0701'+datetostr(date)+rep_no ;
edit_repno.Text:=rep_no;
end;
1: begin
......
end;
end; //end of case
end; //end of procedure
另:我在把数据库从PARADOX转到SQL SERVER2000 上之后程序上应该注意修改哪些方面的东东?怎么修改最省事?是不是应该注意数据类型的匹配?
还有在SQL SERVER2000中保存不限长的多段文本最好用什么类型?用什么语句或控件读最好?
Project case.exe raised exception class EDBEngineError with message 'Invalid field name'
[Microsoft][ODBC SQL Server Drivers][SQL Server]列名'个险'无效;
[Microsoft][ODBC SQL Server Drivers][SQL Server]列名'0701'无效;
[Microsoft][ODBC SQL Server Drivers][SQL Server]列名'date'无效;
......
出错的那段程序如下,请高手指点:
procedure Tcase_Input.comb_casetypeChange(Sender:TObject);
var rep_no:string;
begin
case comb_casetype.ItemIndex of
0: begin
query1.SQL.Clear;
query1.SQL.Add('select count(*)+1 from case_rep');
query1.SQL.Add('where case_type="个险"');
query1.SQL.Add('and operator_date=date');
query1.SQL.Add('and agent_no="0701"');
query1.Open;
rep_no:=query1.Fields[0].AsString;
while length(rep_no)<3 do rep_no:='0'+rep_no;
rep_no:='GB0701'+datetostr(date)+rep_no ;
edit_repno.Text:=rep_no;
end;
1: begin
......
end;
end; //end of case
end; //end of procedure
另:我在把数据库从PARADOX转到SQL SERVER2000 上之后程序上应该注意修改哪些方面的东东?怎么修改最省事?是不是应该注意数据类型的匹配?
还有在SQL SERVER2000中保存不限长的多段文本最好用什么类型?用什么语句或控件读最好?