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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
% W9 `' b8 J( i5 d7 Z     
     while not adoqxiaoban.Eof
) I) A: Z6 @3 _$ J2 h  w- T     do
     begin
     strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname(''areacode'').AsString );
' ^1 ?! W# A$ q! P% S: y     strcodexia=strlinchang+''999''+stryinglinqu+''999''+strzuoyequ+''999''+strlinban+''999''+strxiaoban;
- [. x0 v5 c) K7 A' F/ @     strcode:=strlinban+strxiaoban;
     adoqs.SQL.Clear ;
     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
8 D1 L7 b# ]4 n- r, l     adoqs.Prepared ;
( A( j4 W  F: E( g     try
' |2 ]0 W) |$ W4 _5 k     adoqs.Open ;
     adoqxiaoban.Next ;
     except
     showmessage(''出错！'');
     exit;
     end;
     end;
4 X3 P! @# B  X" m  a( I0 M     adoqlinban.Next ;
     
     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

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

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
  l% n. W) `2 f; @4 Y  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;</P><>type
( {  w. D2 e) e* _; r( b) l4 T. J  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    ADOConnection1: TADOConnection;
2 x0 `. R, r1 B    ADOQlinchang: TADOQuery;
    ADOQyinglinqu: TADOQuery;
$ U/ A+ h- X1 h4 x1 m) J& d$ h    ADOQzuoyequ: TADOQuery;
    ADOQlinban: TADOQuery;
    ADOQxiaoban: TADOQuery;
) ~+ R' ]$ e! G7 `* G  w' R    ADOQs: TADOQuery;
    procedure Button1Click(Sender: TObject);
+ g9 G. `# R) U: n) H  private
' Z1 a# c& v2 u# S) I* S; y    { Private declarations }
" Y1 b" W  {9 S8 d/ P  public
: @5 L0 B% c; \' p$ C6 \' a    { Public declarations }
5 M2 c0 D# T0 {; q/ e  end;</P><>var
+ f+ Z- }2 Q  }- A. v6 ^! I4 c  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
4 W, `& {# n" ?  |! t* H% U* T0 ]var
strlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
begin
adoqlinchang.Close ;
adoqyinglinqu.Close ;
adoqzuoyequ.Close ;
+ S% c  R0 a! z5 P- gadoqlinban.Close ;
  q1 ?" `* N* z: B8 M- H6 h* Tadoqxiaoban.Close ;
) m3 |) p9 ^  S" @; Z" dadoqs.Close ;
  _. ^8 `" w: S3 y2 c4 p9 d$ Kadoqlinchang.SQL.Clear ;
adoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
) I; g$ u9 I8 b4 b: F. padoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
+ D) h- c& ?: k: P3 Y# z3 Dadoqlinchang.Prepared ;
0 ]! k3 O( \4 K# cadoqlinchang.Open ;
0 l9 I' Y0 B- {5 g* T( ]% astrlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
adoqyinglinqu.SQL.Clear ;
adoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
5 {% n2 H! F6 a% I4 Iadoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
  L0 @6 ?: w+ o) X- [% @/ L% `adoqyinglinqu.Prepared ;
adoqyinglinqu.Open ;
while not adoqyinglinqu.Eof
do
begin
* O; u" Q3 n% G  M  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
+ @2 `. ^5 g; J: S* D  strcodeying:=strlinchang+'999'+stryinglinqu;
  ADOQZuoYeQu.SQL.Clear;
  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
- b4 ?  u7 l4 Z8 U# n  ADOQZuoYeQu.Prepared;
, J' s- J) O8 B+ T  n  ADOQZuoYeQu.Open ;
  while not adoqzuoyequ.Eof
. b/ W% [: d" W8 _% n: p4 q  do
  begin
    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
; z" ~9 L7 Z( B8 l    strcodezu=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ;
    ADOQLinBan.SQL.Clear;
, o! O, e9 }2 n8 S  w    ADOQLinBan.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:Zuoyq');
    ADOQLinBan.Parameters.ParamByName('Zuoyq').Value :=ADOQZuoYeQu.Fields.fieldbyname('areaname').Value ;
+ n2 H. _! X. I' L: L    ADOQLinBan.Prepared;
    ADOQlinBan.Open;
$ ^* V7 ~) v4 i( X# \    while not adoqlinban.Eof
8 h+ u. \' q  o# M7 Y5 A: C+ E# Y7 L    do
    begin
      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
. @- Y  z( S! X! E* T" E      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
0 b1 `' z/ |# t" o* x( C      adoqxiaoban.SQL.Clear ;
) j$ {' y- G/ c% Q' B; {      adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
# r% H/ A2 ^) {( Q      adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
# P3 W+ p' c$ [      adoqxiaoban.Prepared ;
$ s0 a! S- B5 Q% w7 j! f9 ?      adoqxiaoban.Open ;
* u1 R' t  d: B  H& k- _7 o( M5 a        while not adoqxiaoban.Eof
        do
        begin
          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
          strcode:=strlinban+strxiaoban;
; G8 L% A. \* r4 {9 Y% t/ Q          adoqs.SQL.Clear ;
          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
          adoqs.Prepared ;
          try
          adoqs.Open ;
: e& m% f! ?- }+ E3 r          adoqxiaoban.Next ;
' Z9 I5 O4 F" P          except
4 e- H" p; o8 D, D          showmessage('出错！');
          exit;
          end;
        end;
        adoqlinban.Next ;
    end;
    adoqzuoyequ.Next;
8 ~# v& y+ K6 c8 |) g8 i! E& G  ]  end;
    adoqyinglinqu.Next ;
end;
  adoqlinchang.Close ;
  adoqyinglinqu.Close ;
7 a, ~! p' K  e' W5 B  adoqzuoyequ.Close ;
" l7 m/ {: v6 w  adoqlinban.Close ;
& d9 z8 B2 X8 }: l( W, b9 e  adoqxiaoban.Close ;
4 W! K6 @( v6 B4 N2 r" j  adoqs.Close ;
' J1 E, }& q8 l6 T6 L) Mend;</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);
0 r5 ]* `5 d% j& ]; b3 T; ~  \+ Mvar
  str1,str2:string;
begin
1 Y. t- {! V$ Y! F% ^4 |# n% wstr1:='001';
  l) T6 r/ S' A$ e& vstr2:='002';
8 q2 G& W6 a  D& {) X8 fadoquery1.Close ;
* @& j( E- g* a" Iadoquery1.SQL.Clear ;
; F+ x+ s- _5 R  _( R# Xadoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
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>