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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
     
     while not adoqxiaoban.Eof
3 Z1 j, p6 Q1 o% E     do
     begin
9 G! y# ^0 i7 B' W+ Z     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
5 g. V# @+ e" r5 q4 P+ T     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
- J4 P' v7 ?5 A' f& o! y1 u     strcode:=strlinban+strxiaoban;
     adoqs.SQL.Clear ;
* r6 p8 B+ d( J; P5 W. r5 ?1 o     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
     adoqs.Prepared ;
     try
! |/ c- w3 o  [; N' B1 i2 w. d7 V     adoqs.Open ;
     adoqxiaoban.Next ;
$ A. g; a7 }/ M3 v     except
4 |  t, H0 X1 g3 U* O9 ^5 h     showmessage(''出错！'');
& b  _7 E6 t/ I# \* q. I1 V     exit;
     end;
- g0 |+ ~# n  e( b- f* N% b0 d     end;
: U7 L5 \2 i- f/ `) g7 d     adoqlinban.Next ;
     
8 I' ?/ ]. a. _! A. ^     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

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

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
/ @, v& `/ P8 {  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;</P><>type
  TForm1 = class(TForm)
; j! s4 i6 p6 f2 G5 a; [    Edit1: TEdit;
    Button1: TButton;
/ `) k! O5 p' j+ l/ r/ N2 K    ADOConnection1: TADOConnection;
    ADOQlinchang: TADOQuery;
    ADOQyinglinqu: TADOQuery;
. x; {/ j6 x8 @+ Y7 [8 }( G6 Y: d4 ]: Y) T    ADOQzuoyequ: TADOQuery;
    ADOQlinban: TADOQuery;
    ADOQxiaoban: TADOQuery;
$ {) R& h' R4 W: Q  u8 [0 \: z4 W8 R    ADOQs: TADOQuery;
$ L. s3 s/ L; l    procedure Button1Click(Sender: TObject);
  private
6 R6 p* O" ^2 f# K: A+ y* e" ~0 V    { Private declarations }
0 x' w/ K" K0 `4 l) K. ~  public
    { Public declarations }
  end;</P><>var
9 y; W; j2 M3 F" J8 I  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;
begin
- f5 l8 {' d4 X& m# {2 g4 Fadoqlinchang.Close ;
adoqyinglinqu.Close ;
9 v' b- v* U: j8 Y* S( N( P- o4 Jadoqzuoyequ.Close ;
) H) k, M3 N- e% L1 C" Ladoqlinban.Close ;
( u0 }# t  r3 p5 f7 nadoqxiaoban.Close ;
adoqs.Close ;
4 r1 b3 i; ?) V9 @- V% @adoqlinchang.SQL.Clear ;
adoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
# `/ t) L* w3 l/ |& W1 P* W8 jadoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
0 B6 l% \! r4 t$ ?0 _' A$ Y) {adoqlinchang.Prepared ;
adoqlinchang.Open ;
+ e8 S  N8 j/ A* D5 F2 Estrlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
: \4 q' C6 C' _* I! U; dadoqyinglinqu.SQL.Clear ;
- Y0 |- A+ F* A3 b" ^adoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
adoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
; X0 I# x+ Y8 K4 v& Dadoqyinglinqu.Prepared ;
' a/ Y6 E8 Z, w: E' q6 I7 h4 g" h$ Oadoqyinglinqu.Open ;
while not adoqyinglinqu.Eof
do
begin
  {% p  T3 L1 n5 t9 B3 u) B  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');
& m* ^! n& I& c$ o* h4 v5 J9 j7 f  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
* r, |% ?9 B4 K: N! J/ u  u7 K, _4 s  ADOQZuoYeQu.Prepared;
& I7 a* t/ {8 s: v8 B  \, g( Y' q! S  ADOQZuoYeQu.Open ;
# U- q5 x7 w2 k! k  while not adoqzuoyequ.Eof
2 W# i/ x! k7 l* x- @& x: x+ o5 o2 ]- @  do
  begin
    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
5 g! H: C2 z  ~  o3 z1 d    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 ;
! T1 _, y: ^: w9 s0 V    ADOQLinBan.Prepared;
  E; G' ^6 M- H. c2 ?/ ?2 H% G    ADOQlinBan.Open;
( H: x4 q! U! _1 o; G/ `    while not adoqlinban.Eof
    do
    begin
2 P9 \# R" i4 A7 u% W      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
' p( h5 Z3 k+ s3 _      adoqxiaoban.SQL.Clear ;
      adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
8 x) X% a; d8 [' u& ?4 }$ p      adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
( ^% u1 D; A8 `* R; g. d' K3 ?      adoqxiaoban.Prepared ;
      adoqxiaoban.Open ;
/ e1 [$ {: \' q- G$ G        while not adoqxiaoban.Eof
        do
        begin
          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
5 J7 R' L, F  r+ D7 w" ~; h          strcode:=strlinban+strxiaoban;
$ C+ B& h! K) K. B$ x          adoqs.SQL.Clear ;
9 I# N9 [% R, B; Q$ D$ @; I% h  P( N- P5 x          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
6 D: N2 m: {9 b; C* q& Z          adoqs.Prepared ;
          try
* n+ w% t( e0 G' U          adoqs.Open ;
          adoqxiaoban.Next ;
          except
# b. R9 P5 _5 G, u          showmessage('出错！');
8 p4 U- }' J, m          exit;
          end;
        end;
        adoqlinban.Next ;
    end;
; m* q- b" l2 H5 }4 b6 i2 C/ S1 R7 s    adoqzuoyequ.Next;
! V5 w  ?2 Z8 k: U  end;
    adoqyinglinqu.Next ;
* R: c7 ~+ m- n- gend;
  adoqlinchang.Close ;
" a! g9 B% X% A  adoqyinglinqu.Close ;
2 G6 h( {$ h5 J$ p  adoqzuoyequ.Close ;
; N6 Q: k5 d) B! u1 `0 Z, L  adoqlinban.Close ;
  adoqxiaoban.Close ;
  adoqs.Close ;
! q2 ]  o1 \2 r  ?6 H8 Cend;</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
$ G( q# F/ s% `9 V  str1,str2:string;
begin
str1:='001';
str2:='002';
4 u6 T9 g$ V$ l9 U$ z) }adoquery1.Close ;
adoquery1.SQL.Clear ;
. {) f$ ?; }- v9 R  Ladoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
/ M( [/ p7 W' P4 Fadoquery1.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>