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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
     
     while not adoqxiaoban.Eof
     do
     begin
9 @  G- C0 y% A( W  T* ?( z     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
     strcode:=strlinban+strxiaoban;
     adoqs.SQL.Clear ;
8 M. _0 c. C- g3 Q( A- g; Y     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
     adoqs.Prepared ;
     try
     adoqs.Open ;
     adoqxiaoban.Next ;
0 G+ n9 J6 @, v" r, Q& ]     except
     showmessage(''出错！'');
7 u  Q& z/ V0 X5 P     exit;
     end;
! K7 x, T( }% b* Z     end;
  ^" G; b5 v: I, j% ?     adoqlinban.Next ;
0 `* v) W: A" a/ Z     
     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

<>我估计是这句的问题adoqs.Open ;
9 k) [8 u) c4 Y2 y8 v) U你先检查一下SQL语句对不对，我这里好多变量不知道，没有办法帮你调试！</P>

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 ^. l, O: c5 R0 ]# i. ], x  Dialogs, StdCtrls, DB, ADODB;</P><>type
  TForm1 = class(TForm)
    Edit1: TEdit;
. U1 {! g3 J$ ^( W& Q! f6 f    Button1: TButton;
    ADOConnection1: TADOConnection;
1 W, ~' Z( ?' A' w    ADOQlinchang: TADOQuery;
    ADOQyinglinqu: TADOQuery;
    ADOQzuoyequ: TADOQuery;
$ Q5 X0 x* [5 A' h$ i& {    ADOQlinban: TADOQuery;
0 B  X! \8 o$ s7 l8 X  s/ n' t  U    ADOQxiaoban: TADOQuery;
. ^5 X4 z1 M# }/ q# s    ADOQs: TADOQuery;
    procedure Button1Click(Sender: TObject);
  private
8 D( M; _5 e/ M' T- E    { Private declarations }
3 l1 b! g) M2 A' x6 r  public
    { Public declarations }
% O* h8 C8 Z; e. O' ~# M% Y3 U  end;</P><>var
  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
! v  S8 F- N( U8 G4 fvar
6 }) S% j9 b. x" u8 F7 J+ H3 |% Astrlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
begin
adoqlinchang.Close ;
' w% H; G* ?/ `adoqyinglinqu.Close ;
! ]8 p" f7 S7 P" n0 v+ Sadoqzuoyequ.Close ;
# t% T, G$ R# N' N3 cadoqlinban.Close ;
! C" C. V8 O7 A& q% c. vadoqxiaoban.Close ;
" h/ y/ X2 C1 d% p1 Oadoqs.Close ;
adoqlinchang.SQL.Clear ;
& r. B8 ?+ F6 N- X- k( h! }1 Z$ h! madoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
adoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqlinchang.Prepared ;
4 k5 }% Y1 F/ K! m! {$ {' a% _adoqlinchang.Open ;
strlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
0 t! p% q2 s( s# Y$ aadoqyinglinqu.SQL.Clear ;
( N( e% U7 K2 y4 `adoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
adoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
& j9 M2 l. @% Qadoqyinglinqu.Prepared ;
6 _7 ]0 u0 A/ Q6 u3 J/ a+ eadoqyinglinqu.Open ;
- G% k( f2 C) D) H- I. Nwhile not adoqyinglinqu.Eof
do
' G7 }' r; }8 K5 c2 wbegin
  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
( F* P: z& M/ k/ U  g  strcodeying:=strlinchang+'999'+stryinglinqu;
5 q* ^& `% g7 q  ADOQZuoYeQu.SQL.Clear;
  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
* Y+ S8 I; g# A7 `1 W& A( o& r  ADOQZuoYeQu.Prepared;
  ADOQZuoYeQu.Open ;
  while not adoqzuoyequ.Eof
  do
  begin
( _6 l( {4 M" |- R    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
$ Y' Q; E4 j& D; ?" }3 ?- G    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 ;
5 z5 I: N0 |$ @    ADOQLinBan.Prepared;
    ADOQlinBan.Open;
( f" w* y$ x6 l% Z    while not adoqlinban.Eof
% u" R; S* T9 w* p1 [: h    do
    begin
& b# v, u) l2 `0 E" F3 h# ?      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
/ f/ O/ M0 I+ H0 a) E; z      adoqxiaoban.SQL.Clear ;
      adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
      adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
" h9 P5 e. Z. ^      adoqxiaoban.Prepared ;
      adoqxiaoban.Open ;
        while not adoqxiaoban.Eof
- z. U3 L. t( c0 e2 L7 B( L: V        do
6 }4 D4 e$ W4 [4 ~( ?        begin
* f% f$ l$ `3 b# q+ i: H          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
" O9 h, e9 z. C          strcode:=strlinban+strxiaoban;
          adoqs.SQL.Clear ;
8 ~4 W& }8 M3 G          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
          adoqs.Prepared ;
) e  Y4 E$ C: F2 V1 L1 e          try
          adoqs.Open ;
          adoqxiaoban.Next ;
          except
0 ]) [, _+ a1 S. j! v3 c          showmessage('出错！');
/ q" Y6 j6 x0 C          exit;
1 P/ U5 k3 U/ I% s8 B0 z          end;
        end;
+ k0 K5 G- Y. D        adoqlinban.Next ;
    end;
2 ?$ K4 O- R& t9 i7 a    adoqzuoyequ.Next;
  end;
, I6 \% F7 B7 W  R( C    adoqyinglinqu.Next ;
end;
( {) s+ a2 d1 s$ t3 L  adoqlinchang.Close ;
: ?) A3 F" h; |: |3 g6 ^  adoqyinglinqu.Close ;
  _! n8 V& e5 h2 ~4 e& y. N( ?  adoqzuoyequ.Close ;
/ J6 a  K5 F' Z- w+ g1 N4 A2 o  adoqlinban.Close ;
7 O0 M6 L* M! J+ C  adoqxiaoban.Close ;
. u2 \  u; {  p3 r& Q% Q& I  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
1 d8 ~4 I* l4 A. @str1:='001';
  g8 `* x4 o' b, d1 Vstr2:='002';
adoquery1.Close ;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
adoquery1.Prepared ;
' c6 {4 l* t1 _* l; J' ?4 [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>