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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
     
* ~; K( H, i& G/ V0 z/ h     while not adoqxiaoban.Eof
     do
     begin
  m/ i7 e2 L" D$ j     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
* U1 c- d+ R$ k     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
: @5 o( s' l; Y% M7 |  O. d     strcode:=strlinban+strxiaoban;
     adoqs.SQL.Clear ;
- M& Y! r- ?7 `/ c" R  ^2 e     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
! D- m, r& n5 q; u0 q     adoqs.Prepared ;
. {! q3 y0 Q+ \     try
     adoqs.Open ;
     adoqxiaoban.Next ;
- P/ c3 g: i6 d- S9 ^     except
) k/ k3 Y1 z/ D3 a/ y     showmessage(''出错！'');
     exit;
0 j# c* B4 ?3 e9 U# s     end;
     end;
  q5 J) E# S, K8 i/ E( L; b! g) I     adoqlinban.Next ;
) W( p, ]+ V4 U     
     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

<>我估计是这句的问题adoqs.Open ;
* Y7 Q0 P, E% G' D9 z( A* F你先检查一下SQL语句对不对，我这里好多变量不知道，没有办法帮你调试！</P>

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
6 e9 Q  Z, w- P5 q: M1 z  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
; r7 O# y- u+ D# Z2 K- F  Dialogs, StdCtrls, DB, ADODB;</P><>type
6 [9 }1 z2 C5 y2 r3 J5 V  L+ g  TForm1 = class(TForm)
1 S% W1 h5 F* t# V* k: F$ u$ {    Edit1: TEdit;
7 P* Y& n: ]( A9 k& c* i    Button1: TButton;
: O+ ~0 |* K3 W& {& e    ADOConnection1: TADOConnection;
    ADOQlinchang: TADOQuery;
  m8 q/ @; r* }$ i9 c! w" X. Q    ADOQyinglinqu: TADOQuery;
    ADOQzuoyequ: TADOQuery;
& l5 g( ^) V) \) L  Q    ADOQlinban: TADOQuery;
  L1 M, m0 R7 u    ADOQxiaoban: TADOQuery;
5 C( P% v. T; m8 M    ADOQs: TADOQuery;
% |& M7 h! B/ O( D2 n' A( X4 W    procedure Button1Click(Sender: TObject);
7 U2 r3 _- ]0 U2 p# i: t  V  private
    { Private declarations }
  public
8 U* B- h& A0 j5 {& F0 ]2 b    { Public declarations }
  E$ Q  Q7 }( D  end;</P><>var
  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
6 |. Z2 }3 @1 K' ^: v6 ovar
strlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
3 O+ \$ g& v: W& k8 m8 \/ r' q0 F1 Dbegin
) k7 ~( O7 r5 k7 P; ?& L* gadoqlinchang.Close ;
- @$ r! E' {" Tadoqyinglinqu.Close ;
adoqzuoyequ.Close ;
9 u$ s) F0 Y* N. o. eadoqlinban.Close ;
* |5 K2 T$ \  }2 @; b! Aadoqxiaoban.Close ;
, q- I8 v9 u3 L4 L  l( ]adoqs.Close ;
7 A7 h8 G8 }! Y1 Cadoqlinchang.SQL.Clear ;
2 M* ^# N# h( n& G5 J! n$ z: ~/ zadoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
( d- J- e# X  R3 p! @6 x6 Q6 ?' ladoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqlinchang.Prepared ;
- S: w* u9 ^% J& kadoqlinchang.Open ;
- F2 a; }6 X2 n* E0 G+ ?. M+ ~strlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
, v8 U8 L/ E# y2 x! }! Hadoqyinglinqu.SQL.Clear ;
! q0 t- \8 L  m  K% Padoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
adoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqyinglinqu.Prepared ;
adoqyinglinqu.Open ;
while not adoqyinglinqu.Eof
; l4 O8 m1 q  M/ P% Y) |8 qdo
* F* e2 |8 L# ]% k, B2 lbegin
* u7 W! h% T& W& `( S1 I  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
  strcodeying:=strlinchang+'999'+stryinglinqu;
( i$ F* G9 M, C9 w  ADOQZuoYeQu.SQL.Clear;
  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
% `' k' a5 h9 y! v6 Z6 f  ADOQZuoYeQu.Prepared;
( x0 Y) I. X- |0 x  ADOQZuoYeQu.Open ;
  while not adoqzuoyequ.Eof
' T0 d; Y$ R' `* i! W  do
  begin
* m. E, J* P7 o) r& c' K    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
. p$ F! w0 x. K3 i* T3 G    strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;
    ADOQLinBan.SQL.Clear;
! z% }2 \7 P/ n    ADOQLinBan.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:Zuoyq');
    ADOQLinBan.Parameters.ParamByName('Zuoyq').Value :=ADOQZuoYeQu.Fields.fieldbyname('areaname').Value ;
* e9 {9 c9 d) U8 G$ w* j* V) J    ADOQLinBan.Prepared;
    ADOQlinBan.Open;
    while not adoqlinban.Eof
    do
    begin
; F* p8 |' y, J% O      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
, h- C, p! a4 |  b9 `      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
      adoqxiaoban.SQL.Clear ;
2 e7 n3 p- |. w. p3 `% H0 i4 @8 ]% F7 f      adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
      adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
      adoqxiaoban.Prepared ;
      adoqxiaoban.Open ;
