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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
+ B. y! m9 Q: |9 [: i  J8 ]     
+ ^# W, ]- W3 Q" n5 R     while not adoqxiaoban.Eof
9 t  Z6 M  X& J8 I     do
     begin
$ Q+ E) C8 H, N- {6 A     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
) a! [$ {4 f. S" l, I     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
: L  \! \) ~% J# V6 ^' o& H; [     strcode:=strlinban+strxiaoban;
     adoqs.SQL.Clear ;
     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
7 [( q8 p; y5 @     adoqs.Prepared ;
     try
7 `  ~3 y0 D# A     adoqs.Open ;
* f, ]* x4 E/ j" H7 B% A  n     adoqxiaoban.Next ;
     except
% j% ~8 G6 ]7 A3 D     showmessage(''出错！'');
     exit;
     end;
! X/ l2 X; ^, M2 F: \/ s  A1 t  I1 `     end;
( A# W! g" x- F$ z( f     adoqlinban.Next ;
     
" b9 i8 w! a( ]3 L  J% c3 K' p     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

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

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
. \3 K! F2 i! d+ l  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;</P><>type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    ADOConnection1: TADOConnection;
    ADOQlinchang: TADOQuery;
/ T0 x: g0 {7 N8 ~; t    ADOQyinglinqu: TADOQuery;
) ~3 ?: n* m. c# o4 o    ADOQzuoyequ: TADOQuery;
0 y0 V; A" ?+ S' p    ADOQlinban: TADOQuery;
    ADOQxiaoban: TADOQuery;
    ADOQs: TADOQuery;
    procedure Button1Click(Sender: TObject);
/ O  E& \/ N/ X& R  private
+ U" n  n- z" {2 L; s3 |    { Private declarations }
  public
    { Public declarations }
, A' n: ?& X- z) k" I! o  end;</P><>var
  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
2 S) J, ]  {6 V8 w9 w# q: V* q! ovar
strlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
begin
adoqlinchang.Close ;
! @2 S  f( R' v% d1 D3 m5 P' V" gadoqyinglinqu.Close ;
adoqzuoyequ.Close ;
. P/ l3 |3 a# o7 S  jadoqlinban.Close ;
adoqxiaoban.Close ;
adoqs.Close ;
; U4 E7 y+ ?7 R# i8 s+ ?; c) Padoqlinchang.SQL.Clear ;
# k7 d+ N( }$ Yadoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
adoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
2 v5 q. i4 ]0 l8 C( D1 V- _adoqlinchang.Prepared ;
adoqlinchang.Open ;
strlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
/ s8 n1 O  Z9 d, J' @; a' N. |& badoqyinglinqu.SQL.Clear ;
adoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
, j$ J" I  B  p' Dadoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqyinglinqu.Prepared ;
9 k  S  f8 S6 W  B. k2 v; X2 Tadoqyinglinqu.Open ;
! f4 y. m( g$ [, f* kwhile not adoqyinglinqu.Eof
do
begin
  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
: R9 X2 D4 I1 C' Z; k: @  strcodeying:=strlinchang+'999'+stryinglinqu;
  ADOQZuoYeQu.SQL.Clear;
  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
: s; D2 L, s. v0 S  x  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
  ADOQZuoYeQu.Prepared;
7 n  D  }; B9 W6 \: z% g  ADOQZuoYeQu.Open ;
  while not adoqzuoyequ.Eof
6 w' n2 \) a7 f) ^  do
  begin
    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
    strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;
2 v' C$ A( I- L( W8 g5 F) e    ADOQLinBan.SQL.Clear;
    ADOQLinBan.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:Zuoyq');
+ C' J! O: _. {    ADOQLinBan.Parameters.ParamByName('Zuoyq').Value :=ADOQZuoYeQu.Fields.fieldbyname('areaname').Value ;
    ADOQLinBan.Prepared;
& l6 s$ ^$ k' X5 q# }4 \    ADOQlinBan.Open;
    while not adoqlinban.Eof
    do
* _# Y3 m5 v9 w9 a) @    begin
5 X4 O3 s% P2 H0 H0 j' G      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
5 `3 v5 E. I& Y, O      adoqxiaoban.SQL.Clear ;
( Z3 o- r  j0 q( h      adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
      adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
9 Q  g/ i5 }# b! Y! c5 E      adoqxiaoban.Prepared ;
      adoqxiaoban.Open ;
5 @% A) x8 C# Y. E, z8 ]0 S, [        while not adoqxiaoban.Eof
8 e% b: P& R. N7 _  y" ]        do
# F" G" I0 Q! [- A6 _7 g& A* ~        begin
/ [* |1 i. s2 O, h6 q% m2 [4 E          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
+ c( l5 H# d5 Y) U/ b7 F          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
) b( D, ]* O5 p  J3 m0 p, x          strcode:=strlinban+strxiaoban;
0 d) K; z6 Y. g% ?7 b          adoqs.SQL.Clear ;
          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
6 X6 P' J& f, r3 \: W          adoqs.Prepared ;
          try
; o# W4 s5 m' X% f$ w/ J( D. s          adoqs.Open ;
4 A  v) t7 h, _9 C) ?0 f          adoqxiaoban.Next ;
          except
- S6 d2 w- K9 v, r$ i          showmessage('出错！');
          exit;
          end;
- I9 V. K1 Y) {* H4 C        end;
) w5 Y1 F8 U' t8 _6 f        adoqlinban.Next ;
    end;
    adoqzuoyequ.Next;
3 A: A; B) ]+ Q3 s$ Z  end;
( l4 h$ h* D# q    adoqyinglinqu.Next ;
! y/ d  x/ t! d) ?8 K  p3 N2 t5 F: _end;
  adoqlinchang.Close ;
7 J) t* m& n4 p; C/ s  adoqyinglinqu.Close ;
  adoqzuoyequ.Close ;
  adoqlinban.Close ;
  adoqxiaoban.Close ;
, W) f* o4 \' L9 M) k5 U  adoqs.Close ;
3 q, d: h- f  s' |- Nend;</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);
; U2 r, e% F6 {9 Zvar
1 h  g, t! `* ]7 E  str1,str2:string;
begin
3 |& x2 \2 U+ W# L1 ~% Nstr1:='001';
& ^: A+ x: N6 q2 zstr2:='002';
adoquery1.Close ;
' h8 N) q( w. Y9 B& C, Badoquery1.SQL.Clear ;
adoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
adoquery1.Prepared ;
; }+ R, V4 M4 Q5 ]# p) }adoquery1.ExecSQL ;
) [$ D/ Z* r8 b# S" o- nend;</P><>我觉得我的程序没有错呀 </P><>还有 varchar 和 char 有什么区别亚</P><>万分感谢！！！ </P>[em07][em01][em01][em01]

ilikenba

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