[求助] 关于delphi访问数据库发生了错误 !!!急!!!急!!!急!!!

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
     
     while not adoqxiaoban.Eof
     do
7 W# D* z% I' V3 O# u     begin
     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
) G! l, Y& u4 K5 x  Q     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
8 M; h  C% t% L. `5 {     strcode:=strlinban+strxiaoban;
. z7 j7 D/ P/ u     adoqs.SQL.Clear ;
     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
) d- }  q+ h9 a$ M: M' R     adoqs.Prepared ;
- v* H7 U2 M0 p6 R: \9 I     try
     adoqs.Open ;
     adoqxiaoban.Next ;
     except
" Z& r' Q4 A; f+ w3 t% g7 h+ {5 n     showmessage(''出错！'');
     exit;
% k$ @" w1 V' b  h  a5 x     end;
     end;
$ W3 Y5 m% d) V* v3 F     adoqlinban.Next ;
     
     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

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

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
9 C2 W2 u5 @2 B5 O  Dialogs, StdCtrls, DB, ADODB;</P><>type
/ _* Z4 u7 K3 B  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
; D# G6 O, G# ]0 X' y4 J9 Q    ADOConnection1: TADOConnection;
4 j) d, T, h* l    ADOQlinchang: TADOQuery;
. |0 B- f9 k' U0 O1 a    ADOQyinglinqu: TADOQuery;
    ADOQzuoyequ: TADOQuery;
! T+ ~' J: W& {    ADOQlinban: TADOQuery;
. a: j3 \0 b& D2 w; Z1 g; H    ADOQxiaoban: TADOQuery;
5 Z* u2 X' Z) H; p' J    ADOQs: TADOQuery;
    procedure Button1Click(Sender: TObject);
; l/ }: I! S% k/ x  private
    { Private declarations }
  public
- r' n$ A0 Z0 g' d7 u$ X    { Public declarations }
. L2 Y% u0 W5 v/ ^$ Q8 A, \  end;</P><>var
  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
0 u8 R, h" D( d" I9 }) K" Rvar
strlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
begin
adoqlinchang.Close ;
adoqyinglinqu.Close ;
adoqzuoyequ.Close ;
0 k3 k5 K% \; ~( z: e% tadoqlinban.Close ;
5 Y6 N/ I3 F4 ^8 B/ jadoqxiaoban.Close ;
adoqs.Close ;
adoqlinchang.SQL.Clear ;
# |8 |& z1 O6 E/ `9 C2 U& a+ cadoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
0 ~: ?, s+ X  }% n* @9 G% ]adoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqlinchang.Prepared ;
8 X1 a2 k# I2 l6 x) [" \adoqlinchang.Open ;
strlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
adoqyinglinqu.SQL.Clear ;
adoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
) u7 u" r) b5 I) `% [- O% ?% eadoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqyinglinqu.Prepared ;
8 E: P& i3 m5 Y2 H9 Q% _$ vadoqyinglinqu.Open ;
while not adoqyinglinqu.Eof
do
; y3 ~! y' K% {. P" O$ Z( i  v" Vbegin
  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');
6 n! D+ I# Y4 \2 A  g8 }  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
/ W6 I) M9 F* C  ADOQZuoYeQu.Prepared;
  ADOQZuoYeQu.Open ;
) D" H5 J8 `& P+ ^1 k% d2 W+ g0 Q" I  while not adoqzuoyequ.Eof
  do
/ |# A6 A$ i+ s, |% W  begin
    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
) F& f5 R- k9 m$ S5 i$ P; m    strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;
& F9 G- s1 j* a. F8 n- G! K" R    ADOQLinBan.SQL.Clear;
% _( g" {" _& \    ADOQLinBan.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:Zuoyq');
    ADOQLinBan.Parameters.ParamByName('Zuoyq').Value :=ADOQZuoYeQu.Fields.fieldbyname('areaname').Value ;
4 a" B. P. A5 D$ {4 W" ]    ADOQLinBan.Prepared;
    ADOQlinBan.Open;
