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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
& T& b  R1 l% ?4 Q7 k5 J     
1 \! c3 J6 K+ g) p4 l* j% u# T     while not adoqxiaoban.Eof
( y: M- a. x* Z! ]7 K0 _     do
1 s6 G& T7 K) O/ ^     begin
     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
8 [+ s0 H3 `9 f! o. y) w5 Z6 t! [% N, \     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
     strcode:=strlinban+strxiaoban;
$ L- g! e, x3 i     adoqs.SQL.Clear ;
     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
     adoqs.Prepared ;
) T$ S- b/ [4 L7 U, T- {     try
5 h/ |" Z, C. D: b+ O1 t     adoqs.Open ;
* Q: L) Y: t/ x     adoqxiaoban.Next ;
     except
     showmessage(''出错！'');
- {# F( V0 K: l; B: @4 q: M, e     exit;
     end;
     end;
$ k6 [- ]9 O: v! j     adoqlinban.Next ;
     
     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

<>我估计是这句的问题adoqs.Open ;
你先检查一下SQL语句对不对，我这里好多变量不知道，没有办法帮你调试！</P>

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
( B3 l5 a5 ?& B2 F1 `  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5 j" M9 ?3 F$ f. h8 i# x: C  Dialogs, StdCtrls, DB, ADODB;</P><>type
5 l/ U8 t+ ]# a3 G  TForm1 = class(TForm)
    Edit1: TEdit;
, ^9 ~! ~! \( j    Button1: TButton;
! l+ t3 j  X. ]$ h; \9 y    ADOConnection1: TADOConnection;
    ADOQlinchang: TADOQuery;
7 u. F" p- l  A' D3 |    ADOQyinglinqu: TADOQuery;
2 J4 S3 `: X% Y  u6 n: q    ADOQzuoyequ: TADOQuery;
' y; Y8 }8 y* M* E0 K    ADOQlinban: TADOQuery;
# ~. b. V5 m- ]' ?$ V, }5 K    ADOQxiaoban: TADOQuery;
    ADOQs: TADOQuery;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
) U5 U0 j1 r& @; N- P9 z5 _* u  public
! w5 j' A5 c' D1 W9 Y3 \8 b3 Z    { Public declarations }
7 q7 t$ o* W$ r  end;</P><>var
1 K$ t% J' R7 g7 F  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
) f% v5 C2 d, [1 j( jvar
, c" I: c  _$ B* Y- E5 G0 z" ustrlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
begin
- B0 n  S. ^" p$ Sadoqlinchang.Close ;
adoqyinglinqu.Close ;
3 x6 ?2 E( m1 d' J4 s  |( padoqzuoyequ.Close ;
adoqlinban.Close ;
adoqxiaoban.Close ;
adoqs.Close ;
) y, C2 K, `: \& m6 R# k, F$ ]$ xadoqlinchang.SQL.Clear ;
adoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
adoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
! M( p5 p3 A7 r$ c8 }5 xadoqlinchang.Prepared ;
! k, R, w; {. v/ c( aadoqlinchang.Open ;
, h3 C7 a, D7 O' W! E; _strlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
adoqyinglinqu.SQL.Clear ;
, ~/ D4 v3 p& n4 v/ [adoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
adoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
. t' |2 F1 W: i* L2 F+ ~adoqyinglinqu.Prepared ;
adoqyinglinqu.Open ;
+ U4 z2 D5 c% b, u5 U  T! Ewhile not adoqyinglinqu.Eof
do
begin
# i6 ?3 A0 M. I; J; w  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
4 L: E" g0 [8 k$ i% f' O3 _7 w  strcodeying:=strlinchang+'999'+stryinglinqu;
7 M; g& f; B: B$ Y+ t- E9 P  ADOQZuoYeQu.SQL.Clear;
  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
  ADOQZuoYeQu.Prepared;
2 d" ]! _- o2 r8 h/ c4 {  ADOQZuoYeQu.Open ;
  while not adoqzuoyequ.Eof
  do
  begin
4 c- v' y2 y: N+ m: _  b; C    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');
" D9 \8 N( Q' M; J9 }8 k: B    ADOQLinBan.Parameters.ParamByName('Zuoyq').Value :=ADOQZuoYeQu.Fields.fieldbyname('areaname').Value ;
    ADOQLinBan.Prepared;
    ADOQlinBan.Open;
9 ]+ y5 `% [3 P: h$ c. ~    while not adoqlinban.Eof
    do
4 m, n) `. F9 a7 o( x    begin
      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
: Z0 O2 i% i9 h2 M      adoqxiaoban.SQL.Clear ;
0 I+ p( z0 R* S& E+ d, g5 t      adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
) M6 K- H; C4 n' G      adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
1 v. ]: {: b# H8 {& u) B4 c      adoqxiaoban.Prepared ;
      adoqxiaoban.Open ;
        while not adoqxiaoban.Eof
" H# S3 W7 b, x% {( E+ L. R1 J        do
1 Q% F, ?* ]* t! s, U: m        begin
          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
5 t3 O  P" V( U5 r' m" o3 U+ m          strcode:=strlinban+strxiaoban;
          adoqs.SQL.Clear ;
          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
: y3 _4 ?" |( b8 F9 A: ~          adoqs.Prepared ;
1 M& }8 A4 E% C; T, }1 S' M# _' k4 S& z          try
          adoqs.Open ;
/ S' f; `$ u2 p/ A0 V          adoqxiaoban.Next ;
          except
. A1 ~( q* K" b9 D, M+ t          showmessage('出错！');
          exit;
( i( \& w( w' b          end;
$ B. n# a9 ~( G  z! _        end;
        adoqlinban.Next ;
: E8 }4 P3 d9 B4 s% L3 P    end;
    adoqzuoyequ.Next;
; Z+ R+ P$ J# [7 h' ^" y  end;
2 w& Q/ a7 S4 {3 U! |7 _, d    adoqyinglinqu.Next ;
, g! v% C9 V* ~6 O# \4 c, ~end;
: U: H7 f9 u8 g( t; {" c  adoqlinchang.Close ;
% z6 @* T, X/ e8 H  adoqyinglinqu.Close ;
  adoqzuoyequ.Close ;
- ]  }0 K. |; ~# l+ C5 A  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);
, P) J: i8 B& m( E0 O4 Gvar
( A4 V7 v4 Z: k9 \  str1,str2:string;
6 L4 U" c+ g8 W4 Q/ o5 Ibegin
str1:='001';
str2:='002';
adoquery1.Close ;
adoquery1.SQL.Clear ;
5 a8 S) m+ B! o! J+ Gadoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
# S8 r  {9 ~4 d2 C. Y- hadoquery1.Prepared ;
adoquery1.ExecSQL ;
7 L  E, \. j; v/ b) m2 R' z# S- Wend;</P><>我觉得我的程序没有错呀 </P><>还有 varchar 和 char 有什么区别亚</P><>万分感谢！！！ </P>[em07][em01][em01][em01]

ilikenba

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