实在搞不懂错在哪,sql为什么出错?(50分)

  • 主题发起人 主题发起人 jbas
  • 开始时间 开始时间
J

jbas

Unregistered / Unconfirmed
GUEST, unregistred user!
function TDbM.DbAddDpInfo(var ADpInfo: TDpInfo): boolean;
var
TempDpName:string;
TempDpbh:string;
TempDpRTe:string;
TempDpPe:string;
TempDpsjName:string;
TempDpsjbh:string;
TempDpMm:string;
begin
result:=false;
with ADOQueryAddDpInfo do
begin
connection:=ADOConnwage;
if active then active:=false;
sql.Clear;
sql.Add('insert into 公司信息表(部门名称,部门编号,部门创建时间,部门电话,上级部门名称,上级部门编号,部门备注)');
sql.Add('values (:TempDpName,:TempDpbh,:TempDpRTe,:TempDpPe,:TempDpsjName,:TempDpsjbh,:TempDpMm)');
parameters.ParamByName('TempDpName').Value:=ADpInfo.ADpName;
parameters.ParamByName('TempDpbh').Value:=ADpInfo.ADpbh;
parameters.ParamByName('TempDpRTe').Value:=datetostr(now);
parameters.ParamByName('TempDpPe').Value:=ADpInfo.ADpPe;
parameters.ParamByName('TempDpsjName').Value:=ADpInfo.ADpsjName;
parameters.ParamByName('TempDpsjbh').Value:=ADpInfo.ADpsjbh;
parameters.ParamByName('TempDpMm').Value:=ADpInfo.ADpMm;
try
if ADOConnwage.InTransaction=false then
ADOConnwage.BeginTrans;
execsql;
result:=true;
except
adoconnwage.RollbackTrans;
result:=false;
end;
end;
end;

总提示"insert into “部门备注”这个字段找不到,可是在access xp中公司信息表中有
这个字段的,why?????????
还有我用程序确时添加进了数据,用程序可以读出来,但access中看不到那些数据。why????
 
你两句sql语句相连时中间好像没有空格吧。
 
语句没问题,你最好把表名换成英文,别values前加空格
 
我把那个"部门备注"和下面的parameters去掉就可以了。why????????难到不能添加”部门备注“?

还有我用程序确时添加进了数据,用程序可以读出来,但access中看不到那些数据。why????

 
上面的我没有加空,是dfw搞的鬼。大侠们帮帮我了。
 
各位大哥,哪有ADO的补订下载。我的是win2000 server版的,有必要加补订吗?
 
会不会是因为字符串的原因,你使用字符串连接以后,再赋值给
query.sql然后再给参数赋值看看。
 
先装补丁再说,有可能是ADO的问题,共有两个补丁!不过要装补丁2好象得先装D5的补丁!不知道你是不是用D5?
 
var
TempDpName:string;
TempDpbh:string;
TempDpRTe:string;
TempDpPe:string;
TempDpsjName:string;
TempDpsjbh:string;
TempDpMm:string;
这些不用声明也行吧, 查查你的 公司信息表
是否有BOOLEAN型的FIELD,如果有就要一起给她赋值.
SQL我也不很熟..再试试吧
 
ADpInfo.ADpMm是否有值
 
to hbezwwl:
tempsql:='insert into 公司信息表(部门名称,部门编号,部门创建时间,部门电话,上级部门名称,上级部门编号,部门备注) values(:TempDpName,:TempDpbh,:TempDpRTe,:TempDpPe,:TempDpsjName,:TempDpsjbh,:TempDpMm)';
sql.Add(tempsql);
这样还不行.
to weekboy:有内容.
to 小小K:没有boolean型字段.
to Dephic:我的是d6的。不知有必要加吗?
to tkggai:我把 部门备注改成了bmmz字段也不行。
大家再帮我一下。谢谢了。

 
还有我用程序确时添加进了数据,用程序可以读出来,但access中看不到那些数据。why????
 
现在好了!!!!!!!!
又能看见数据,又能添加!!!!!!!!
why?????????????
我什么也没改,难到是病毒,.还是access不稳定,只是重起delphi一下。
谢谢各位关注了!
 
后退
顶部