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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
     
     while not adoqxiaoban.Eof
# w9 y$ X6 T4 w% J% Q  F     do
     begin
) p+ s1 ?/ J. O$ d9 M     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
     strcode:=strlinban+strxiaoban;
. u  g5 {6 M# [0 x6 u  t     adoqs.SQL.Clear ;
     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
4 w, m( ?; C+ |! B8 H* B- X& q     adoqs.Prepared ;
     try
     adoqs.Open ;
     adoqxiaoban.Next ;
$ d1 ^- {9 ]1 O     except
     showmessage(''出错！'');
     exit;
4 H& u% |" S0 B     end;
     end;
     adoqlinban.Next ;
1 {) i% W% U- F5 E; ~1 y     
     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

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

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
/ V) B% E6 d7 E2 Z6 [: j" t  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
# {" U* P& G, H  Dialogs, StdCtrls, DB, ADODB;</P><>type
, M' N8 N! ~$ F" e9 d: ~! V$ U  TForm1 = class(TForm)
    Edit1: TEdit;
, A* o; E9 w( C, S    Button1: TButton;
7 V; S2 b" i! b) Q) e0 U8 @    ADOConnection1: TADOConnection;
8 U" w0 n/ s$ ^& u    ADOQlinchang: TADOQuery;
    ADOQyinglinqu: TADOQuery;
    ADOQzuoyequ: TADOQuery;
    ADOQlinban: TADOQuery;
. b% ~0 s+ _* f6 R    ADOQxiaoban: TADOQuery;
, B; u+ a9 i7 J& b6 Q9 q    ADOQs: TADOQuery;
    procedure Button1Click(Sender: TObject);
  r( ]( a1 W, A' ?' f  private
    { Private declarations }
% r1 D9 f3 v; @  public
    { Public declarations }
  end;</P><>var
  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
var
- Z9 V8 c4 B1 s$ P9 Cstrlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
, _7 I/ E) O+ b7 Gbegin
adoqlinchang.Close ;
adoqyinglinqu.Close ;
* Z6 ]' i& r2 |3 T/ A8 \3 c! oadoqzuoyequ.Close ;
adoqlinban.Close ;
+ C) W" J1 E" @, `" i  @( d9 Gadoqxiaoban.Close ;
adoqs.Close ;
adoqlinchang.SQL.Clear ;
adoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
% V' B) P& ^: j; tadoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqlinchang.Prepared ;
" g. y2 A% g' E5 N9 y- E2 Dadoqlinchang.Open ;
strlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
adoqyinglinqu.SQL.Clear ;
1 F9 S. N9 N! J8 n* `' [adoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
# g0 I# C  D& K9 U* ]- r/ @! madoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqyinglinqu.Prepared ;
adoqyinglinqu.Open ;
- R+ P9 r5 F- Nwhile not adoqyinglinqu.Eof
3 g7 O1 p0 g) v/ F' T: K& d, K1 ?do
begin
6 ^+ X* V, ~. D4 b  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
+ K5 H6 u! [  j  _$ N: _  strcodeying:=strlinchang+'999'+stryinglinqu;
  ADOQZuoYeQu.SQL.Clear;
1 W9 u5 l$ d4 R1 N8 a, P  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 ;
$ I. _0 c3 A1 Z5 Y# G  i  while not adoqzuoyequ.Eof
  do
9 }/ }, |* `! e- G3 [  begin
    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
2 e  Q' x) \9 s5 A# s, ]    strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;
    ADOQLinBan.SQL.Clear;
- P2 i/ L/ L5 S1 r7 K    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;
0 h. F2 `. d8 t' z* Q2 f" R    while not adoqlinban.Eof
    do
) C5 J) H" l7 {: L! D- b& q    begin
5 s; o& L+ ], \2 Q9 ^  |2 }      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
/ \  r7 h  F9 z- [5 a/ @- C      adoqxiaoban.SQL.Clear ;
: t0 Z8 ~" M' }$ f: u" ]% x      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 ;
( ^; p3 g" L6 |3 [! u! k        while not adoqxiaoban.Eof
        do
5 M0 [. Q4 S+ A. Q% K% S8 E        begin
          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
          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+')');
          adoqs.Prepared ;
, `$ U6 d3 J  J; d          try
          adoqs.Open ;
          adoqxiaoban.Next ;
          except
          showmessage('出错！');
          exit;
; S. E6 T  {+ C$ P+ A          end;
        end;
: a: J! R, R6 T        adoqlinban.Next ;
    end;
+ f* Q8 f7 r2 Y3 r6 [1 l" ?    adoqzuoyequ.Next;
  end;
    adoqyinglinqu.Next ;
end;
" }* X- R. `- V- J  Q  adoqlinchang.Close ;
7 Y5 x, I0 V  h2 @, s3 R9 E' |2 Y  adoqyinglinqu.Close ;
% n% n% G! ?9 a+ r* S0 }  adoqzuoyequ.Close ;
, [4 y- l1 w8 K' ]  adoqlinban.Close ;
  adoqxiaoban.Close ;
  adoqs.Close ;
; Z! I1 K( K* w8 eend;</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
6 Z+ G- P" q  u  U, L& i  str1,str2:string;
: W4 S- M, w: B% hbegin
str1:='001';
str2:='002';
adoquery1.Close ;
adoquery1.SQL.Clear ;
0 m% p; p8 t" y, ?+ kadoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
6 k( z5 o; s7 M, D( @* h2 X2 Uadoquery1.Prepared ;
adoquery1.ExecSQL ;
6 U/ C" c( I2 q) \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>