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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
     
     while not adoqxiaoban.Eof
     do
' \- \& v5 L' B. l( t. a: j     begin
     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
     strcode:=strlinban+strxiaoban;
     adoqs.SQL.Clear ;
* U9 K, w4 _) g& D; r     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
     adoqs.Prepared ;
5 L1 P5 E" ~5 _     try
     adoqs.Open ;
     adoqxiaoban.Next ;
     except
: S8 f4 W! D3 a# H% Y# l+ _     showmessage(''出错！'');
, o6 e" z5 \/ ^8 S3 c     exit;
( c7 f5 A' @; y4 `" y     end;
     end;
$ B! r# g: c  V6 T/ m     adoqlinban.Next ;
, t0 I! a) i* _- q+ P  R7 Y     
7 p5 e- G  q( S' i: W5 G4 h2 t     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

<>我估计是这句的问题adoqs.Open ;
( A5 B1 e: {# ?+ i( h4 S你先检查一下SQL语句对不对，我这里好多变量不知道，没有办法帮你调试！</P>

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
4 e5 a# V6 y0 r) ?  Dialogs, StdCtrls, DB, ADODB;</P><>type
! n" `" [: ~# |* _# O  TForm1 = class(TForm)
$ v- y# _. H. H5 U$ J/ H; J2 y    Edit1: TEdit;
    Button1: TButton;
3 Y4 s+ Y2 c& i2 x6 s2 F# Y' W: M; u) ]! Y    ADOConnection1: TADOConnection;
. f% p6 b, L' F6 z0 i* Q  E    ADOQlinchang: TADOQuery;
8 z, a2 ^  U- {$ g3 K" g* o    ADOQyinglinqu: TADOQuery;
    ADOQzuoyequ: TADOQuery;
    ADOQlinban: TADOQuery;
    ADOQxiaoban: TADOQuery;
9 k9 ?6 `( T0 n* C+ R' R. f    ADOQs: TADOQuery;
    procedure Button1Click(Sender: TObject);
  private
6 x8 [/ o% V0 C) p  I3 ~- x    { Private declarations }
* `- B4 Q: O* y) R+ H  public
6 q/ m- s  s0 n! _3 i8 o9 n- k( ]    { Public declarations }
3 J; f3 P7 R; Y- K6 G6 ~  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;
$ J# m/ y, p, H( i' Ibegin
' Q% P$ i1 ^- v7 i! j- yadoqlinchang.Close ;
adoqyinglinqu.Close ;
adoqzuoyequ.Close ;
adoqlinban.Close ;
- J0 T+ o' f, E5 [7 z% sadoqxiaoban.Close ;
; D1 g& s' r) I/ x. y2 o) Padoqs.Close ;
8 G3 l( e% t8 ]8 Xadoqlinchang.SQL.Clear ;
2 U) a' G/ O% Z4 I; V8 oadoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
8 k# o: H$ U9 A+ l) z" w; Y: _0 Ladoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqlinchang.Prepared ;
+ V& M3 j5 x8 q6 Y1 E- L  Eadoqlinchang.Open ;
+ i4 n; I3 g, ?7 Istrlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
# C3 W$ P; c  R- [# s9 J- Kadoqyinglinqu.SQL.Clear ;
4 p- o4 Y$ N" ^% J( h! w3 O5 h8 D" Jadoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
adoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
" Z5 a5 H) w; n" ]3 Q5 D: v$ |adoqyinglinqu.Prepared ;
adoqyinglinqu.Open ;
while not adoqyinglinqu.Eof
& P) I' v$ a7 j1 x3 [$ \do
begin
& L- H5 \, e5 e  b5 X4 W  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
  strcodeying:=strlinchang+'999'+stryinglinqu;
  ADOQZuoYeQu.SQL.Clear;
  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
) J1 m/ O% p" Y( x+ k/ f6 x. P  ADOQZuoYeQu.Prepared;
/ s* t. S/ R: C/ }. z2 J; \2 J  ADOQZuoYeQu.Open ;
  while not adoqzuoyequ.Eof
  do
. |( c: l4 y; b6 w9 e! W  begin
. p; B( ]5 e' `! a    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
, Z# H) _+ K$ {) \1 \    strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;
    ADOQLinBan.SQL.Clear;
    ADOQLinBan.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:Zuoyq');
( X! I! \5 ~6 u    ADOQLinBan.Parameters.ParamByName('Zuoyq').Value :=ADOQZuoYeQu.Fields.fieldbyname('areaname').Value ;
    ADOQLinBan.Prepared;
    ADOQlinBan.Open;
    while not adoqlinban.Eof
    do
2 V7 H" `1 I/ e6 @4 K% \    begin
, V# A& j" Q3 E  W) ^2 _1 j6 S      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
$ Z8 \) w2 M6 t, \( g1 Y      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
- N3 @+ t+ H3 _% T4 [/ u      adoqxiaoban.SQL.Clear ;
      adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
      adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
1 e3 j* N" t8 i5 m  f1 @. J      adoqxiaoban.Prepared ;
1 s8 L2 K0 c8 f      adoqxiaoban.Open ;
        while not adoqxiaoban.Eof
        do
        begin
          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
  ~. N$ y  [& B; Y- p% X          strcode:=strlinban+strxiaoban;
7 b8 J) h- ?# e          adoqs.SQL.Clear ;
          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
; B3 D$ v0 L3 P+ J          adoqs.Prepared ;
9 R: @- X/ _+ g  g3 Q          try
- i5 n$ K9 ^2 G" m0 b( T6 [) w          adoqs.Open ;
          adoqxiaoban.Next ;
          except
          showmessage('出错！');
          exit;
          end;
" F0 N0 n( }/ [5 Q, V        end;
        adoqlinban.Next ;
    end;
    adoqzuoyequ.Next;
& w1 {  t+ v# v9 m  end;
( C3 Y2 {, ?* e" u3 `& k' a9 z    adoqyinglinqu.Next ;
" O6 s& O- d; Y; b; [* q9 ^( ?end;
  adoqlinchang.Close ;
  adoqyinglinqu.Close ;
  adoqzuoyequ.Close ;
) s5 K  j; u+ w) e0 t3 j  adoqlinban.Close ;
3 ^4 K% j, w5 y2 x! K  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);
var
. `, b+ q2 i- [  str1,str2:string;
  H5 s9 g8 I2 b4 w3 `5 qbegin
str1:='001';
0 I6 x6 N6 L0 I; e7 u/ \, astr2:='002';
' O1 j' N8 w, y! Q7 q! Zadoquery1.Close ;
adoquery1.SQL.Clear ;
/ P/ r6 J  a1 c6 radoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
( A" |6 I; O0 M9 m. a' h* Y% jadoquery1.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>