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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
     
7 o( P  A  U& N! b" {     while not adoqxiaoban.Eof
; c/ {9 [. h0 C     do
7 J4 a; a- T; a1 l2 M0 f     begin
     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
& _7 v* V3 d6 i' ^, W4 G& `     strcode:=strlinban+strxiaoban;
/ S" \$ n+ T# N5 R: M7 q4 m6 i2 {     adoqs.SQL.Clear ;
     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
     adoqs.Prepared ;
8 \3 s9 T+ j# [( t3 e! a     try
     adoqs.Open ;
1 t, [, v( l/ u% @$ F4 j     adoqxiaoban.Next ;
     except
  c, g6 J0 f' S     showmessage(''出错！'');
     exit;
* B# f0 X1 c! q     end;
     end;
     adoqlinban.Next ;
     
3 D& b) w. o' I. t$ J6 u( t  W     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

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

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
9 P7 y% F! g- v; A3 t( {  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
& L# f! T# v2 {# a: e# r; ]3 _( [) M  Dialogs, StdCtrls, DB, ADODB;</P><>type
  TForm1 = class(TForm)
+ N, Z. }( q0 A& T5 I    Edit1: TEdit;
% f2 i, K* Q0 U; n. t9 m- w    Button1: TButton;
    ADOConnection1: TADOConnection;
    ADOQlinchang: TADOQuery;
    ADOQyinglinqu: TADOQuery;
0 U- p2 U* r6 z5 C    ADOQzuoyequ: TADOQuery;
    ADOQlinban: TADOQuery;
% O' ]4 Y; K9 _  L' h    ADOQxiaoban: TADOQuery;
* F2 M+ c8 i1 }1 W    ADOQs: TADOQuery;
! z8 _: S- w3 q4 O! k0 F    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
) S2 s/ a5 j. p/ Q. _/ a    { Public declarations }
  end;</P><>var
  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
# G' j  k. i- q0 i# G3 u* [var
- \* c* H7 a# R+ `strlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
begin
0 P7 v: }  b# Z8 K# r4 padoqlinchang.Close ;
. u; S: P- @2 [1 d; j. R3 madoqyinglinqu.Close ;
adoqzuoyequ.Close ;
( ^" T$ R$ O* t' l8 [3 H  Uadoqlinban.Close ;
. @$ m) V- B, b% Cadoqxiaoban.Close ;
6 i4 y! H4 S. T- N2 Ladoqs.Close ;
% |: O- \2 f: Vadoqlinchang.SQL.Clear ;
  a( `, w" k4 ?2 D" K% Aadoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
adoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqlinchang.Prepared ;
9 D/ S( \, T2 G% a0 p4 f5 wadoqlinchang.Open ;
1 {0 P$ a6 Y9 A5 E5 \; B( Bstrlinchang:=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 ;
adoqyinglinqu.Prepared ;
2 r9 @! M* f& e( u% Hadoqyinglinqu.Open ;
while not adoqyinglinqu.Eof
" Q" u5 j! w, V' u7 c" g  \do
begin
! e2 a# `$ C% R* g; Y0 X% `  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
  strcodeying:=strlinchang+'999'+stryinglinqu;
7 @; ?4 b, J! C( b- ]  ?; h# }  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;
  ADOQZuoYeQu.Open ;
* t4 ]+ E, o4 J$ S: W0 P1 x  while not adoqzuoyequ.Eof
  do
) X& D* t) S2 {( `: G: x# _  begin
    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
' {( ]" c: _, ]- i" n$ ^0 i: c, k    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 ;
    ADOQLinBan.Prepared;
    ADOQlinBan.Open;
    while not adoqlinban.Eof
% @/ Z5 F2 l( o# F    do
! N, A/ _- H: }    begin
. V% I$ n8 X; n0 z1 J' q      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
      adoqxiaoban.SQL.Clear ;
! o2 U3 o8 @' \& K! O) {      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 ;
' M. l/ q) w$ T# d6 R5 Y        while not adoqxiaoban.Eof
        do
5 @" V' A4 K' a' j        begin
          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
4 D" n% S- h1 w. v4 P3 P          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
# G& D; @0 |0 D7 R& u' C' M          strcode:=strlinban+strxiaoban;
          adoqs.SQL.Clear ;
/ T5 W& L6 p  ~. y2 A9 ~          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
          adoqs.Prepared ;
          try
          adoqs.Open ;
7 j# P+ {5 d; h' Z" i+ r# F4 E          adoqxiaoban.Next ;
          except
, A* M% [8 e# c; M          showmessage('出错！');
          exit;
          end;
        end;
        adoqlinban.Next ;
    end;
7 M9 N- L9 s  `2 G; v; Y7 Y    adoqzuoyequ.Next;
" ^- e+ J+ S2 G9 q, Y; `7 d5 y" N' ?! s  end;
    adoqyinglinqu.Next ;
end;
- I/ r) ~; J) N  adoqlinchang.Close ;
  adoqyinglinqu.Close ;
4 @  b5 S5 h* W  adoqzuoyequ.Close ;
  adoqlinban.Close ;
; o, b$ G1 a0 ]7 S' f9 }4 Q' @2 f  adoqxiaoban.Close ;
  g3 W/ ~$ C# E% |8 g# u) D! T  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);
; [' _0 Q0 B% ]$ fvar
' B8 H! C# Z; m7 Y9 o" _  str1,str2:string;
1 N" B  [4 z/ ^( u6 Y. ^: C1 fbegin
; D0 F( m5 B, a% j0 Xstr1:='001';
; y& V' T) f% z' ?) Astr2:='002';
adoquery1.Close ;
. W3 j, E* ]6 K  @7 p% `adoquery1.SQL.Clear ;
( q6 V9 i4 Z- t) c. b! @adoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
adoquery1.Prepared ;
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>