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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
6 P4 U7 \8 g+ Y; G) I. p     
     while not adoqxiaoban.Eof
     do
/ A) F1 Q9 P" B; ^7 h/ X     begin
% W2 Q" g- V; I! E     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
/ M+ L- _% J7 x$ c+ }: q     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
7 ~8 ~% Z& O- b) l6 m+ m     strcode:=strlinban+strxiaoban;
     adoqs.SQL.Clear ;
7 @9 O+ T0 w6 u     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
     adoqs.Prepared ;
- z* y" ~4 Q2 }5 m     try
     adoqs.Open ;
4 E' l  R6 k- h     adoqxiaoban.Next ;
     except
     showmessage(''出错！'');
- o$ v3 t1 o! ^) R1 F* W! M     exit;
     end;
     end;
* t! ~" I& k* O     adoqlinban.Next ;
     
     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

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

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
, J" |8 r8 g, c. S& v  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;</P><>type
/ Y8 F3 _+ c, M4 f# N" w: y  TForm1 = class(TForm)
8 ~0 [( M( q) d/ t! S% w    Edit1: TEdit;
: X2 \/ R" `& s) a3 W4 {, J1 y    Button1: TButton;
/ j# z; g- _3 F; c0 \% H6 d. c, s    ADOConnection1: TADOConnection;
+ {, d1 ^2 g! d6 S* U    ADOQlinchang: TADOQuery;
    ADOQyinglinqu: TADOQuery;
    ADOQzuoyequ: TADOQuery;
    ADOQlinban: TADOQuery;
) |- [+ B5 t, C2 d0 t: J; u    ADOQxiaoban: TADOQuery;
    ADOQs: TADOQuery;
    procedure Button1Click(Sender: TObject);
9 _- f0 a1 |9 ?1 G; Y  private
    { Private declarations }
  E+ N- U$ I% |  public
    { Public declarations }
  end;</P><>var
: E) x5 l4 W% d5 \  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
var
( m/ q  l8 x3 ?- A) vstrlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
* t  g7 g) w: G! C- U- Hbegin
adoqlinchang.Close ;
adoqyinglinqu.Close ;
adoqzuoyequ.Close ;
adoqlinban.Close ;
* H) e* J# F* c1 n( fadoqxiaoban.Close ;
( G& [; w! G4 L0 H" ~% gadoqs.Close ;
adoqlinchang.SQL.Clear ;
4 v2 X( z, x! T6 q4 r% N( t) xadoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
4 L% K% Q! H& e8 }; b8 Kadoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqlinchang.Prepared ;
4 x% C# I0 I' _! Y' Vadoqlinchang.Open ;
strlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
( d/ z2 L* p2 R1 ^4 R, D) P# eadoqyinglinqu.SQL.Clear ;
adoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
adoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
& |1 [' k9 z+ a0 a4 Nadoqyinglinqu.Prepared ;
adoqyinglinqu.Open ;
* x# ^' c) w4 F9 p) E, d2 B$ ?while not adoqyinglinqu.Eof
  m9 g- n0 z0 r4 B# o8 }do
begin
  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
* X: A9 z5 [, @+ I  strcodeying:=strlinchang+'999'+stryinglinqu;
! P0 e+ _5 ^6 x8 F  ADOQZuoYeQu.SQL.Clear;
  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
  ADOQZuoYeQu.Prepared;
$ M0 c1 Q! W; ~2 h2 N  ADOQZuoYeQu.Open ;
! ^4 j/ z( Q) F' V4 U  while not adoqzuoyequ.Eof
  do
  begin
    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
9 j. Z" _2 ~! [' N( h    strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;
    ADOQLinBan.SQL.Clear;
9 Q' O2 ]% p/ x( E    ADOQLinBan.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:Zuoyq');
& \. `& R- ]% t1 T0 ~$ R6 m    ADOQLinBan.Parameters.ParamByName('Zuoyq').Value :=ADOQZuoYeQu.Fields.fieldbyname('areaname').Value ;
: V' r: h  b; h- }2 F    ADOQLinBan.Prepared;
" b2 v2 M2 d) R+ x; \0 q    ADOQlinBan.Open;
    while not adoqlinban.Eof
. _$ b# `9 `8 ^    do
9 h$ f, N0 y9 f* S$ }8 y6 c    begin
) O+ O5 Q7 n; P- m( D5 ?5 l; K      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
7 }5 ^! Y5 C6 f- p& Z      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
      adoqxiaoban.SQL.Clear ;
      adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
3 j+ K+ }$ x1 h9 i5 A% q) }$ f      adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
+ t9 Z. ^1 o% ?% ]8 E9 j      adoqxiaoban.Prepared ;
      adoqxiaoban.Open ;
        while not adoqxiaoban.Eof
        do
        begin
          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
2 C6 b0 \: b  v) M4 Q" L5 q          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
% U0 k# h) g8 U4 p! s3 n          strcode:=strlinban+strxiaoban;
          adoqs.SQL.Clear ;
$ W! P9 Y5 d% r2 s4 [& d; |$ @1 G* z          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
* X1 ?5 X! `" X, R" f' c3 p9 ?          adoqs.Prepared ;
          try
# D- `5 w3 t1 S1 m. V          adoqs.Open ;
' X/ x1 _  F7 U1 @          adoqxiaoban.Next ;
# I$ u0 {/ ?2 `# B' W1 l          except
) L, {! s, p8 D$ ~0 h/ a/ X' N          showmessage('出错！');
          exit;
          end;
        end;
0 r; x' ]" ]- F& R: F        adoqlinban.Next ;
    end;
    adoqzuoyequ.Next;
9 M0 x: `; X" H# Q4 G' u3 u8 Y  end;
    adoqyinglinqu.Next ;
9 X7 U6 h$ f# Rend;
  adoqlinchang.Close ;
5 K' u& G- Q0 l0 |) ~; f' ~. I  adoqyinglinqu.Close ;
  adoqzuoyequ.Close ;
0 v! e0 U3 _7 H- r  adoqlinban.Close ;
  adoqxiaoban.Close ;
  adoqs.Close ;
' m) d. Z) f9 [) t0 Z( Dend;</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;
begin
! P% J% |4 R. G0 E8 L6 |1 n8 ?str1:='001';
str2:='002';
adoquery1.Close ;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
8 S5 m0 Y# r  n# o" _+ K& w' O' ?( Kadoquery1.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>