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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
; U  |, f# X% t$ F     
     while not adoqxiaoban.Eof
     do
' S# E+ v! k  z: e     begin
     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
5 }6 G: y: \9 c7 R& M2 l# y     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
     strcode:=strlinban+strxiaoban;
; T" `( D' E; K; t$ E; ^     adoqs.SQL.Clear ;
. B* E% A) b" k, Z. l. R     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
     adoqs.Prepared ;
     try
     adoqs.Open ;
     adoqxiaoban.Next ;
     except
     showmessage(''出错！'');
  x- W9 h" U: ?' \' x     exit;
     end;
' U; [& ^5 F# p( b     end;
     adoqlinban.Next ;
+ ^: Z2 q' W. P# O- ~  Y     
     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

<>我估计是这句的问题adoqs.Open ;
/ C6 n2 \& y  A/ g' |, e, s你先检查一下SQL语句对不对，我这里好多变量不知道，没有办法帮你调试！</P>

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
  y- o/ `" ^  R3 y5 o% ]' ?# r& Z: N  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;</P><>type
( ~" E7 T4 x8 J% T, `! `3 S  TForm1 = class(TForm)
  P& A- k. B0 @' g, P$ m    Edit1: TEdit;
    Button1: TButton;
) I0 ?( o9 J3 i  Z    ADOConnection1: TADOConnection;
; c! z) n2 m$ l1 b# T    ADOQlinchang: TADOQuery;
! s$ L3 w& A4 c5 v/ m7 G    ADOQyinglinqu: TADOQuery;
    ADOQzuoyequ: TADOQuery;
    ADOQlinban: TADOQuery;
    ADOQxiaoban: TADOQuery;
    ADOQs: TADOQuery;
    procedure Button1Click(Sender: TObject);
  private
& a5 }, l6 w7 J    { Private declarations }
  public
6 ^0 a# u) l& O1 b    { Public declarations }
2 \  b5 m! Z2 @& {2 g# i  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;
* |) C8 X. W2 kbegin
adoqlinchang.Close ;
adoqyinglinqu.Close ;
, m# s7 R! k* y3 J" Fadoqzuoyequ.Close ;
adoqlinban.Close ;
adoqxiaoban.Close ;
adoqs.Close ;
  `$ [6 O. r/ Zadoqlinchang.SQL.Clear ;
adoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
adoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
9 h; @' Y* p# h* ~# M, l5 Wadoqlinchang.Prepared ;
3 M: b1 E* @/ \adoqlinchang.Open ;
& s% h) a. m! j/ z, C2 t3 qstrlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
adoqyinglinqu.SQL.Clear ;
" }/ d! I! J9 f0 h* [  `$ ^2 |adoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
adoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
; t! V+ ]2 Y9 Padoqyinglinqu.Prepared ;
adoqyinglinqu.Open ;
while not adoqyinglinqu.Eof
do
) \: e6 M- J2 G# K+ Obegin
  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
- _9 H$ l) J2 |1 c  strcodeying:=strlinchang+'999'+stryinglinqu;
" j2 D  R3 o' ~9 @  ADOQZuoYeQu.SQL.Clear;
$ U; t5 l5 e* Y, t3 e  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
4 U8 o5 y" N- m  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
& C2 [& E3 p) x  ADOQZuoYeQu.Prepared;
7 j0 i* n7 B' j, q4 R$ a3 P9 h4 @) F$ V  ADOQZuoYeQu.Open ;
% ]# a" _1 A0 E; K: ]  while not adoqzuoyequ.Eof
  do
0 P4 J2 `3 H# U0 C; H  begin
    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
, R4 R2 ~: ]) Y+ U" b9 u    strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;
& M& J$ e3 K. p  Q" o    ADOQLinBan.SQL.Clear;
. t* c+ `0 u: F8 k% c7 i    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
/ X3 o! {" u0 t# V' k* J) f9 u3 k    do
( O( B4 r- B3 T7 X, p+ k# f$ \    begin
  I9 y8 |2 ^' l& P' |) k: M      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
' M: N- t1 R' C& a5 M      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
      adoqxiaoban.SQL.Clear ;
      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 ;
; T$ M2 `) q. ^9 P' ^  K        while not adoqxiaoban.Eof
        do
# ?6 U1 D! d+ a9 d1 c        begin
          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
( ?- t6 Y( g" d( |% M5 E          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
          strcode:=strlinban+strxiaoban;
2 R! Y0 ]8 @! r0 o! b          adoqs.SQL.Clear ;
          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
          adoqs.Prepared ;
          try
6 R; Q/ s5 o8 ]4 w9 L/ L* A          adoqs.Open ;
7 ~( V1 \9 k0 n' W0 X          adoqxiaoban.Next ;
: P7 o4 s$ }6 o' _/ d% Y" a2 {          except
# ^* L8 g% k8 C& T: }          showmessage('出错！');
0 w. c) S! k) j$ O$ [6 O) n; y% N          exit;
+ i4 K' i2 d; [5 A4 \          end;
) W6 n/ O* g$ S' L        end;
        adoqlinban.Next ;
    end;
    adoqzuoyequ.Next;
  end;
    adoqyinglinqu.Next ;
; K8 C& S2 z* W( }* y: l$ Nend;
8 R' @* w6 K) D# k* T  adoqlinchang.Close ;
  adoqyinglinqu.Close ;
9 V: b( \! e4 Z4 `% @! O+ W* C  adoqzuoyequ.Close ;
* ?2 F: f# F6 w% n1 v8 W  adoqlinban.Close ;
  adoqxiaoban.Close ;
  adoqs.Close ;
  |6 r6 l: [; ^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
  str1,str2:string;
" @3 q$ d  c3 v0 m/ Lbegin
  B: h, O1 K% \2 `str1:='001';
8 F& T1 k! i. a4 V6 Zstr2:='002';
adoquery1.Close ;
' _" h; g  M: n6 Yadoquery1.SQL.Clear ;
. m0 b' O' i& T+ S. |adoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
- U0 _8 S( q$ j& k6 n  N$ n) aadoquery1.Prepared ;
. p9 t' `4 j% R# P& dadoquery1.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>