数学建模社区-数学中国

标题: [求助] 关于delphi访问数据库发生了错误 !!!急!!!急!!!急!!! [打印本页]

作者: penguin 时间: 2005-5-6 10:09
标题: [求助] 关于delphi访问数据库发生了错误 !!!急!!!急!!!急!!!
project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.

   while not adoqxiaoban.Eof
   do
   begin
   strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
   strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
   strcode:=strlinban+strxiaoban;
   adoqs.SQL.Clear ;
   adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
   adoqs.Prepared ;
   try
   adoqs.Open ;
   adoqxiaoban.Next ;
   except
   showmessage(''出错！'');
   exit;
   end;
   end;
   adoqlinban.Next ;

   这是其中的一段代码好像出错的就是在这在adoxiaoban.next那哪位大虾帮帮忙很急了

作者: ilikenba 时间: 2005-5-6 10:35
<

>我估计是这句的问题adoqs.Open ;
你先检查一下SQL语句对不对，我这里好多变量不知道，没有办法帮你调试！

作者: penguin 时间: 2005-5-6 13:11
<

>好的我给你全部的代码吧<

>unit Unit1;<

>interface<

>uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB;<

>type
 TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
ADOConnection1: TADOConnection;
ADOQlinchang: TADOQuery;
ADOQyinglinqu: TADOQuery;
ADOQzuoyequ: TADOQuery;
ADOQlinban: TADOQuery;
ADOQxiaoban: TADOQuery;
ADOQs: TADOQuery;
procedure Button1Click(Sender: TObject);
 private
{ Private declarations }
 public
{ Public declarations }
 end;<

>var
Form1: TForm1;<

>implementation<

>{$R *.dfm}<

>procedure TForm1.Button1Click(Sender: TObject);
var
strlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
begin
adoqlinchang.Close ;
adoqyinglinqu.Close ;
adoqzuoyequ.Close ;
adoqlinban.Close ;
adoqxiaoban.Close ;
adoqs.Close ;
adoqlinchang.SQL.Clear ;
adoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
adoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqlinchang.Prepared ;
adoqlinchang.Open ;
strlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
adoqyinglinqu.SQL.Clear ;
adoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
adoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqyinglinqu.Prepared ;
adoqyinglinqu.Open ;
while not adoqyinglinqu.Eof
do
begin
 stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
 strcodeying:=strlinchang+'999'+stryinglinqu;
 ADOQZuoYeQu.SQL.Clear;
 ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
 ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
 ADOQZuoYeQu.Prepared;
 ADOQZuoYeQu.Open ;
 while not adoqzuoyequ.Eof
 do
 begin
strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ; <a>file://逐</A>个作业区的代码
strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;
ADOQLinBan.SQL.Clear;
ADOQLinBan.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:Zuoyq');
ADOQLinBan.Parameters.ParamByName('Zuoyq').Value :=ADOQZuoYeQu.Fields.fieldbyname('areaname').Value ;
ADOQLinBan.Prepared;
ADOQlinBan.Open;
while not adoqlinban.Eof
do
begin
 strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
 strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
 adoqxiaoban.SQL.Clear ;
 adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
 adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
 adoqxiaoban.Prepared ;
 adoqxiaoban.Open ;
 while not adoqxiaoban.Eof
 do
 begin
 strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
 strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
 strcode:=strlinban+strxiaoban;
 adoqs.SQL.Clear ;
 adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
 adoqs.Prepared ;
 try
 adoqs.Open ;
 adoqxiaoban.Next ;
 except
 showmessage('出错！');
 exit;
 end;
 end;
 adoqlinban.Next ;
end;
adoqzuoyequ.Next;
 end;
adoqyinglinqu.Next ;
end;
 adoqlinchang.Close ;
 adoqyinglinqu.Close ;
 adoqzuoyequ.Close ;
 adoqlinban.Close ;
 adoqxiaoban.Close ;
 adoqs.Close ;
end;<

>end.

作者: penguin 时间: 2005-5-6 13:15
拜托拜托了

作者: ilikenba 时间: 2005-5-6 16:00
你的程序我读起来不太明白，没有数据库我也调试不了，但是从错误看应该是SQL语句的问题，你应该跟踪一下，看看每个生成的SQL语句是不是正确！

作者: penguin 时间: 2005-5-6 21:32
怎么跟踪亚因为我的delphi没学多久 [em04] 我开始也以为是sql语句错但试了下好像没什么问题

作者: penguin 时间: 2005-5-6 21:53
<

>而且每次用delphi向sql server里插入字符串时如 001 到了数据库里面都是 1 <

>数据库里的数据类型是char型的

作者: ilikenba 时间: 2005-5-7 01:52
你确认存入数据库的语句没有问题吗？001变成了1应该当作整型处理的原因，我一般喜欢用varchar的类型！

作者: penguin 时间: 2005-5-7 11:27
<

>那是个实现从数据库中提取各级单位的编码然后再编成最底一级的单位的编码以表示它们间的上下级的关系很简单的 <

>这个很急搞了一个5.1 都没弄出来下面的工作都没法做了拜托拜托了<

>至于 001 变为 1的程序在下面<

>procedure TForm1.Button1Click(Sender: TObject);
var
str1,str2:string;
begin
str1:='001';
str2:='002';
adoquery1.Close ;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
adoquery1.Prepared ;
adoquery1.ExecSQL ;
end;<

>我觉得我的程序没有错呀 <

>还有 varchar 和 char 有什么区别亚<

>万分感谢！！！ [em07][em01][em01][em01]

作者: ilikenba 时间: 2005-5-7 18:08
<

>晕,你的SQL语句写的不对！字符串数据添加是两边要有',否则就按数字处理了！<

>adoquery1.SQL.Add('insert into test1 values('''+str1+''','''+str2+''')');<

>这句改成上面的就对了！

作者: ilikenba 时间: 2005-5-7 18:10
varchar和char的区别不大，就是varchar的默认大小是50个字符,而char是10.

欢迎光临数学建模社区-数学中国 (http://www.madio.net/)