我重新换个版本的BDE v5.2的,(我不知道Delphi6自带的BDE版本是多少)
发现没有任何问题!
但是我程序的好多SQL语句运行出错
就是insert into,update的语句出错!!
但是在原先的BDE方式下就可以!!
像下面的语句就出错,(原先可以):
strSQL:='insert into test(Fieldint,Fieldstr,Fieldmoney,Fieldtime,Fieldbit,Fieldtxt) values
Fieldint,:Fieldstr,:Fieldmoney,:Fieldtime,:Fieldbit,:Fieldtxt)';
with self.Query1 do begin
close;
sql.Clear;
sql.Add(StrSQL);
params[0].AsInteger :=StrToIntDef(self.FlatEdit1.Text, 0);
params[1].Asstring :=self.FlatEdit2.Text ;
params[2].AsCurrency :=strToCurr(FlatEdit3.Text);
params[3].AsString :=self.FlatEdit4.Text ;
params[4].AsBoolean :=True
params[5].AsMemo :=Self.FlatEdit5.Text;
execsql;//出错!
showmessage('OK');
end;
//==========================
// 我发现下列插入语句可以(但是,我工程都快做完了,难道让我一个一个修改SQL语句?晕呀~~~
//=============================
strSQL:='insert into test(Fieldint,Fieldstr) values(1,'+''''+'test1'+''''+')';
strSQL:='Update test set Fieldint=2,Fieldstr='+''''+'Hello'+'''';
//================================
//=================问题所在原因终于发现!!(以上错误!,请谅解)=======================
不能向一个varchar类型的数据输入汉字!!!!!
同时显示出来的汉字为乱码!!!!!!!!!!!!
急救!!!!!!!!!!!!!!!!!!