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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
     
+ z0 g$ {4 h+ W# |3 x' l/ z     while not adoqxiaoban.Eof
, Z" G- o0 y( \" c3 j% M) V7 p2 c     do
     begin
     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
- y7 E* h7 {6 }/ N     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
     strcode:=strlinban+strxiaoban;
, H2 c( s' |( w/ A5 j7 F+ |     adoqs.SQL.Clear ;
5 c, ^* {" x+ P: g  F3 y     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
     adoqs.Prepared ;
     try
7 T: @/ O! T8 h. S7 _" `9 _     adoqs.Open ;
8 c* \& ~9 e7 i# Y+ w     adoqxiaoban.Next ;
& i( C4 N3 b" m+ Y     except
# q; e" N; z4 g3 q% p7 I     showmessage(''出错！'');
     exit;
     end;
     end;
+ _) `4 K  |4 G7 }     adoqlinban.Next ;
     
9 V+ m2 ]( a9 S# X     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

<>我估计是这句的问题adoqs.Open ;
) X; t$ F- v1 _; M% `6 G你先检查一下SQL语句对不对，我这里好多变量不知道，没有办法帮你调试！</P>

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;</P><>type
  TForm1 = class(TForm)
    Edit1: TEdit;
! w! L9 s. T6 R5 {" k    Button1: TButton;
    ADOConnection1: TADOConnection;
1 e/ O% i  Z( W( k9 B/ Q) e% L! T    ADOQlinchang: TADOQuery;
' w3 j5 {6 e0 ?! m7 z2 U. l5 M3 K0 F: I    ADOQyinglinqu: TADOQuery;
- i! d+ K& G. H& W    ADOQzuoyequ: TADOQuery;
+ F- ^$ _0 S% p) M  e6 j    ADOQlinban: TADOQuery;
; X3 i2 i% E. T% [+ p& |/ Q    ADOQxiaoban: TADOQuery;
    ADOQs: TADOQuery;
+ ]% Y$ t: \  R$ A5 H7 e& Y    procedure Button1Click(Sender: TObject);
  f) K0 [  Y! @$ _/ w, s; h/ T  private
/ {; p; {8 x' m7 Z  J" O    { Private declarations }
  public
3 a/ _" B4 j% `* C$ U: ?    { Public declarations }
& E) y) O# U3 w& K- c4 N2 i1 k0 f0 ~  end;</P><>var
, n6 E! d5 Z8 e0 d2 f/ d  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
, n0 |1 [4 U0 }  F" dvar
2 |+ A; ]% Y) Vstrlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
+ o, K; K; Y7 F  I9 Kbegin
6 f3 N  b) }/ B& Badoqlinchang.Close ;
adoqyinglinqu.Close ;
adoqzuoyequ.Close ;
adoqlinban.Close ;
  R2 B5 Y( B  p; I: H. R5 cadoqxiaoban.Close ;
adoqs.Close ;
9 Y% X. C. A1 t% P4 _" i7 y6 Madoqlinchang.SQL.Clear ;
adoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
adoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqlinchang.Prepared ;
adoqlinchang.Open ;
strlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
, O, {) S' N" Jadoqyinglinqu.SQL.Clear ;
$ Q6 \& T1 x1 J2 `3 R, O" X" ]& qadoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
9 Q) p! _) h  n7 V5 j2 f2 Vadoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
4 s. j5 p8 p9 tadoqyinglinqu.Prepared ;
adoqyinglinqu.Open ;
while not adoqyinglinqu.Eof
do
begin
# t: |5 `6 Y' B) M7 J  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');
( a$ w; H+ V, `# B  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
  ADOQZuoYeQu.Prepared;
7 N4 a) B* ?9 _: E" ~  ADOQZuoYeQu.Open ;
  while not adoqzuoyequ.Eof
+ C* P+ x" |1 H  do
3 k3 Q" x; v4 h: @+ p3 a, Z# k6 q  begin
* S& q9 l7 O1 G; V. J7 f9 X. y    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
3 M5 b7 ?* s) C2 {. M# w    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 ;
    ADOQLinBan.Prepared;
    ADOQlinBan.Open;
    while not adoqlinban.Eof
    do
    begin
5 n( H  S- [- z/ K# J7 n      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
      adoqxiaoban.SQL.Clear ;
  i( j3 u" p. C; C      adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
6 D2 V# T# `+ h6 D! t" E      adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
      adoqxiaoban.Prepared ;
      adoqxiaoban.Open ;
& V8 A( P0 t& f- ?        while not adoqxiaoban.Eof
+ Q) S& ]2 m  f* g# b' D; K        do
        begin
          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
9 H4 N+ J1 j+ c/ q          strcode:=strlinban+strxiaoban;
          adoqs.SQL.Clear ;
          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
          adoqs.Prepared ;
: R& o3 S4 q4 z6 r7 O          try
* E2 |2 K0 [9 z2 h/ ?# X# u          adoqs.Open ;
1 \6 E9 c+ u2 {9 K8 m, g* ^9 p          adoqxiaoban.Next ;
          except
' f% ^3 v/ Z4 Z. A+ W! n6 l          showmessage('出错！');
" z1 N/ ]% c; {1 _9 v" B          exit;
          end;
4 t( v: t2 o+ ~        end;
$ C4 j$ K: L( K        adoqlinban.Next ;
    end;
    adoqzuoyequ.Next;
  end;
* e. S0 Z6 @2 {# N3 Q5 j' q  w) Y' L    adoqyinglinqu.Next ;
end;
  adoqlinchang.Close ;
  adoqyinglinqu.Close ;
  adoqzuoyequ.Close ;
: m; r" C& C9 s! u" u" x) S1 h  adoqlinban.Close ;
  adoqxiaoban.Close ;
  adoqs.Close ;
( c4 T% J8 @% f, n4 J( W# zend;</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);
. U) ?8 `2 A" l4 _( ]3 f6 ~var
6 i1 S! c8 Y2 U, c  b8 o  str1,str2:string;
begin
" G  ^2 W: y3 ^- U" U( |0 _; Wstr1:='001';
str2:='002';
2 q1 B) P4 p* Vadoquery1.Close ;
adoquery1.SQL.Clear ;
9 U3 c7 {9 y  P1 `' g, ?adoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
% V) w: s' g* J4 U- A0 \adoquery1.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>