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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
. O. d' f. p5 O& r( P& V3 K, [     
$ b8 g+ _2 r2 |' T- G% T8 g9 y$ ~5 R     while not adoqxiaoban.Eof
3 u+ q& J' J) \" @3 {     do
) D4 [7 F) i+ q3 W7 D" Z. c; ]1 ^0 J# L     begin
     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
3 M: X. E3 Z  [! a: B! Z; U     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
) m1 D. `) E0 n  R2 Q     strcode:=strlinban+strxiaoban;
- h; r& c: X! R     adoqs.SQL.Clear ;
1 f, C; J$ U# q2 d5 u     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
     adoqs.Prepared ;
     try
/ \2 N3 u+ {- a9 A7 B! f     adoqs.Open ;
     adoqxiaoban.Next ;
3 m! I8 T0 m  Z% g4 Z     except
     showmessage(''出错！'');
, `  e* Z% I  X4 n* x9 ^     exit;
3 @0 J; C- }  F/ a     end;
' k& S3 `+ w+ O3 [     end;
     adoqlinban.Next ;
     
     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

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

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
' O8 L7 E9 ~  E8 k7 k3 q5 w  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;</P><>type
  TForm1 = class(TForm)
/ l3 _- l- b2 M- y4 H9 h: ]8 w! W, _5 t    Edit1: TEdit;
    Button1: TButton;
    ADOConnection1: TADOConnection;
    ADOQlinchang: TADOQuery;
, {2 b; e7 [1 s, `  a% M    ADOQyinglinqu: TADOQuery;
    ADOQzuoyequ: TADOQuery;
    ADOQlinban: TADOQuery;
    ADOQxiaoban: TADOQuery;
    ADOQs: TADOQuery;
    procedure Button1Click(Sender: TObject);
  private
# p" f& r  o: R/ k    { Private declarations }
  public
    { Public declarations }
# l( o8 p1 b4 s2 ~3 ?/ `  end;</P><>var
! l7 H* q/ u) H# b  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
var
strlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
+ S' _9 `- M7 Jbegin
6 q( C, `5 B! K& r4 Dadoqlinchang.Close ;
adoqyinglinqu.Close ;
" U3 V3 ^0 s! Z& n) o) G$ |adoqzuoyequ.Close ;
7 l' v. B1 ?. y+ y% R; n  `* Aadoqlinban.Close ;
! N  H9 d9 F* o& y+ I& m1 eadoqxiaoban.Close ;
+ B) B3 N3 k6 Y/ M! x% C' Iadoqs.Close ;
+ d% {4 D8 G  \6 j* radoqlinchang.SQL.Clear ;
adoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
- I% H0 q! H: z  N. fadoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
, i1 E1 l0 y& o- X& J* Qadoqlinchang.Prepared ;
* p8 i+ j2 y0 U; x6 O6 W* T; v' N* Kadoqlinchang.Open ;
0 w; a0 Z, \1 e( j/ [strlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
adoqyinglinqu.SQL.Clear ;
" v9 u. B3 x" c- G( _6 D  g# Fadoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
" Q8 m  z8 x9 g2 s9 Sadoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
- i) [9 \2 B( z+ p, S4 l) ]. s$ _; ^adoqyinglinqu.Prepared ;
adoqyinglinqu.Open ;
, k0 i. U: y. ?* Z0 Z, N3 S/ e, q) qwhile not adoqyinglinqu.Eof
do
begin
4 i, x. s' }3 H; @. y  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
% @0 M% D4 d1 D( F% k' y. r  strcodeying:=strlinchang+'999'+stryinglinqu;
  ?( F6 j6 W% |* c& {/ I: \  ADOQZuoYeQu.SQL.Clear;
  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
2 R, c& \/ b) F' {* }  T. j  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
  ADOQZuoYeQu.Prepared;
  ADOQZuoYeQu.Open ;
  while not adoqzuoyequ.Eof
, t: E/ ?/ y( F5 U  do
8 n+ M( n/ y" \) J5 t/ X) s6 `  begin
' H! M" d* T7 f6 L$ @    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
# F( S1 H0 l; y! J: ]& Y    strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;
    ADOQLinBan.SQL.Clear;
    ADOQLinBan.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:Zuoyq');
0 J6 X6 l/ ]! I* S3 u' R    ADOQLinBan.Parameters.ParamByName('Zuoyq').Value :=ADOQZuoYeQu.Fields.fieldbyname('areaname').Value ;
7 U' ?  R) ?$ m; M    ADOQLinBan.Prepared;
/ A5 \0 b& Y% m% ]! D    ADOQlinBan.Open;
  ~6 @$ m$ g/ O5 R    while not adoqlinban.Eof
4 {. _) O4 \) T" e) y    do
    begin
      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
; s& _, u  Y1 Q" W9 C5 k$ G      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 ;
: E6 D, i  z9 y$ }0 u      adoqxiaoban.Open ;
        while not adoqxiaoban.Eof
. L2 W, P* O5 }; W$ u0 `# X        do
        begin
9 b7 b7 K: U; x          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
* p2 Y4 W; q% v) g& r" m- q0 E8 _          strcode:=strlinban+strxiaoban;
          adoqs.SQL.Clear ;
          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
) A6 a! v4 F, v3 d2 G9 t, x          adoqs.Prepared ;
! X, b* j5 @) T1 Q9 j- B          try
          adoqs.Open ;
          adoqxiaoban.Next ;
          except
          showmessage('出错！');
          exit;
" v' }/ S( j$ ^4 v1 L          end;
        end;
        adoqlinban.Next ;
    end;
    adoqzuoyequ.Next;
6 \( I! @" F! g- j- l2 E  end;
0 ^' M# C) K/ j' M3 U9 G1 `3 r% a    adoqyinglinqu.Next ;
6 \) N# y* Q" q; }& K5 w% ^9 q' [% ~end;
: N9 W' |( L) f6 T: q: j) \6 H  adoqlinchang.Close ;
  adoqyinglinqu.Close ;
2 u6 o" j# M  U  adoqzuoyequ.Close ;
  adoqlinban.Close ;
' ], h! h" q+ U: I, Q) t  adoqxiaoban.Close ;
  adoqs.Close ;
2 u8 ^' ~; y: T) q% [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);
3 B- Q6 }  h  o7 }0 z/ Qvar
  str1,str2:string;
$ r8 k7 Y% I7 W. ^2 w! |! _begin
str1:='001';
- S: U! _2 {6 h/ Kstr2:='002';
, u6 E1 x$ x5 M/ w) |+ B' F  wadoquery1.Close ;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
* E( o5 c  K) J9 C! k9 ]adoquery1.Prepared ;
- V1 E& c5 L' O2 J+ R' N/ W; i5 dadoquery1.ExecSQL ;
- O3 q6 C5 L* z; N  o$ P4 ~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>