* r$ U6 p/ v4 ^8 Z6 \        while not adoqxiaoban.Eof
        do
        begin
          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
8 \2 _+ V8 q. d: v4 x$ x5 Q3 {          strcode:=strlinban+strxiaoban;
( V! b; \2 S1 a0 e* k$ G          adoqs.SQL.Clear ;
& _. v: N5 F& Q+ {; Y) J          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
          adoqs.Prepared ;
$ s8 A! X: c# Y* Z8 ~# Y# o          try
          adoqs.Open ;
          adoqxiaoban.Next ;
          except
          showmessage('出错！');
          exit;
          end;
  E( _# d( O& H5 A. B% D- Z        end;
2 m4 q- I: \" h5 V* K        adoqlinban.Next ;
+ X$ v' Q/ Y5 ?2 H; E6 g( ]5 ]    end;
( Z+ E- a( Z9 J3 B# W  d5 y. K    adoqzuoyequ.Next;
, R$ e- X, c$ U6 u  end;
$ G) M2 Y" E& L4 @! |: y4 P+ C    adoqyinglinqu.Next ;
end;
  adoqlinchang.Close ;
( `: h- f' ?+ G' a  adoqyinglinqu.Close ;
  adoqzuoyequ.Close ;
/ _( U" V4 t6 x  z7 d  adoqlinban.Close ;
  adoqxiaoban.Close ;
4 S  ~. G9 Q/ N$ z* c2 L  adoqs.Close ;
. C6 Y5 E$ J$ \7 u% M- ]. @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);
" H3 R/ Z( Y& r$ ivar
- R& ~8 M' `; q& G# [  str1,str2:string;
* y% j; |' G( h" n* ^& Bbegin
str1:='001';
str2:='002';
adoquery1.Close ;
5 z& k1 G: Q, |8 @, t$ uadoquery1.SQL.Clear ;
# a/ U, \0 q& W* hadoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
adoquery1.Prepared ;
adoquery1.ExecSQL ;
) n1 Z* ]# h: V) T) e' n8 Mend;</P><>我觉得我的程序没有错呀 </P><>还有 varchar 和 char 有什么区别亚</P><>万分感谢！！！ </P>[em07][em01][em01][em01]

ilikenba

<>晕,你的SQL语句写的不对！字符串数据添加是两边要有',否则就按数字处理了！</P><>adoquery1.SQL.Add('insert into test1 values('''+str1+''','''+str2+''')');</P><>这句改成上面的就对了！</P>