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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
     
     while not adoqxiaoban.Eof
( w) a! }! _& p0 b5 e# o4 m3 Q     do
     begin
( g6 O/ e$ z2 k6 Z2 l     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
. z2 Z+ B0 F" @     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
6 b- i5 H/ ^. [- g1 s     strcode:=strlinban+strxiaoban;
4 k. E! M- }2 `  @( j8 |6 p9 U     adoqs.SQL.Clear ;
     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
     adoqs.Prepared ;
/ y: k' b" C+ c  }# Z+ }7 e     try
     adoqs.Open ;
     adoqxiaoban.Next ;
     except
     showmessage(''出错！'');
     exit;
     end;
     end;
     adoqlinban.Next ;
     
  _! `2 f2 P0 g/ }0 e/ O4 d) m     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

<>我估计是这句的问题adoqs.Open ;
, S+ e  s% n1 w% u3 t5 q0 Q1 Y- ]你先检查一下SQL语句对不对，我这里好多变量不知道，没有办法帮你调试！</P>

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
  @' M* T0 I* c) ^% g  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5 v' ~" }2 V4 ^: @3 N) f3 o. a  Dialogs, StdCtrls, DB, ADODB;</P><>type
  TForm1 = class(TForm)
' ~' o" x. d6 J    Edit1: TEdit;
+ I+ O9 `4 _9 ^, j    Button1: TButton;
    ADOConnection1: TADOConnection;
& H' x7 B0 S8 A- E( N8 t8 ~* |    ADOQlinchang: TADOQuery;
    ADOQyinglinqu: TADOQuery;
" J: g9 y% D  S' ^8 D0 d! E    ADOQzuoyequ: TADOQuery;
1 j) h# [# z8 J    ADOQlinban: TADOQuery;
* h' R- f2 j4 s    ADOQxiaoban: TADOQuery;
    ADOQs: TADOQuery;
' }/ w1 u6 q$ l" a" [+ B- {    procedure Button1Click(Sender: TObject);
9 E) a. U& f" a  private
% v6 K4 s) i6 ?8 ~+ d    { Private declarations }
  c. M# [; C/ A& R0 W# J& Q  public
    { Public declarations }
+ o* w3 M  E  u) ?+ O  end;</P><>var
  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
var
strlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
3 c) O) m! `2 Obegin
adoqlinchang.Close ;
adoqyinglinqu.Close ;
adoqzuoyequ.Close ;
1 {! J: p5 V2 M" m. Q% Wadoqlinban.Close ;
adoqxiaoban.Close ;
: p; q# h6 B9 H9 x; U! Badoqs.Close ;
adoqlinchang.SQL.Clear ;
adoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
adoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqlinchang.Prepared ;
8 Q% O2 O% N  n- E) Y: K( Zadoqlinchang.Open ;
* S/ Z5 K* X8 y' k( e* I/ F& wstrlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
adoqyinglinqu.SQL.Clear ;
; D" k; J9 o# H! ]9 Y7 C* y& Cadoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
adoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqyinglinqu.Prepared ;
1 v' z3 ]9 u! R: M' F+ Ladoqyinglinqu.Open ;
9 y" |& `8 j# K% x5 k4 h  awhile not adoqyinglinqu.Eof
do
begin
8 y, @' D6 Z0 ^" U" u8 [  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
  strcodeying:=strlinchang+'999'+stryinglinqu;
" \, [6 J. o3 o  ADOQZuoYeQu.SQL.Clear;
. ?1 W4 g0 M$ @) K' s3 E  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
+ Z" v- g$ y# |7 m' q# o/ s  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
: w2 J% w9 d1 r+ ~0 H3 s, z  ADOQZuoYeQu.Prepared;
  ADOQZuoYeQu.Open ;
  while not adoqzuoyequ.Eof
  do
4 d9 k' u% C8 }/ O/ G  begin
5 t8 R, K) }: ^. t# t8 |    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
% A" j# U+ `/ e+ K& s9 X: h    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 ;
! p; o* D4 Z4 z1 ?    ADOQLinBan.Prepared;
    ADOQlinBan.Open;
$ P( @: ~* v4 ?. I5 R2 T    while not adoqlinban.Eof
& `% R! M% t/ z6 N! T: s3 o    do
    begin
      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
4 l1 \; T0 l) ?% D. X7 d/ O/ ^7 f      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
      adoqxiaoban.SQL.Clear ;
: C3 M3 F8 x# p6 u      adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
! C, B1 T7 X) S& F; w      adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
( U% h* v  P. z" B: S; D9 W      adoqxiaoban.Prepared ;
      adoqxiaoban.Open ;
        while not adoqxiaoban.Eof
        do
        begin
$ ]) k& S, z7 }& M1 m2 _          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
" K: j6 W, `: _# ~$ U: o          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
          strcode:=strlinban+strxiaoban;
          adoqs.SQL.Clear ;
          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
7 Y* j* m" N( r; n1 R1 }% V9 t          adoqs.Prepared ;
5 u* s0 v. K6 L0 K; t: w4 O          try
          adoqs.Open ;
          adoqxiaoban.Next ;
          except
1 L: V8 ]$ t* T0 j          showmessage('出错！');
          exit;
# q( Y5 R4 ]* g2 N* |) z4 s# T          end;
        end;
        adoqlinban.Next ;
9 V0 D% n4 T, |& _8 T7 Q7 j    end;
    adoqzuoyequ.Next;
  end;
    adoqyinglinqu.Next ;
1 s" e% }7 h3 j+ R; bend;
  adoqlinchang.Close ;
0 }& L+ W( M5 u% {5 u  adoqyinglinqu.Close ;
  adoqzuoyequ.Close ;
  adoqlinban.Close ;
  adoqxiaoban.Close ;
, i. c+ S+ T$ ~; e! B  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);
  t+ w5 U+ T0 |9 ?var
  N" L& ^7 m% \2 s/ d- b# Z  str1,str2:string;
$ [/ w# J! n( Q' Ibegin
str1:='001';
str2:='002';
adoquery1.Close ;
6 E* _0 l) X9 D0 D7 |. Badoquery1.SQL.Clear ;
- X, _& i" N# l/ P# q/ Yadoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
adoquery1.Prepared ;
( G% e3 L; |% B* f0 N& ]: c; {% ladoquery1.ExecSQL ;
5 ~4 u5 q4 a9 Z. K, [2 o3 lend;</P><>我觉得我的程序没有错呀 </P><>还有 varchar 和 char 有什么区别亚</P><>万分感谢！！！ </P>[em07][em01][em01][em01]

ilikenba

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