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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
     
     while not adoqxiaoban.Eof
7 X8 t( v$ C6 g. h2 x: q     do
     begin
     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
9 R2 n0 w. s% J/ b     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+'')'');
! q1 x' J: P3 ]0 ^  ^  u6 i+ l     adoqs.Prepared ;
     try
     adoqs.Open ;
6 l+ O  R: x0 Q. p' N8 x* j     adoqxiaoban.Next ;
9 a- B- C! b: G     except
" E) z" v- O/ ?, X/ P" D1 U( [     showmessage(''出错！'');
     exit;
     end;
6 ?8 f& y) L6 h# C$ F$ G     end;
1 A4 O* X& i4 ]9 I     adoqlinban.Next ;
. s  O8 \, a# q  c/ M$ H     
1 A/ n( s- `4 w! R. }     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

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

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
5 v( ~) M/ p, B1 e3 p( l  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
; `% O* N; l4 p5 Z& s% o2 \5 P  Dialogs, StdCtrls, DB, ADODB;</P><>type
4 L3 @! u5 k) N5 E' b8 W6 d) M& p  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
0 M# k3 }" w4 g    ADOConnection1: TADOConnection;
: K. e( x! s) G/ D6 l1 F' b    ADOQlinchang: TADOQuery;
    ADOQyinglinqu: TADOQuery;
/ [8 [/ f; s- q1 \- L    ADOQzuoyequ: TADOQuery;
! C) {% E) n8 o" C4 K* a: A    ADOQlinban: TADOQuery;
    ADOQxiaoban: TADOQuery;
    ADOQs: TADOQuery;
8 E" a7 q  Q! R+ R    procedure Button1Click(Sender: TObject);
  private
' X, {* [8 l# T0 L% A( B8 n4 b    { Private declarations }
# N+ \) c; d. b  public
  c7 Y. Y7 X2 I9 q6 ~    { Public declarations }
  end;</P><>var
, T4 u, B2 V* t* i8 n6 g9 T  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
6 @4 e/ I7 [: _( i, I6 Hvar
strlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
begin
adoqlinchang.Close ;
% o' e. n7 U; n& \$ T6 h9 n' r( K) Qadoqyinglinqu.Close ;
- ^& S# _; D5 W0 n% t- D& ^adoqzuoyequ.Close ;
adoqlinban.Close ;
5 Q" i) W6 w6 c+ k$ m. jadoqxiaoban.Close ;
2 K6 ^  a8 F& E. e7 Madoqs.Close ;
0 z3 Z. t* w9 k6 O+ \7 v, fadoqlinchang.SQL.Clear ;
adoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
adoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
$ i& C4 ], y$ ?- qadoqlinchang.Prepared ;
adoqlinchang.Open ;
strlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
7 O; i) f5 b/ e9 ?adoqyinglinqu.SQL.Clear ;
3 b8 G& `; U2 q( `adoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
4 ~1 d/ n" t4 F7 A' @* oadoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
0 H# J* Z% u& N; zadoqyinglinqu.Prepared ;
% \" ]5 ~( m7 q) ~4 H% madoqyinglinqu.Open ;
" w8 I1 B1 d" m. V$ ewhile not adoqyinglinqu.Eof
9 N4 g  D/ U( ?: C' |" pdo
begin
3 `4 A7 p! \5 P2 x% A2 q7 a# {  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
  strcodeying:=strlinchang+'999'+stryinglinqu;
* m6 F8 q: Z, A3 T$ I2 S  ADOQZuoYeQu.SQL.Clear;
3 x) y+ C# u2 y  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
  ADOQZuoYeQu.Prepared;
8 p4 j! M- b5 ?& [- d# T9 `  ADOQZuoYeQu.Open ;
  while not adoqzuoyequ.Eof
+ k; `2 z, y  Q- P9 ~1 S  do
* J* {" ?  }  D, R, z9 \; q  begin
    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
0 o2 U0 a" X8 y+ l, h5 v    strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;
    ADOQLinBan.SQL.Clear;
% d1 W1 v1 r) `2 L- j# h    ADOQLinBan.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:Zuoyq');
9 b) P% d  m$ P# C. W, Q+ P( ^    ADOQLinBan.Parameters.ParamByName('Zuoyq').Value :=ADOQZuoYeQu.Fields.fieldbyname('areaname').Value ;
' x( k  [( O; p( K2 Y    ADOQLinBan.Prepared;
    ADOQlinBan.Open;
! q( D5 @* H" C0 x/ F) \' O9 Q    while not adoqlinban.Eof
    do
    begin
      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
4 @0 i/ M( s! ^. `& U      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 ;
$ s; ^/ k' u& p- O1 M6 G$ u- @      adoqxiaoban.Open ;
" V/ v  m( e6 j* u+ e        while not adoqxiaoban.Eof
8 D: p0 q1 z2 i1 |, x( I        do
        begin
          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
* ]3 g4 R( R5 d4 m3 }8 h2 M# Z          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
          strcode:=strlinban+strxiaoban;
1 @$ `8 x1 H8 d- z4 s+ T+ w          adoqs.SQL.Clear ;
5 I( W- x" w3 b          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
, ?8 [+ y* _) ^4 V" k  J          adoqs.Prepared ;
          try
+ m8 i/ `5 j, V2 v          adoqs.Open ;
          adoqxiaoban.Next ;
8 Q1 i  V9 \( ?* A8 `9 P% ^          except
3 t9 A" s* d8 o) i, L& x5 o) U) v/ b          showmessage('出错！');
5 H8 j' {% a& d* d8 X2 _6 C          exit;
+ a2 i0 C; R" u2 ^          end;
        end;
5 y; M9 f7 z0 ?# }1 p' j        adoqlinban.Next ;
    end;
% h( {. R* E  \% S# v' x, ?    adoqzuoyequ.Next;
! ]" D  R* z% ~# r4 o* O$ W( z  end;
    adoqyinglinqu.Next ;
end;
3 t% O3 F( W7 P+ I8 X. R  adoqlinchang.Close ;
* i. L& n3 Z" |- Q4 W  adoqyinglinqu.Close ;
1 v+ o5 d( _, Q& d. d- {5 j  adoqzuoyequ.Close ;
' Q. h. T1 r) n8 \  adoqlinban.Close ;
  adoqxiaoban.Close ;
2 o4 J& v( p: C$ U. s" Z  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);
( ?9 v0 u" k) I8 J. m2 w8 Svar
  str1,str2:string;
( o( L7 |! p; z7 t" hbegin
6 a* E5 E" M$ P0 F  j7 i3 U: [str1:='001';
! d  J" E1 o1 \6 w6 Wstr2:='002';
3 Z# [3 z/ J, t* Y! F8 ?# `adoquery1.Close ;
adoquery1.SQL.Clear ;
9 `+ w  V4 [8 J% Radoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
: Z, t# N- {7 Q& u1 H6 p, s! q  badoquery1.Prepared ;
0 u. A$ l4 a5 p" gadoquery1.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>