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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
     
4 Z0 x" Y8 n0 F, O3 }     while not adoqxiaoban.Eof
     do
     begin
     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
     strcode:=strlinban+strxiaoban;
     adoqs.SQL.Clear ;
( q0 @' x4 S# }+ z( D7 G  P9 g, k' r8 e     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
     adoqs.Prepared ;
     try
* M' T% d( M2 `! U- x1 Z0 w     adoqs.Open ;
, F9 f+ l- c$ A, H8 A: H' ?2 n     adoqxiaoban.Next ;
# H+ t3 y3 d+ _     except
     showmessage(''出错！'');
     exit;
0 L% M, k, q- K5 a- v: H! w     end;
8 m- m$ f0 _$ v5 ^* M: o4 F) Z     end;
/ e" P+ c/ b' Q, H" X4 t7 d! o8 V     adoqlinban.Next ;
     
, ~3 j6 n( `+ [     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

<>我估计是这句的问题adoqs.Open ;
2 s6 @- K& i( H) p. \你先检查一下SQL语句对不对，我这里好多变量不知道，没有办法帮你调试！</P>

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;</P><>type
# \) M6 d/ e6 O  TForm1 = class(TForm)
6 |, g- O7 P: W0 r- \- b; S    Edit1: TEdit;
5 P5 [6 Y# f5 i  F# s' N7 J& d    Button1: TButton;
& m; O8 V) m) A0 C$ }    ADOConnection1: TADOConnection;
' f" O4 ^/ k6 w. {    ADOQlinchang: TADOQuery;
* F7 C+ c; J# {. T' E2 E( S- y    ADOQyinglinqu: TADOQuery;
4 e! b* i- T3 `2 F' A% D0 n    ADOQzuoyequ: TADOQuery;
( C4 Q4 _0 t7 L- @1 F    ADOQlinban: TADOQuery;
; ?2 T" E( Z8 c" t6 ^# W    ADOQxiaoban: TADOQuery;
    ADOQs: TADOQuery;
    procedure Button1Click(Sender: TObject);
& \( p- x' V: R" e. z% I  private
  i9 S9 p% D% \: z" W: H    { Private declarations }
! R6 U( _  k" E1 f  public
+ _- Y% w/ p2 A! o6 U3 V* [    { Public declarations }
  end;</P><>var
! x- x- X: h6 h  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
var
strlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
begin
5 G, j' U* A8 E0 F/ Dadoqlinchang.Close ;
* j1 V) C2 m2 H2 ]6 Badoqyinglinqu.Close ;
adoqzuoyequ.Close ;
7 L2 `# }8 V' n+ s) ladoqlinban.Close ;
adoqxiaoban.Close ;
. Z& E/ I3 x2 _; tadoqs.Close ;
* K& |5 r- d2 r7 ^* Xadoqlinchang.SQL.Clear ;
adoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
. _- o3 Z4 Q. o/ I. O, Uadoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqlinchang.Prepared ;
( t2 R. B# @2 }3 ^adoqlinchang.Open ;
: F) p6 Y: a. b6 g$ @strlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
adoqyinglinqu.SQL.Clear ;
adoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
- T8 P  t" _9 m1 t$ v6 Q7 N9 x* }) zadoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqyinglinqu.Prepared ;
adoqyinglinqu.Open ;
& F$ G, H2 `+ d/ O6 _3 k7 Mwhile not adoqyinglinqu.Eof
do
begin
  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
  strcodeying:=strlinchang+'999'+stryinglinqu;
  ADOQZuoYeQu.SQL.Clear;
/ _: D" \  Q! |5 Q! c$ w  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
3 \3 D" e; w  t& d  }0 r- Q  ADOQZuoYeQu.Prepared;
, K- ~5 ^- n+ v' R6 a, e: l  ADOQZuoYeQu.Open ;
+ S$ o2 _- s, g# I  while not adoqzuoyequ.Eof
+ _4 G! R$ N& S: G  do
9 Y$ _4 E1 ^/ f6 m9 o  B" b  begin
    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
    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 ;
; [% m/ C* t) D/ A2 L8 e    ADOQLinBan.Prepared;
( k0 }# e$ s5 Z- |9 c7 ^; ~* l+ r    ADOQlinBan.Open;
5 N& h$ B7 e, Z( M1 u    while not adoqlinban.Eof
+ s) R9 s2 w1 \, {/ n    do
    begin
, M2 s* _% U3 t6 t- C2 B      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
      adoqxiaoban.SQL.Clear ;
+ j& P7 ~( L& F7 a/ ?& v/ W      adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
0 A* D2 r+ W7 S      adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
. l' p6 G4 f7 V) _& ]      adoqxiaoban.Prepared ;
6 k, \: T1 Z" f% w      adoqxiaoban.Open ;
        while not adoqxiaoban.Eof
        do
% `; n, l+ [' u6 \- E        begin
          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
5 S1 D) E; Z, ?. b, P& @4 o! h          strcode:=strlinban+strxiaoban;
          adoqs.SQL.Clear ;
( m+ \" Q) q7 g# v+ l& D          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
3 u) W1 R1 _& i9 m- c/ `          adoqs.Prepared ;
          try
4 r- Y- _' t2 U0 o          adoqs.Open ;
- n+ y+ [! l2 y7 E7 A" j5 C          adoqxiaoban.Next ;
          except
          showmessage('出错！');
! F% Y; f. o+ F7 K: k4 r4 D          exit;
' S/ A. N7 \8 L# Y& ~          end;
! w9 S; x8 z; L/ k; P& f. m, L9 r* Q        end;
/ n" X/ j) H/ O) g        adoqlinban.Next ;
    end;
    adoqzuoyequ.Next;
  end;
" e* [# t# l  C6 H- ~4 d: g; l    adoqyinglinqu.Next ;
end;
  adoqlinchang.Close ;
: t) F1 Z, H# C1 A4 m, b  adoqyinglinqu.Close ;
  adoqzuoyequ.Close ;
  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
4 r* ], c, O1 P- B" h# ?9 u) F' f  str1,str2:string;
begin
str1:='001';
% Q1 G' _& C3 R  v4 Astr2:='002';
adoquery1.Close ;
3 l- I1 Y# M& [, D1 nadoquery1.SQL.Clear ;
adoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
adoquery1.Prepared ;
. Y% l$ h- t- O3 ~7 O6 P3 b$ U+ c8 cadoquery1.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>