[求助] 关于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
     begin
; [% W% S5 V; {7 i3 M     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
7 n1 B8 S6 M0 @  T: x8 A8 D1 f3 o     strcode:=strlinban+strxiaoban;
     adoqs.SQL.Clear ;
     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
$ V% y/ y( q+ h2 C) K& j     adoqs.Prepared ;
     try
     adoqs.Open ;
     adoqxiaoban.Next ;
     except
     showmessage(''出错！'');
- R" T( E% N$ w, n     exit;
     end;
     end;
- h) Q7 T' A) p" _% u" N" K, X     adoqlinban.Next ;
" {, T$ ?4 E4 [3 ]     
$ k5 \% \  g# v2 q     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

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

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
6 ]6 L$ S" _$ L* V. P  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
) U+ c4 `1 B2 ~) H9 B8 O# D2 B  Dialogs, StdCtrls, DB, ADODB;</P><>type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
% ^1 K9 s5 `% v8 U( }% j2 U* G8 V    ADOConnection1: TADOConnection;
    ADOQlinchang: TADOQuery;
    ADOQyinglinqu: TADOQuery;
2 ]5 F- p0 L6 f3 T    ADOQzuoyequ: TADOQuery;
) |6 X  b0 d! m2 p9 q, }( W    ADOQlinban: TADOQuery;
. [/ d  e8 |1 O- \    ADOQxiaoban: TADOQuery;
    ADOQs: TADOQuery;
. S* t2 i) I% }* C! B8 B    procedure Button1Click(Sender: TObject);
7 G3 g( Z/ I; {  private
7 M" C; j  P- _8 x+ E    { Private declarations }
  public
    { Public declarations }
  end;</P><>var
% [. I# i. G. t* r9 H* r  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;
: K, t' y  {! A, lbegin
& D; g% j4 z0 U, k' cadoqlinchang.Close ;
adoqyinglinqu.Close ;
adoqzuoyequ.Close ;
5 a; Y  I$ r# Z" yadoqlinban.Close ;
. C4 d7 U3 A- H' r( \; vadoqxiaoban.Close ;
) E4 z9 x: V/ P8 o' l3 ~; padoqs.Close ;
adoqlinchang.SQL.Clear ;
& @$ r" W* l# F8 H- W% @adoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
adoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqlinchang.Prepared ;
adoqlinchang.Open ;
4 ]  c: e0 f# M# x% O/ g  Estrlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
adoqyinglinqu.SQL.Clear ;
adoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
7 z5 J4 J; A2 {* y- C$ A- b( Badoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
3 w' s- L% [% Sadoqyinglinqu.Prepared ;
5 i% r2 K3 V; n: Sadoqyinglinqu.Open ;
while not adoqyinglinqu.Eof
8 [$ E1 N" O7 J" ]% q* t' Tdo
, A# t# k: S8 a9 ]6 \* L0 Jbegin
+ o% ?( D3 m3 }) i3 V8 Y/ ^8 O* I: g  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
' a! W' w9 {. R  strcodeying:=strlinchang+'999'+stryinglinqu;
' L8 D8 n: c( u: |5 A# v( G# @' ~3 s  ADOQZuoYeQu.SQL.Clear;
  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
0 F. Z- u' h: F6 {* [  ADOQZuoYeQu.Prepared;
+ D, O- s+ ?+ r6 V$ |  ADOQZuoYeQu.Open ;
) ]+ v3 s8 D  k: S9 p2 w' S  while not adoqzuoyequ.Eof
  do
" k9 b; o2 t# X: O' z2 s* d  begin
    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
    strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;
! M! q7 M* t) E. u# ~4 p    ADOQLinBan.SQL.Clear;
- a* f5 ^% N" w& K/ @1 O    ADOQLinBan.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:Zuoyq');
) G, v1 j3 K9 }1 t+ }$ I! @2 q4 K    ADOQLinBan.Parameters.ParamByName('Zuoyq').Value :=ADOQZuoYeQu.Fields.fieldbyname('areaname').Value ;
( u8 s: k, P" ^/ o    ADOQLinBan.Prepared;
# F: I* b, W! K8 Q% ^* ~: d" o% H    ADOQlinBan.Open;
6 I7 ~4 m3 V2 t+ V8 c    while not adoqlinban.Eof
7 N, {; Y; b( M  |9 l2 b    do
% J1 ]$ h) f. @5 j! _4 y; _    begin
7 [: d; S! N2 x) \: J+ O2 V7 l9 f# N      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
- v1 c& n( B* E      adoqxiaoban.SQL.Clear ;
      adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
      adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
6 t4 p0 n5 F5 `- \      adoqxiaoban.Prepared ;
      adoqxiaoban.Open ;
  |8 f6 ]8 Y1 @' H        while not adoqxiaoban.Eof
' L" E2 {# t" M( I        do
+ D6 [1 D+ p9 F0 C        begin
/ g5 K( l9 h% D" b3 b          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
. u! ~! w8 o3 J" c' o          strcode:=strlinban+strxiaoban;
          adoqs.SQL.Clear ;
- g/ D2 S) e( K, ]9 @2 V, b          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
9 l1 o3 ?3 l  k" [0 f1 n          adoqs.Prepared ;
% h! ?/ A6 |0 ?: H, u. o4 l          try
          adoqs.Open ;
          adoqxiaoban.Next ;
          except
% G( x3 G/ ]% P/ N4 J. ?# y0 [          showmessage('出错！');
3 ?" p) L3 f( H0 o. N1 [7 c          exit;
          end;
3 I6 z& e/ ]2 z! g# N0 X( R5 ?        end;
  p8 g9 r  D: e        adoqlinban.Next ;
9 ?8 `% @. f9 G# K& Y8 b    end;
    adoqzuoyequ.Next;
  end;
    adoqyinglinqu.Next ;
end;
' w, R% _; ^, V4 Z# K  adoqlinchang.Close ;
  adoqyinglinqu.Close ;
  adoqzuoyequ.Close ;
  adoqlinban.Close ;
  adoqxiaoban.Close ;
5 S/ V9 e7 E. F2 u8 [) W% ?  adoqs.Close ;
5 u" f! e8 q) @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;
' _: T4 N% t; E' n2 z( j: n, Cbegin
str1:='001';
str2:='002';
8 T" Q, {% c5 p' N7 a6 h6 g6 n) a2 tadoquery1.Close ;
3 \+ ]' V+ C& Q$ n2 [5 c( madoquery1.SQL.Clear ;
/ P! C5 k, n* W; M4 w* |9 `adoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
adoquery1.Prepared ;
adoquery1.ExecSQL ;
1 D: N! K+ o8 U6 d! M2 tend;</P><>我觉得我的程序没有错呀 </P><>还有 varchar 和 char 有什么区别亚</P><>万分感谢！！！ </P>[em07][em01][em01][em01]

ilikenba

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