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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
$ X. P4 q/ A$ D3 j. @- l# S+ [     
- T+ x4 u4 _. J     while not adoqxiaoban.Eof
4 t6 |+ A2 m- L) o* y& }     do
     begin
     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
* F6 p/ E. `8 D" ^  V$ w     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
+ P3 N0 Z) y2 w' f! d+ J     strcode:=strlinban+strxiaoban;
     adoqs.SQL.Clear ;
     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
     adoqs.Prepared ;
8 s( e8 G! ]) b) {: Y3 V2 V     try
+ ^( u+ y0 d, T: h. d& O' Z" u     adoqs.Open ;
     adoqxiaoban.Next ;
     except
     showmessage(''出错！'');
     exit;
) A! g0 K7 _5 i+ `0 b     end;
     end;
  r  i5 g5 I! S. F% }9 }     adoqlinban.Next ;
1 B  L8 t. G3 a: R  k& j     
     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

<>我估计是这句的问题adoqs.Open ;
1 Z* l, V6 k- j' s0 }, C你先检查一下SQL语句对不对，我这里好多变量不知道，没有办法帮你调试！</P>

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
5 {- T/ s3 g5 K% j  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ o; i' G) p& D8 u) O" e  Dialogs, StdCtrls, DB, ADODB;</P><>type
0 u9 |+ _) `; k1 U$ _. k$ d6 Y# f/ ]  TForm1 = class(TForm)
& o) z+ L! }: m4 I% w    Edit1: TEdit;
    Button1: TButton;
    ADOConnection1: TADOConnection;
% v2 W9 t3 q9 |- v! B8 P; Y' z9 ]    ADOQlinchang: TADOQuery;
    ADOQyinglinqu: TADOQuery;
    ADOQzuoyequ: TADOQuery;
! _& q3 D% X9 ~* N1 r( ?    ADOQlinban: TADOQuery;
    ADOQxiaoban: TADOQuery;
    ADOQs: TADOQuery;
( |/ ~' y# d' n! ?) `    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
4 o3 j% V/ ~# I* c) p' X0 S9 l$ H  public
    { Public declarations }
6 H9 m8 j* H+ i  end;</P><>var
: W5 h6 N2 r: u1 a$ P. s5 _. Y  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
var
; v& V4 q( H. C+ o4 j$ Fstrlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
* O. t: L: [& u- a/ t( o: c: kbegin
adoqlinchang.Close ;
adoqyinglinqu.Close ;
$ E9 m9 \: w% M, o9 k3 aadoqzuoyequ.Close ;
' [1 F9 M7 v# L5 R  ?" Jadoqlinban.Close ;
adoqxiaoban.Close ;
adoqs.Close ;
adoqlinchang.SQL.Clear ;
1 M. O5 k+ Y. h1 N9 O) ^. Q1 t9 y) x! k( eadoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
- q6 R; j% o$ m# _6 X9 z" iadoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqlinchang.Prepared ;
. b  X7 V$ ^  C  }  I9 ^adoqlinchang.Open ;
strlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
adoqyinglinqu.SQL.Clear ;
adoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
7 Z- Q7 f/ h) a0 c& ^, y9 C+ vadoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
+ U0 J* W7 O, T$ I$ y% e2 Uadoqyinglinqu.Prepared ;
. G5 B9 v  q* `- B5 Z7 Eadoqyinglinqu.Open ;
while not adoqyinglinqu.Eof
2 d  H& w0 \% g2 h7 ~, w' ido
5 c- J6 L  y( F+ k5 S, [# Tbegin
1 f3 G1 ~$ \; M5 p) m# p9 s  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
) {5 C7 f0 }; r$ \  strcodeying:=strlinchang+'999'+stryinglinqu;
  ADOQZuoYeQu.SQL.Clear;
+ N# J5 Y$ c/ ]1 `2 n  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
' m8 K0 ^4 j- q& i  ADOQZuoYeQu.Prepared;
' l4 ~3 ^/ L/ i) T& z* U0 R$ G' Y  ADOQZuoYeQu.Open ;
  while not adoqzuoyequ.Eof
7 D/ W& t5 m- r% `! I) N  do
  begin
; C8 G1 ?$ U9 D$ I$ R" w. m    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
. ^0 m1 X* s3 K    strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;
    ADOQLinBan.SQL.Clear;
    ADOQLinBan.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:Zuoyq');
    ADOQLinBan.Parameters.ParamByName('Zuoyq').Value :=ADOQZuoYeQu.Fields.fieldbyname('areaname').Value ;
. M5 q  S! ^5 `) |    ADOQLinBan.Prepared;
    ADOQlinBan.Open;
6 N* l8 {. B+ P& N    while not adoqlinban.Eof
8 [) W- o" W7 o" x, H# _2 W$ m    do
8 e! p# \7 G. T# l! x2 D    begin
      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
      adoqxiaoban.SQL.Clear ;
7 W& D( B4 O9 T) Q8 n      adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
      adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
0 x2 ?" P* [6 ]# P& f- Z$ I      adoqxiaoban.Prepared ;
+ H* W$ C6 f9 c      adoqxiaoban.Open ;
        while not adoqxiaoban.Eof
        do
        begin
# K+ b* X$ w( n" A9 D3 y0 l7 ]          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
          strcode:=strlinban+strxiaoban;
- b( O! a) s% i6 [. W% {9 ]# m5 ^          adoqs.SQL.Clear ;
/ I& ^( [* m# I- K          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
          adoqs.Prepared ;
          try
          adoqs.Open ;
          adoqxiaoban.Next ;
          except
          showmessage('出错！');
          exit;
          end;
        end;
        adoqlinban.Next ;
) h+ I# A' _& A9 b, \    end;
    adoqzuoyequ.Next;
- q( |1 p, H+ ~: |6 C- s  end;
/ p& G7 T+ Y7 |$ E2 l  q. o    adoqyinglinqu.Next ;
end;
  adoqlinchang.Close ;
7 M* u# f! A+ ~& _' y6 c  adoqyinglinqu.Close ;
  adoqzuoyequ.Close ;
  adoqlinban.Close ;
& q% u% d4 m, O6 d7 Y3 c  adoqxiaoban.Close ;
  O1 Y7 U% i% w( u  adoqs.Close ;
7 f/ N9 G& I& F1 H2 S3 R1 Pend;</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);
* _  Q% C- M. N) `" h. Z: H+ Bvar
  str1,str2:string;
# t# v. W8 T" Y- ?: ~, |begin
str1:='001';
str2:='002';
6 {* m* F+ @  C9 e8 N* Iadoquery1.Close ;
+ U1 y+ w, k+ n3 Iadoquery1.SQL.Clear ;
adoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
0 k- u! Y: g& x* }3 T$ Badoquery1.Prepared ;
adoquery1.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>