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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
     
2 I* ^: L/ `$ V$ a0 w; H     while not adoqxiaoban.Eof
; k# x6 t1 K& w6 ~, \" K- a     do
; \& L1 C6 l: q3 y6 |: M     begin
% F! L6 M: d) J1 j1 j     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
     strcode:=strlinban+strxiaoban;
  D7 }, R% b( I# d7 B. h     adoqs.SQL.Clear ;
     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
     adoqs.Prepared ;
! l2 a" N6 [: s/ g* _     try
' D. h4 w( R6 Z( q3 |% I7 u     adoqs.Open ;
5 l4 Z/ q2 I% O4 z+ ^# R& s     adoqxiaoban.Next ;
0 B2 G( R+ j' l3 f( a+ q     except
     showmessage(''出错！'');
     exit;
     end;
: Q4 m2 ~8 u$ K& ~     end;
5 q2 u0 d8 k& x) w( A     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,
3 Y! f& F4 q' I+ e# k% }- ]  Dialogs, StdCtrls, DB, ADODB;</P><>type
  TForm1 = class(TForm)
' S0 s- t# Q6 }1 |% ]) o6 X1 W    Edit1: TEdit;
    Button1: TButton;
    ADOConnection1: TADOConnection;
    ADOQlinchang: TADOQuery;
5 r" _, g/ v8 @* N8 Y6 d    ADOQyinglinqu: TADOQuery;
    ADOQzuoyequ: TADOQuery;
    ADOQlinban: TADOQuery;
" a1 Q+ C2 t6 E( r# M    ADOQxiaoban: TADOQuery;
    ADOQs: TADOQuery;
    procedure Button1Click(Sender: TObject);
& {' `, w! U( J5 j1 y0 s! Z  private
* W: i( V$ v3 Y    { Private declarations }
( ?: p0 ^" c* T  public
    { Public declarations }
( N; i: |0 |# I0 K9 ^; g. ?( R  end;</P><>var
9 V( Y2 s: {' {( M+ F$ j7 p  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;
/ x$ n" k: q+ _% Ibegin
adoqlinchang.Close ;
0 F! w( w1 V5 L$ E1 Tadoqyinglinqu.Close ;
adoqzuoyequ.Close ;
adoqlinban.Close ;
2 F" B* @3 a+ J6 y: j* W5 Vadoqxiaoban.Close ;
adoqs.Close ;
' W/ a9 c7 n' m# ?adoqlinchang.SQL.Clear ;
8 g$ c1 G& `% u6 J% ]adoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
. D1 d) ]" q1 H# g% X1 @adoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqlinchang.Prepared ;
adoqlinchang.Open ;
strlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
( S, m- m2 a& \: x/ Sadoqyinglinqu.SQL.Clear ;
9 I) X' R  O# X8 N) D' k  cadoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
0 i! s9 W  W6 u$ M% Z# @. tadoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
2 ^2 O; L" q8 G3 A) |) zadoqyinglinqu.Prepared ;
adoqyinglinqu.Open ;
* T/ C* A5 M1 o! J2 s, q7 Pwhile not adoqyinglinqu.Eof
4 u3 X( w/ _! e/ b; ndo
begin
  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
  `# \0 y7 D3 \9 i6 R, i/ m  strcodeying:=strlinchang+'999'+stryinglinqu;
: p: C: G8 z8 @. G1 ?# L  ADOQZuoYeQu.SQL.Clear;
  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
5 v4 ~* h% ]4 b0 a, t( ^' C  ADOQZuoYeQu.Prepared;
7 o) o' T! j2 V  c  ADOQZuoYeQu.Open ;
, W( l0 D! p+ |& ^; C% E( h  while not adoqzuoyequ.Eof
% y6 ]% B! G0 ~  do
- W: G1 w, R' `  begin
    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
% h  V. p+ S4 r# m; E- M# v    strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;
: V2 v9 e/ Y& I% R7 b    ADOQLinBan.SQL.Clear;
8 R) N& m, d2 F9 D    ADOQLinBan.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:Zuoyq');
* L; _9 q" X; E$ q- P' ?" h/ l4 j    ADOQLinBan.Parameters.ParamByName('Zuoyq').Value :=ADOQZuoYeQu.Fields.fieldbyname('areaname').Value ;
2 l1 K) d4 T7 A# R2 F: J6 X    ADOQLinBan.Prepared;
) _' H& Z  ^% j( x# c    ADOQlinBan.Open;
    while not adoqlinban.Eof
9 j0 H9 n5 M  s3 x) y+ y' [    do
; u% p* l. J+ F/ m; C+ }# I    begin
  R( V7 j# z8 d- z      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
: c" W& S  }, o: \" Q      adoqxiaoban.SQL.Clear ;
( i6 r1 ^3 @( C* K      adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
& L* I1 u, M- o1 s  d      adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
4 n! g$ l5 U7 w- h      adoqxiaoban.Prepared ;
0 E. s. d/ p  R# A      adoqxiaoban.Open ;
        while not adoqxiaoban.Eof
7 W2 j" m( u3 r: `1 N        do
        begin
" F5 ^" L( {" a/ x4 `' L0 e          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
          strcode:=strlinban+strxiaoban;
7 o# G7 [- D, B6 I0 Q          adoqs.SQL.Clear ;
          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
          adoqs.Prepared ;
9 W8 o6 z! J7 ^9 p8 V6 T. K          try
2 Y- m) A$ u2 e' f* c6 M5 O, O$ x          adoqs.Open ;
2 u  z/ H9 O% g* \% F. y  g  ^5 M4 X* d          adoqxiaoban.Next ;
          except
* p( T. I* k' C: p7 n; ]% `1 q          showmessage('出错！');
- ?! Y5 _0 `; ]: v$ y          exit;
0 w5 V3 d9 A# Z: z          end;
        end;
, |7 y+ \9 E! l/ @/ l        adoqlinban.Next ;
/ J1 c" u* S9 r9 _    end;
3 c6 R/ p. h% z    adoqzuoyequ.Next;
  end;
2 i+ \6 |. r9 X. b% \0 [- K    adoqyinglinqu.Next ;
( w% w) b" [2 m% zend;
1 y- m: H& C! n2 C3 L7 J' v  adoqlinchang.Close ;
  adoqyinglinqu.Close ;
7 Q  W- J% A8 f/ N  adoqzuoyequ.Close ;
  adoqlinban.Close ;
  adoqxiaoban.Close ;
  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
! Q9 K, q6 A) o, K% o) Q" p* d6 B  str1,str2:string;
9 h1 P4 Y* v/ Zbegin
str1:='001';
9 L* P5 C1 n3 Ostr2:='002';
adoquery1.Close ;
' ~  E( U" H6 q( [0 q! \adoquery1.SQL.Clear ;
adoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
0 s' t; e! b0 j6 {' Yadoquery1.Prepared ;
adoquery1.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>