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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
     
     while not adoqxiaoban.Eof
9 a5 [% o9 i9 x     do
     begin
     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
1 w/ s/ [! \8 [; ]3 p! Q0 D/ N     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
     strcode:=strlinban+strxiaoban;
     adoqs.SQL.Clear ;
9 s9 v% E' N4 u3 o# a) }     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
     adoqs.Prepared ;
& T! G) t8 \$ w/ W     try
     adoqs.Open ;
     adoqxiaoban.Next ;
     except
     showmessage(''出错！'');
2 E, o" w) g0 h& ?5 X% O( @     exit;
     end;
+ T. C8 h" y, c; ]6 g0 T     end;
     adoqlinban.Next ;
$ v" |" {# f, o! ]     
- h: n! `" e  R& C3 C     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

<>我估计是这句的问题adoqs.Open ;
$ ?& q* g$ |1 X% p  a7 a  z你先检查一下SQL语句对不对，我这里好多变量不知道，没有办法帮你调试！</P>

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;</P><>type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
8 {+ k5 F8 h* O" @! g8 H    ADOConnection1: TADOConnection;
+ S- _$ \: m4 z, c. s- K    ADOQlinchang: TADOQuery;
9 a6 D5 X' a8 g$ X4 |1 F& g    ADOQyinglinqu: TADOQuery;
    ADOQzuoyequ: TADOQuery;
) V; l# x5 c- l1 o! F  G; u    ADOQlinban: TADOQuery;
% b- q* B0 U7 J! d, w    ADOQxiaoban: TADOQuery;
' V+ @0 N1 U% W; l: T+ ~    ADOQs: TADOQuery;
+ z: E; ]1 M/ b3 m    procedure Button1Click(Sender: TObject);
& P0 @, D; e  J3 ~* O  private
    { Private declarations }
- W9 ]: o( a+ B: H1 N  `/ Q  public
    { Public declarations }
, K3 n/ R2 s( n: _9 Y  end;</P><>var
  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
var
+ [5 r1 B8 q8 P+ u+ v  j' Fstrlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
begin
) I7 Q3 ?/ `5 s7 B- A( @adoqlinchang.Close ;
$ X, o7 F9 H0 C) h: Gadoqyinglinqu.Close ;
adoqzuoyequ.Close ;
adoqlinban.Close ;
adoqxiaoban.Close ;
adoqs.Close ;
adoqlinchang.SQL.Clear ;
adoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
adoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqlinchang.Prepared ;
$ b3 D' m- K# Y) P7 x0 padoqlinchang.Open ;
strlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
! W1 P0 v2 U9 U: A) badoqyinglinqu.SQL.Clear ;
) h! O: [/ w5 A6 D3 madoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
adoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
( A) M- w0 H8 V+ Eadoqyinglinqu.Prepared ;
; y' f$ G' a" c. {8 Madoqyinglinqu.Open ;
while not adoqyinglinqu.Eof
do
begin
/ c4 x. h4 G+ u( r/ h. c' w  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
! s9 m7 `% O/ W% j- |  strcodeying:=strlinchang+'999'+stryinglinqu;
, Y$ T6 c. ?3 H% P' V  ADOQZuoYeQu.SQL.Clear;
8 f( d4 `) ]7 [0 f  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
: S( }8 F# ~4 k  ADOQZuoYeQu.Prepared;
  ADOQZuoYeQu.Open ;
  while not adoqzuoyequ.Eof
  do
  begin
* n8 M; Z  Y5 }, f9 J: g    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
    strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;
" b. h5 w+ x$ X, c9 s    ADOQLinBan.SQL.Clear;
- ?. }! i! Y0 f5 ^    ADOQLinBan.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:Zuoyq');
    ADOQLinBan.Parameters.ParamByName('Zuoyq').Value :=ADOQZuoYeQu.Fields.fieldbyname('areaname').Value ;
+ k. J4 h8 R) M8 j3 w  u% L) Q    ADOQLinBan.Prepared;
  e, a. k1 F/ y1 R- ]" ~# f0 P3 n    ADOQlinBan.Open;
    while not adoqlinban.Eof
& r0 h* t/ |8 \( E8 M    do
& r5 T6 b  u' D" }/ q    begin
      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
      adoqxiaoban.SQL.Clear ;
7 b! ^5 C& v; C. f3 r+ i6 Y      adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
6 _6 F: `' j  z, B% L! x! E& Q8 [      adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
, U. V2 a  s+ U3 O( W3 K      adoqxiaoban.Prepared ;
8 j" |) S- D6 j% K# m! f5 P      adoqxiaoban.Open ;
        while not adoqxiaoban.Eof
6 ]/ G3 T0 Z  p' \/ S6 J        do
: @/ \7 B0 I/ M6 Y% @. d" [' C9 j        begin
% e& \8 Q- b3 \/ F/ T0 a          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
# ~9 F0 _4 r+ W7 d3 p! v" C* f          strcode:=strlinban+strxiaoban;
) p' z* R: G4 m: L          adoqs.SQL.Clear ;
8 g6 H/ H0 V' y) r          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
0 u/ ~' w6 b% q5 v( I4 n# Y# r8 B          adoqs.Prepared ;
6 J; b( y3 L9 V* F! I9 g& g          try
' |  {( \, p8 w/ m: f$ l5 q2 l: V3 N          adoqs.Open ;
/ |5 u  Q7 c. g" Z8 q% d          adoqxiaoban.Next ;
          except
          showmessage('出错！');
          exit;
. v: j- t7 v$ n- i7 k          end;
6 i5 t2 b8 t, \( C& I        end;
# A9 I) [6 t; s% t1 Z9 B; Q' Q        adoqlinban.Next ;
; I. n/ ^' ]- _% e! G3 ~' a    end;
3 I& w/ k1 \0 X7 y! Y& t    adoqzuoyequ.Next;
  end;
+ S8 g% U% s2 ^4 J4 U  L& K. [    adoqyinglinqu.Next ;
  \0 g- J5 w4 cend;
  adoqlinchang.Close ;
4 a$ i( O, K9 i( L  c6 X% n9 g  adoqyinglinqu.Close ;
  adoqzuoyequ.Close ;
, z0 s% s' M$ C" I5 Z3 c. k8 }  adoqlinban.Close ;
  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;
begin
str1:='001';
str2:='002';
adoquery1.Close ;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
0 ?5 M2 m8 d* z8 Yadoquery1.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>