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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
7 j8 A+ j; a" V6 ~( u/ e: V  i     
8 W% p" L: r# u. B+ G     while not adoqxiaoban.Eof
9 p! A8 \: h: B8 X8 o. u     do
     begin
6 ?, P; D: G/ ]5 R+ M     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
7 }3 [; G% Z# v8 }9 u& k     strcode:=strlinban+strxiaoban;
9 m' V2 c- ?6 ~8 r1 Y     adoqs.SQL.Clear ;
% {+ m( N: J& s: Z     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
. O( U/ J/ A, z1 D     adoqs.Prepared ;
- h7 N% b' [. h4 n- X& _* V( b     try
, _0 s; y" k0 p) ?/ b     adoqs.Open ;
     adoqxiaoban.Next ;
% k' y; y  S6 q0 z     except
1 E1 j; O+ g) ~, K0 E+ m* H' X6 M. M     showmessage(''出错！'');
     exit;
     end;
     end;
4 R/ _. I8 W" x) T9 M     adoqlinban.Next ;
2 J* @: I8 e, Z6 P. O. |     
  @4 j6 b) Y2 a: Y# N* r4 m     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

<>我估计是这句的问题adoqs.Open ;
" B+ |. @  P7 u; X( Q4 {+ e你先检查一下SQL语句对不对，我这里好多变量不知道，没有办法帮你调试！</P>

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;</P><>type
' u( M3 m2 o; G0 {1 P; W4 W, h' Z6 ]  TForm1 = class(TForm)
2 h) a3 A- s3 Z0 n0 G    Edit1: TEdit;
3 L2 @2 z( G/ q3 O  _% u5 Z: M    Button1: TButton;
: S( J4 c! Q0 Q9 B* ^6 E4 i. M    ADOConnection1: TADOConnection;
+ r; M' H# l7 `6 ^) A$ K    ADOQlinchang: TADOQuery;
    ADOQyinglinqu: TADOQuery;
    ADOQzuoyequ: TADOQuery;
$ r9 I# X* }, I( \8 Q- P! A# d    ADOQlinban: TADOQuery;
# w- I$ w5 n+ |9 S% F7 `0 O    ADOQxiaoban: TADOQuery;
# j1 ]: C( n$ ?! p7 G    ADOQs: TADOQuery;
( O% u+ X2 s* d4 J& r    procedure Button1Click(Sender: TObject);
! p- b1 f2 d- w  private
- G, k) B' C8 ?1 @# y    { Private declarations }
2 O' J0 e! o3 F  public
    { Public declarations }
  end;</P><>var
  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;
begin
/ T' P  @* S' i/ N$ t5 nadoqlinchang.Close ;
- [; H/ i0 q9 |8 x. }/ b2 [adoqyinglinqu.Close ;
0 O9 W# ?( G5 ~" M9 s- T" T+ T2 r; Iadoqzuoyequ.Close ;
# a- m+ `4 F5 zadoqlinban.Close ;
adoqxiaoban.Close ;
adoqs.Close ;
adoqlinchang.SQL.Clear ;
  ]- e4 {: e0 Y- yadoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
adoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
7 c) R# F+ i9 X2 hadoqlinchang.Prepared ;
adoqlinchang.Open ;
strlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
adoqyinglinqu.SQL.Clear ;
adoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
( C; L9 L1 g" @+ B: {1 e% Nadoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqyinglinqu.Prepared ;
adoqyinglinqu.Open ;
while not adoqyinglinqu.Eof
) A2 r* ~. T+ w$ [$ j9 k  y; }, Ndo
6 i, K4 e( z) @' w7 j+ D  l0 Zbegin
* n9 v1 H; c( j6 c; M, O% k- Y6 v1 `. e6 ]  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
( f) c% @& I/ C) r. a7 c  strcodeying:=strlinchang+'999'+stryinglinqu;
  ADOQZuoYeQu.SQL.Clear;
" M' Y( t1 V! [5 ^( I7 n! m& w  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
2 G0 P- a* J( p5 v& n, c  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
6 X( w  ~+ B1 Q* I2 F  ADOQZuoYeQu.Prepared;
4 F) b4 O& B' m3 o1 y) g1 J2 E: {. L5 I  ADOQZuoYeQu.Open ;
4 g( Z9 n9 k; N7 N  x  while not adoqzuoyequ.Eof
  do
  begin
# H0 H3 q0 v, T3 w) ?    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
    strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;
    ADOQLinBan.SQL.Clear;
2 h' {0 ~9 {# @: F    ADOQLinBan.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:Zuoyq');
    ADOQLinBan.Parameters.ParamByName('Zuoyq').Value :=ADOQZuoYeQu.Fields.fieldbyname('areaname').Value ;
: t2 _( n3 S( G6 l/ n2 V    ADOQLinBan.Prepared;
. b; {: m6 |1 D. z    ADOQlinBan.Open;
    while not adoqlinban.Eof
! b- o% u2 g  F' a2 ~1 ~    do
    begin
      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
* k' p& G6 o  {3 d      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
      adoqxiaoban.SQL.Clear ;
8 w6 W) l/ C' ~( ~4 m& J' g      adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
      adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
      adoqxiaoban.Prepared ;
, O5 w' G' t- O      adoqxiaoban.Open ;
        while not adoqxiaoban.Eof
        do
# K1 L7 Z0 d/ _' G8 M        begin
          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
7 h+ ]9 d) u/ i8 c, `# u/ ~% \6 h          strcode:=strlinban+strxiaoban;
          adoqs.SQL.Clear ;
          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
  T, j8 m# r8 ?: a# S! q          adoqs.Prepared ;
& [! P! v: t/ o/ G/ @) N2 L          try
          adoqs.Open ;
& R1 Z/ \' n* i) \* f! ]          adoqxiaoban.Next ;
- _! v5 C3 d  a. s; a9 l          except
! S& X! E  R7 a! V( O5 Y6 O; q          showmessage('出错！');
( h; J  F2 w/ j2 N' i, w0 r          exit;
0 J! E" q& k: A9 S1 Z9 m; @) v          end;
6 ]; M/ h9 @) t" V$ L) E        end;
& J0 \; [7 C6 L0 m  L' k" f        adoqlinban.Next ;
    end;
/ F, l* l4 [8 }8 ?2 s% \    adoqzuoyequ.Next;
  end;
9 W$ [/ i1 L' ]7 O    adoqyinglinqu.Next ;
9 q$ v/ e) K' \* Gend;
  adoqlinchang.Close ;
  adoqyinglinqu.Close ;
  adoqzuoyequ.Close ;
+ G0 B/ \, H. V  adoqlinban.Close ;
$ Q( E2 h8 s( Q# X  adoqxiaoban.Close ;
  adoqs.Close ;
3 y( G$ s/ N' ~, k4 j# z3 ]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);
4 X+ P/ V' u) o; cvar
  str1,str2:string;
7 V3 P$ D# |$ U; b* e/ C! lbegin
- o* k% e4 e, ]1 i6 sstr1:='001';
+ I5 O* }# @: ~2 astr2:='002';
% G; y: X& K, z. r+ Qadoquery1.Close ;
adoquery1.SQL.Clear ;
' x$ z$ z( h) A; L: q- Qadoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
; ^$ Z) j% P% N9 }) N& A* b( I3 cadoquery1.Prepared ;
2 o4 `: |: E+ D5 Dadoquery1.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>