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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
; j# P& [. A/ d- Y9 k* t     
     while not adoqxiaoban.Eof
     do
1 b2 q& ^) p" t2 j6 n, ?7 `     begin
     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
5 T& ~+ V! H8 F0 Y0 J     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 ;
     try
     adoqs.Open ;
1 ?& A* e) G5 U1 Y2 i" v     adoqxiaoban.Next ;
, t/ ?. h2 T) M) T, p- x4 v     except
     showmessage(''出错！'');
     exit;
: Q  p1 [! n4 K     end;
     end;
     adoqlinban.Next ;
) E3 k+ F9 m+ L; M5 w- Y1 p  ]     
     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

<>我估计是这句的问题adoqs.Open ;
; Y# Y1 t0 }, V& G) b6 |! {' ^7 u4 M你先检查一下SQL语句对不对，我这里好多变量不知道，没有办法帮你调试！</P>

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
9 e7 w0 D  K( d2 K  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
1 J, d2 [% H% x$ ^  Dialogs, StdCtrls, DB, ADODB;</P><>type
  TForm1 = class(TForm)
    Edit1: TEdit;
6 \) w& B+ R! d" X$ V  Q    Button1: TButton;
    ADOConnection1: TADOConnection;
    ADOQlinchang: TADOQuery;
    ADOQyinglinqu: TADOQuery;
$ j& |, d0 b- W) S9 x( b3 _    ADOQzuoyequ: TADOQuery;
- V/ J& s' K( `! W8 P    ADOQlinban: TADOQuery;
- ~$ M# M& }8 d    ADOQxiaoban: TADOQuery;
' {. E4 B: \; x7 S& }    ADOQs: TADOQuery;
    procedure Button1Click(Sender: TObject);
4 T: w* b" _9 t6 C% T  ?  |  private
* w) ?4 O/ `$ ?    { Private declarations }
  p( \2 O" U9 W7 t  public
/ ^/ @" A# g; n3 u3 ]    { Public declarations }
' S- S1 o8 L3 |0 O  end;</P><>var
  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
var
0 A' D/ ?- g7 t7 `; ?9 hstrlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
begin
adoqlinchang.Close ;
5 M; I" q+ z& {7 @- x- k. padoqyinglinqu.Close ;
adoqzuoyequ.Close ;
$ ^$ t3 ^$ l+ Y6 badoqlinban.Close ;
( e. \* Y; {: x( qadoqxiaoban.Close ;
4 P/ s2 ?8 B. s0 H, Q2 n7 e3 g, jadoqs.Close ;
adoqlinchang.SQL.Clear ;
adoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
# @4 R* p/ L+ i* Yadoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
% ~1 R  p! Q8 d& ]( Y: E6 Z' Z& Aadoqlinchang.Prepared ;
adoqlinchang.Open ;
strlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
adoqyinglinqu.SQL.Clear ;
adoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
/ X3 z* m  D& D4 H$ e9 Sadoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqyinglinqu.Prepared ;
adoqyinglinqu.Open ;
while not adoqyinglinqu.Eof
* T8 \4 Y% z* n! Tdo
begin
/ o. g  ]3 O) p: D( ~( x4 k  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
  strcodeying:=strlinchang+'999'+stryinglinqu;
% B5 }. E% c3 H( Q  ADOQZuoYeQu.SQL.Clear;
( S8 _5 e) v/ j' o. ~" O5 A  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
* K. K/ b7 k; L9 y  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
5 ~8 _9 R! r" U, J  ADOQZuoYeQu.Prepared;
. h9 i0 c, l1 v1 n  ADOQZuoYeQu.Open ;
2 h. c' }8 \2 h/ k- u; F  while not adoqzuoyequ.Eof
  do
  begin
    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
    strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;
& T4 [% I- Q$ d9 c9 L4 M- O    ADOQLinBan.SQL.Clear;
1 m/ v# V, |" n- _: Q7 g    ADOQLinBan.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:Zuoyq');
0 A2 ?+ u8 i2 j) ~4 R0 v4 v    ADOQLinBan.Parameters.ParamByName('Zuoyq').Value :=ADOQZuoYeQu.Fields.fieldbyname('areaname').Value ;
1 I0 V; B* v- ~9 R, [; r    ADOQLinBan.Prepared;
    ADOQlinBan.Open;
    while not adoqlinban.Eof
    do
! q, O) H! {4 S- o    begin
% G! b, C+ A5 m4 u3 K      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
* g" l: s1 u0 ]9 N1 a      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
$ B( I1 b. N, w      adoqxiaoban.SQL.Clear ;
. o2 d' T, x2 D8 |7 x1 q! u# Z3 m      adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
0 Q$ ?  g( ], V2 I" c; l  V+ ~      adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
      adoqxiaoban.Prepared ;
. u: d2 r2 S9 ?" ^& K0 q% p      adoqxiaoban.Open ;
" P: k1 i: f3 ?, G        while not adoqxiaoban.Eof
        do
% L/ z% V) j6 m        begin
          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
- k# k  p% p* J2 F2 Z6 k          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
. h: \) D8 I5 b* |& R$ f          strcode:=strlinban+strxiaoban;
          adoqs.SQL.Clear ;
          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
          adoqs.Prepared ;
          try
          adoqs.Open ;
          adoqxiaoban.Next ;
8 t# l9 m8 g: t6 l1 m/ x6 n8 r          except
5 @/ v7 D; X- y. m8 q# Q% r          showmessage('出错！');
          exit;
) q. I& W  ]3 \          end;
        end;
        adoqlinban.Next ;
% ~/ K/ ~$ y) N, I( ]# t    end;
    adoqzuoyequ.Next;
  end;
    adoqyinglinqu.Next ;
end;
  adoqlinchang.Close ;
8 X0 d3 X, P$ U: H' I  adoqyinglinqu.Close ;
  adoqzuoyequ.Close ;
  adoqlinban.Close ;
1 n! R( d1 g+ i7 v  adoqxiaoban.Close ;
# j+ g" P# ^! k' y7 Q  [+ F  adoqs.Close ;
$ N% `, r  t( n- @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);
& w* a+ q- @; ?2 g0 Rvar
  str1,str2:string;
1 u  `# j, s+ W! u0 e0 rbegin
str1:='001';
str2:='002';
" H3 h9 P. w& Ladoquery1.Close ;
8 a% v( p7 t0 cadoquery1.SQL.Clear ;
- h) a* c5 F0 U2 [9 radoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
7 b6 R7 D- S1 s. f/ m3 @adoquery1.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>