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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
     
     while not adoqxiaoban.Eof
- ^8 {  Z6 v, l# [4 y     do
     begin
5 `  n( F) }6 Q' w) X: ]% w# d     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
- Y- q9 \6 n- l     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
( r& ?2 h9 O+ b     strcode:=strlinban+strxiaoban;
     adoqs.SQL.Clear ;
; g" {( h% a2 d' ]# P! M! I6 }     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
     adoqs.Prepared ;
     try
; A6 Z" o8 U5 U8 e. |     adoqs.Open ;
     adoqxiaoban.Next ;
     except
     showmessage(''出错！'');
     exit;
. P. T& U3 s+ k  j* m     end;
* G" ^! [- j0 u     end;
' M/ t9 P: h# X  Q. a- L0 W, B/ @     adoqlinban.Next ;
. L# X) \3 x4 |7 Y0 R, a" n0 |     
     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

<>我估计是这句的问题adoqs.Open ;
% f4 s; E. b5 a( s* z+ B2 X你先检查一下SQL语句对不对，我这里好多变量不知道，没有办法帮你调试！</P>

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;</P><>type
  TForm1 = class(TForm)
! }5 \0 T1 ?$ {: D4 w+ k    Edit1: TEdit;
3 B  M  z7 O8 l* y; H    Button1: TButton;
    ADOConnection1: TADOConnection;
4 a- n# F8 m3 h/ z% {    ADOQlinchang: TADOQuery;
6 U1 c+ r2 ~4 J% j* x$ G    ADOQyinglinqu: TADOQuery;
    ADOQzuoyequ: TADOQuery;
# i+ ~* I- v$ o0 J3 G7 t    ADOQlinban: TADOQuery;
" L5 \6 E% s4 y0 ^/ `: u    ADOQxiaoban: TADOQuery;
    ADOQs: TADOQuery;
. }; }3 q0 k  K2 P; W1 N' J* c    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
6 R* J* t1 P. Y3 W2 I0 n    { Public declarations }
  end;</P><>var
  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
- |7 C" I" @- `% `var
strlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
. b# Y, r+ Y' m" Tbegin
adoqlinchang.Close ;
adoqyinglinqu.Close ;
adoqzuoyequ.Close ;
* K$ z7 P: [6 j: ~. ]; Cadoqlinban.Close ;
9 x! j. L* D7 nadoqxiaoban.Close ;
+ ?$ s- n) i( Q( \3 \adoqs.Close ;
adoqlinchang.SQL.Clear ;
adoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
+ s/ _# m; s0 d6 Jadoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqlinchang.Prepared ;
5 b; p4 Z! j5 B$ e+ O" qadoqlinchang.Open ;
! N5 y6 P8 k! M! c/ p+ `/ ]3 W% z! E& ustrlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
adoqyinglinqu.SQL.Clear ;
adoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
adoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
8 \3 j5 [) l* ~& g, ?& ]/ Hadoqyinglinqu.Prepared ;
2 T& U0 c3 S; |adoqyinglinqu.Open ;
& n# W, w" {2 j3 g- }/ E1 H, wwhile not adoqyinglinqu.Eof
do
begin
) w: X+ e& l. o7 F% G  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
  strcodeying:=strlinchang+'999'+stryinglinqu;
6 i7 ^5 ^+ O4 e6 l8 o4 Q0 j- J  ADOQZuoYeQu.SQL.Clear;
  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
2 j  V. P3 p* h2 D0 k# B  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
. g( i8 E  x$ L5 p" S5 u  ADOQZuoYeQu.Prepared;
# [% I- p6 N5 H! K, Y% a  ADOQZuoYeQu.Open ;
9 p) l. x! D, y. K  L, T  while not adoqzuoyequ.Eof
  do
! x" x$ P9 B( h. J; M( \  begin
  p6 T( L( G2 f( @    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
    strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;
" G6 Z* K( m: z8 u5 q7 `9 B2 C    ADOQLinBan.SQL.Clear;
    ADOQLinBan.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:Zuoyq');
    ADOQLinBan.Parameters.ParamByName('Zuoyq').Value :=ADOQZuoYeQu.Fields.fieldbyname('areaname').Value ;
  C% Q. T  N7 G5 h0 j! Q    ADOQLinBan.Prepared;
    ADOQlinBan.Open;
; k- r! M8 ]7 W; v1 o* p% Y. G" u    while not adoqlinban.Eof
    do
% I* ?* B2 C0 W0 n4 v3 N    begin
      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
% M( W3 N. D1 S8 a      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
      adoqxiaoban.SQL.Clear ;
; T0 `+ X$ d2 ^4 l; v2 r      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 ;
2 y, `6 }: R9 F+ D2 g- E        while not adoqxiaoban.Eof
        do
        begin
; A# \- _$ s, S, e" n          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
          strcode:=strlinban+strxiaoban;
          adoqs.SQL.Clear ;
2 O; V6 q) c# E          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
- L0 e% Y+ g( a5 ?          adoqs.Prepared ;
- s$ j5 @! Z9 T4 T          try
          adoqs.Open ;
          adoqxiaoban.Next ;
! m& E9 f+ v8 U          except
; l. _6 {. R8 T8 Y! ^! D4 _7 i6 N& {          showmessage('出错！');
% _& T3 G6 d" e, k' I; a0 ]3 X) N' _7 h; J          exit;
" y2 i0 n* |8 g. Z) w6 ^! q) J9 a          end;
- P3 Z- R, z2 m1 v/ {        end;
        adoqlinban.Next ;
6 S. \8 U- ]8 t2 o' U* n+ P    end;
& d' R- {5 Q0 n" C! d, X% L    adoqzuoyequ.Next;
  end;
    adoqyinglinqu.Next ;
end;
6 Z( i/ b! m( ?' A4 d  adoqlinchang.Close ;
  adoqyinglinqu.Close ;
  adoqzuoyequ.Close ;
; h8 L. @# C% f4 b% `  adoqlinban.Close ;
. O. q) n! w# @0 O; C  adoqxiaoban.Close ;
1 b1 u' D$ r, R/ R) ?  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;
$ q' f  u, R' _5 u, Z6 Kbegin
str1:='001';
str2:='002';
adoquery1.Close ;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
adoquery1.Prepared ;
adoquery1.ExecSQL ;
! c  H1 X5 @8 y; o) u  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>