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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
     
     while not adoqxiaoban.Eof
: X+ c& n* c# ~. `/ I     do
7 l0 g$ i% E! |' C     begin
, n! {1 ^/ A2 {9 h6 i% J     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
* D% T7 A. G- H4 T     strcode:=strlinban+strxiaoban;
     adoqs.SQL.Clear ;
) ]; m' p1 r  b     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
     adoqs.Prepared ;
% J) g: o7 A% ^; {+ {( O     try
2 g4 F# o. C4 C/ f) b     adoqs.Open ;
     adoqxiaoban.Next ;
% v! P& z8 |- E: z/ X2 A4 Y     except
- f. i9 j' a4 X2 _) B     showmessage(''出错！'');
) m, Z1 Q6 Q9 Y5 j* i     exit;
     end;
     end;
- b4 Y0 A2 H* P: ^! G. k     adoqlinban.Next ;
* W; ]1 ?! u8 G# B& H4 W: f/ n- S     
% H' V8 Q) g$ V! p; s     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

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

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
8 [/ f0 f' E: j, f  Dialogs, StdCtrls, DB, ADODB;</P><>type
" r; N! X0 B0 m% p6 L  TForm1 = class(TForm)
    Edit1: TEdit;
4 y9 R* r: `4 |1 j. Q    Button1: TButton;
    ADOConnection1: TADOConnection;
1 \0 a" T9 H" O7 L- H    ADOQlinchang: TADOQuery;
; d( P' k( Z8 [$ R1 V5 d6 C5 ~    ADOQyinglinqu: TADOQuery;
    ADOQzuoyequ: TADOQuery;
: ~& ~$ S. z$ p# t/ I    ADOQlinban: TADOQuery;
1 {9 T8 {9 i. Q( J8 d+ O  ^    ADOQxiaoban: TADOQuery;
    ADOQs: TADOQuery;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
. {' d; Z. L" T; ^  public
    { Public declarations }
. Z3 G5 p+ n5 e9 M2 i  end;</P><>var
  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
var
# ?  u$ P% M8 |/ y+ u# Nstrlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
$ z4 [0 h* q$ Tbegin
8 t# c* Q9 U, k3 Y/ \; R1 @( hadoqlinchang.Close ;
adoqyinglinqu.Close ;
adoqzuoyequ.Close ;
& O1 T) T7 `- v: [& H: vadoqlinban.Close ;
adoqxiaoban.Close ;
adoqs.Close ;
adoqlinchang.SQL.Clear ;
adoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
adoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqlinchang.Prepared ;
adoqlinchang.Open ;
, P2 \, M# f7 f) |. n  ostrlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
- E9 t3 L; U$ y$ \adoqyinglinqu.SQL.Clear ;
adoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
" \" P6 H* S. H; e1 Cadoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
7 Z6 ~2 Y0 o8 h. x+ }adoqyinglinqu.Prepared ;
adoqyinglinqu.Open ;
1 D1 C$ }/ L* h3 |" g5 M" F$ \( g- Xwhile not adoqyinglinqu.Eof
do
3 k( Y) |# I7 L' s8 j/ T  N* [begin
  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
  strcodeying:=strlinchang+'999'+stryinglinqu;
8 a( {' s. \9 V; r/ y3 }6 E  ADOQZuoYeQu.SQL.Clear;
  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
' q& v3 I5 F7 x5 _6 y/ V  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
  ADOQZuoYeQu.Prepared;
  ADOQZuoYeQu.Open ;
5 J3 Z$ r! Q* s5 }- j& L2 F2 t* `  while not adoqzuoyequ.Eof
) ]: f) ~' O% F/ A9 A( s  do
+ g( K5 C& W! c/ m2 H7 Y  begin
    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
9 b0 ?9 t  H% x* `4 m" N    strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;
    ADOQLinBan.SQL.Clear;
. K9 g7 P& x& W# A9 S$ {    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
+ o/ G. F( N1 l    begin
      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
/ c; r& a" o  J/ s9 x      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
0 W6 b# J9 N" I; t, Z1 x      adoqxiaoban.SQL.Clear ;
      adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
8 G' `  q. a5 Z0 B- @      adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
; v6 W' `: \8 h* r5 q" m4 V      adoqxiaoban.Prepared ;
      adoqxiaoban.Open ;
        while not adoqxiaoban.Eof
, C6 q, m" f& {        do
        begin
' M5 V" T" H! L) {0 ?' [6 h          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
% l- \; ]7 S1 G; X0 E- b( q' P          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
          strcode:=strlinban+strxiaoban;
          adoqs.SQL.Clear ;
8 @0 C) U. @% B          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
. D/ A9 R# o5 u* Q. A9 O% _% p          adoqs.Prepared ;
+ g* L; T6 x# P1 m          try
          adoqs.Open ;
4 g9 i) d, ~+ P* b          adoqxiaoban.Next ;
7 t1 h5 |4 ^8 m& }6 h5 k9 c          except
5 ?: k% r. o6 I8 @" Y, N          showmessage('出错！');
' `5 S4 U9 v: i+ ?          exit;
          end;
        end;
0 v; t! b" u6 o$ d! |' X        adoqlinban.Next ;
    end;
    adoqzuoyequ.Next;
4 E: Y. F& T4 d/ ?, l/ Y  end;
    adoqyinglinqu.Next ;
" v( ]3 ]( X7 W/ I, y1 Mend;
  adoqlinchang.Close ;
' f5 a$ m. W) v* |! b% o  adoqyinglinqu.Close ;
  adoqzuoyequ.Close ;
, ~. a* J% k2 y) h+ U  adoqlinban.Close ;
  adoqxiaoban.Close ;
7 D3 S. C, o* T9 R& e4 r, a8 o8 x  adoqs.Close ;
( K# o$ P% p3 Y7 j: _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);
3 U! F% H$ Y5 O& y4 J% d. o! ~# Avar
  str1,str2:string;
begin
: r+ K! [6 w; |- k+ S- ostr1:='001';
9 z; m1 e* c+ R( i9 Mstr2:='002';
adoquery1.Close ;
' S9 k, V" H6 Y" xadoquery1.SQL.Clear ;
9 Y  V4 g! k& ~" qadoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
, z$ M4 s% \; p0 z/ u+ j4 _( [# W0 w0 Eadoquery1.Prepared ;
; |9 Q: D2 U4 y3 D( Z; h5 R0 Eadoquery1.ExecSQL ;
1 H4 w6 K- [( cend;</P><>我觉得我的程序没有错呀 </P><>还有 varchar 和 char 有什么区别亚</P><>万分感谢！！！ </P>[em07][em01][em01][em01]

ilikenba

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