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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
     
( E" J6 @+ e1 z( {     while not adoqxiaoban.Eof
     do
! k- V# _$ A% t2 e# ]0 \     begin
     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
* t: Z: Z2 ], g6 h/ K     strcode:=strlinban+strxiaoban;
+ H! W/ A* S+ ^( c     adoqs.SQL.Clear ;
     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
     adoqs.Prepared ;
     try
     adoqs.Open ;
     adoqxiaoban.Next ;
     except
1 M6 ^6 \, {+ S4 m, W- d7 N. X' j     showmessage(''出错！'');
2 r: ~$ f/ u% D& B- `. T     exit;
     end;
+ X) a0 C" f9 [, k: e0 ]; w$ {     end;
     adoqlinban.Next ;
     
     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

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

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
9 R/ u( [( a# v" `% O  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
' a$ ^: ~! R( d7 x8 x+ u0 o/ \6 I  Dialogs, StdCtrls, DB, ADODB;</P><>type
2 D( n: V  x  R  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
+ b- y( G, K2 R% O    ADOConnection1: TADOConnection;
1 e4 p) i" ~" y) c6 W1 Z    ADOQlinchang: TADOQuery;
  W- X" y& }; P: y5 a& W    ADOQyinglinqu: TADOQuery;
2 j9 m$ K; h, c, q2 j; Z    ADOQzuoyequ: TADOQuery;
    ADOQlinban: TADOQuery;
    ADOQxiaoban: TADOQuery;
    ADOQs: TADOQuery;
    procedure Button1Click(Sender: TObject);
  private
: S( o' P1 l8 S- }    { Private declarations }
  public
    { Public declarations }
8 r4 K+ R( Y3 ]! [) f  end;</P><>var
  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
% O) J* N, b0 k1 i* g' R; c" W* y. |- Zvar
strlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
begin
adoqlinchang.Close ;
adoqyinglinqu.Close ;
adoqzuoyequ.Close ;
$ L! Y" u; M& Y% a8 o* Zadoqlinban.Close ;
adoqxiaoban.Close ;
8 F, C* J: f& `5 J+ Ladoqs.Close ;
adoqlinchang.SQL.Clear ;
/ ]4 ]. C, ^) z  M/ D% g6 N: Eadoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
8 a7 W, ]7 i, @5 ^  nadoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqlinchang.Prepared ;
9 e0 c1 A' {+ S. Yadoqlinchang.Open ;
$ E0 ]( e+ R% n) ^0 Y8 ostrlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
adoqyinglinqu.SQL.Clear ;
6 a0 R7 P& x, c9 N7 @& F. p4 eadoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
adoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
0 @. O0 {7 L' b/ Qadoqyinglinqu.Prepared ;
' s* h/ X1 a7 H9 k& ?; P; q* Zadoqyinglinqu.Open ;
while not adoqyinglinqu.Eof
$ V. D! [( N+ ?5 P- T8 wdo
begin
9 b% F: N  V1 Q3 @! v  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
  strcodeying:=strlinchang+'999'+stryinglinqu;
  ADOQZuoYeQu.SQL.Clear;
4 {4 D, ?" W% d( ^3 |  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
8 f  R9 _( H5 ]' ?- y) z  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
  ADOQZuoYeQu.Prepared;
  ADOQZuoYeQu.Open ;
  while not adoqzuoyequ.Eof
  do
  begin
    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
, G, F( a) T9 x    strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;
$ v2 D* w" w) X& _1 a8 Q! i& a    ADOQLinBan.SQL.Clear;
    ADOQLinBan.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:Zuoyq');
" w$ N( h9 {' I+ {    ADOQLinBan.Parameters.ParamByName('Zuoyq').Value :=ADOQZuoYeQu.Fields.fieldbyname('areaname').Value ;
    ADOQLinBan.Prepared;
7 G$ l5 i9 `& L6 f- c    ADOQlinBan.Open;
    while not adoqlinban.Eof
    do
    begin
: n7 w) `1 _8 G' p/ ~1 D. j2 j      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
      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 ;
. L9 w! n; h; }/ b. {7 s      adoqxiaoban.Open ;
        while not adoqxiaoban.Eof
/ F4 y* O7 ^, q* z        do
        begin
" X( X6 E- t+ G1 t- R          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
1 `3 G: m2 [2 A  p- T# L# F$ @  q          strcode:=strlinban+strxiaoban;
          adoqs.SQL.Clear ;
          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
          adoqs.Prepared ;
) R$ [; Q( k0 A/ j9 N0 s          try
! S6 a1 [9 n, [, f          adoqs.Open ;
- j! u5 @4 H, ?0 O" @          adoqxiaoban.Next ;
3 h2 [, ^+ G& W6 O" C          except
          showmessage('出错！');
          exit;
, a- r  [2 o0 n( ?, X: s% s          end;
        end;
        adoqlinban.Next ;
    end;
    adoqzuoyequ.Next;
% ^( R8 x) E9 }  end;
    adoqyinglinqu.Next ;
end;
# o, ^+ D1 |# x1 e  adoqlinchang.Close ;
  adoqyinglinqu.Close ;
! @' J( m% f; o1 }3 q* V- W: H& N  adoqzuoyequ.Close ;
  adoqlinban.Close ;
, Q  W. i$ Q  O: @" W, X: a' c5 A  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
  str1,str2:string;
: @) u  H) Z1 \/ H1 abegin
, j; [/ Y9 y6 ~7 Mstr1:='001';
7 W2 f; {+ c: s' u+ _& n/ M8 {str2:='002';
adoquery1.Close ;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
adoquery1.Prepared ;
' w, h9 M7 X" O1 l( J3 eadoquery1.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>