1 ], ~. F& U9 ~: X$ X    while not adoqlinban.Eof
- m' Q2 b. j; P4 H7 [    do
    begin
      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
; k$ e. c& f1 S      adoqxiaoban.SQL.Clear ;
( u0 i% u2 K5 x; ?5 p0 [      adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
) z- `% B7 r0 n, D  u/ U      adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
      adoqxiaoban.Prepared ;
  I$ U. w% w1 a- i" c  L      adoqxiaoban.Open ;
% r  ?" s$ a! L6 h        while not adoqxiaoban.Eof
        do
        begin
          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
0 r) B; u: R  x5 Z          strcode:=strlinban+strxiaoban;
          adoqs.SQL.Clear ;
9 Y6 H" P" u! }) O8 D4 [# n          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
          adoqs.Prepared ;
" N. v* o' b8 H  a6 |8 U          try
          adoqs.Open ;
          adoqxiaoban.Next ;
          except
          showmessage('出错！');
          exit;
- c: M* D! m0 `* C0 N! ^          end;
' J" n) o5 v- L* O) M- r9 C* `        end;
        adoqlinban.Next ;
* x& D) @# g* S' J+ h4 U    end;
    adoqzuoyequ.Next;
4 Y" ]* b* r: ^6 O' I5 @  end;
    adoqyinglinqu.Next ;
" ]" d! H- H  y- d: y* a+ Oend;
* a8 T2 R! _" b/ \9 S, `  E$ w  adoqlinchang.Close ;
& _6 V, D, B( r8 ], T  adoqyinglinqu.Close ;
  adoqzuoyequ.Close ;
  adoqlinban.Close ;
  adoqxiaoban.Close ;
5 p! P9 @% b3 p2 k9 \$ @2 C1 M. ^5 c  adoqs.Close ;
end;</P><>end.</P>

penguin

拜托拜托了

ilikenba

你的程序我读起来不太明白，没有数据库我也调试不了，但是从错误看应该是SQL语句的问题，你应该跟踪一下，看看每个生成的SQL语句是不是正确！

penguin

怎么跟踪亚 因为我的delphi没学多久 [em04] 我开始也以为是sql语句错 但试了下好像没什么问题

penguin

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

ilikenba

你确认存入数据库的语句没有问题吗？001变成了1应该当作整型处理的原因，我一般喜欢用varchar的类型！

penguin

<>那是个实现从数据库中提取各级单位的编码 然后再编成最底一级的单位的编码 以表示它们间的上下级的关系 很简单的 </P><>这个很急 搞了一个5.1  都没弄出来 下面的工作都没法做了 拜托拜托了</P><>至于 001 变为 1的 程序在下面</P><>procedure TForm1.Button1Click(Sender: TObject);
var
  str1,str2:string;
8 Z* I: D1 c# t& n3 n" R' {begin
+ X" i2 Y& L! e( \6 Mstr1:='001';
, H4 O! L0 Q, S8 @% k  [str2:='002';
+ t& |2 O& v( m& ^2 V* P! @% Kadoquery1.Close ;
, T; H# {3 ]& @adoquery1.SQL.Clear ;
adoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
9 s9 J% q; Y. Y# @; c3 Wadoquery1.Prepared ;
+ @6 F( ~" {, [. tadoquery1.ExecSQL ;
end;</P><>我觉得我的程序没有错呀 </P><>还有 varchar 和 char 有什么区别亚</P><>万分感谢！！！ </P>[em07][em01][em01][em01]

ilikenba

<>晕,你的SQL语句写的不对！字符串数据添加是两边要有',否则就按数字处理了！</P><>adoquery1.SQL.Add('insert into test1 values('''+str1+''','''+str2+''')');</P><>这句改成上面的就对了！</P>