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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
; k& j9 B! f% j3 ]5 _     
$ w/ {# g( ]5 A8 m( X- }     while not adoqxiaoban.Eof
( c+ @$ y' V' P2 J& J1 B6 I' o5 I5 N; h* `     do
: @% R7 a- @/ _+ d( \/ o     begin
/ w+ T! H* g! P2 t     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
4 z2 V) G  q2 m8 P9 I  Y2 N     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+'')'');
     adoqs.Prepared ;
/ p9 w6 k; m# ^0 N' N- J1 i; J     try
     adoqs.Open ;
     adoqxiaoban.Next ;
     except
     showmessage(''出错！'');
     exit;
     end;
* X' ~* H9 q9 N0 {* ~1 O/ q) s     end;
     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,
* e6 h$ r* D9 c  Dialogs, StdCtrls, DB, ADODB;</P><>type
  TForm1 = class(TForm)
* E2 {/ s% }% |6 l, o  `/ ]0 ]: g- m$ N    Edit1: TEdit;
    Button1: TButton;
. m( w3 c+ H# Q+ l& @" p+ K: [4 G    ADOConnection1: TADOConnection;
2 z3 n" {+ B: }7 w    ADOQlinchang: TADOQuery;
    ADOQyinglinqu: TADOQuery;
2 g6 a) F( B+ z( i8 X# M* J    ADOQzuoyequ: TADOQuery;
7 M! w8 O$ d  z    ADOQlinban: TADOQuery;
    ADOQxiaoban: TADOQuery;
) A* b& ~) u' }6 }, T+ E3 X' r    ADOQs: TADOQuery;
" _8 x! w/ G$ y- i9 n: {5 z4 f    procedure Button1Click(Sender: TObject);
  private
$ Z: u+ p* p0 A    { Private declarations }
+ s5 |( r( r/ b3 M3 B' Z8 C4 h  public
    { Public declarations }
. E4 s+ a. K/ x$ }  b+ ?  end;</P><>var
! B  h* Z$ y$ X- A9 }7 ?  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
3 b4 C& \7 F* H- j- I& @var
strlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
begin
adoqlinchang.Close ;
( Z: M! C5 S" p1 Ladoqyinglinqu.Close ;
adoqzuoyequ.Close ;
( s$ B' M, y1 @, ?% `& Padoqlinban.Close ;
+ y" T, s- ^* w, n" \' Ladoqxiaoban.Close ;
adoqs.Close ;
7 k, H! z6 K. X( Xadoqlinchang.SQL.Clear ;
adoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
adoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqlinchang.Prepared ;
adoqlinchang.Open ;
4 I2 p+ g6 F& |strlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
adoqyinglinqu.SQL.Clear ;
adoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
adoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqyinglinqu.Prepared ;
3 i! Q8 P( A" b; Q! r' _adoqyinglinqu.Open ;
while not adoqyinglinqu.Eof
% L9 j; N: f4 V4 l+ g! ~do
4 ^, B6 g5 o) Y# A1 nbegin
  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
+ I) i2 F4 t+ l" `1 o  strcodeying:=strlinchang+'999'+stryinglinqu;
( c5 g( z( Y8 z4 h5 W- l0 _0 e" C7 q) K  ADOQZuoYeQu.SQL.Clear;
  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
' f4 A0 V  @# j" ~9 h5 H  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
) W$ E; b0 M# S& k$ A. @  ADOQZuoYeQu.Prepared;
9 ^6 ~4 K5 M  A( C  ADOQZuoYeQu.Open ;
  while not adoqzuoyequ.Eof
  do
- b/ M5 l5 }: g  J' V" P) ?) i  begin
- T: S# W6 \. _# p5 J    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
5 H3 Y0 [1 s% Q# t    strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;
    ADOQLinBan.SQL.Clear;
    ADOQLinBan.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:Zuoyq');
! W% {$ q( D- i9 b, z* A  R3 e    ADOQLinBan.Parameters.ParamByName('Zuoyq').Value :=ADOQZuoYeQu.Fields.fieldbyname('areaname').Value ;
    ADOQLinBan.Prepared;
    ADOQlinBan.Open;
    while not adoqlinban.Eof
    do
    begin
1 u% w5 H' a* Y4 o: J( K      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
: u8 e  n0 B+ T, Y      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
      adoqxiaoban.SQL.Clear ;
6 }: Z) N" m& A) E/ V& B. a0 G! C      adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
      adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
! ^+ r& Y( k: c9 P      adoqxiaoban.Prepared ;
5 h' z9 n9 o8 [( b3 S5 V      adoqxiaoban.Open ;
        while not adoqxiaoban.Eof
4 }( G; E9 T8 F/ z        do
        begin
6 |7 u" [; ]% d2 Y% {6 j' v          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
          strcode:=strlinban+strxiaoban;
          adoqs.SQL.Clear ;
) ^9 z; F. `, p1 X1 ]) j9 D0 O          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
          adoqs.Prepared ;
9 q& @4 `$ H6 H( k          try
          adoqs.Open ;
% f$ p# L% n5 h          adoqxiaoban.Next ;
          except
          showmessage('出错！');
          exit;
9 E! t. C0 U' e" M; h/ d          end;
        end;
        adoqlinban.Next ;
    end;
    adoqzuoyequ.Next;
  end;
    adoqyinglinqu.Next ;
end;
; T6 _# Q, N% S& b' z4 w  adoqlinchang.Close ;
  adoqyinglinqu.Close ;
  adoqzuoyequ.Close ;
  adoqlinban.Close ;
* Q0 I7 O% q5 @6 \9 Q$ ~8 A6 ?1 R# B  adoqxiaoban.Close ;
8 Z2 W& e# j$ }- k2 e* g  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);
  S. Q- ~; X) n# }var
  str1,str2:string;
begin
str1:='001';
str2:='002';
! U; e4 E/ O! I8 U; [adoquery1.Close ;
8 h0 p) [# W: X0 e* a. Z9 M% Padoquery1.SQL.Clear ;
adoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
adoquery1.Prepared ;
0 P8 \' G* ?7 b; l+ padoquery1.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>