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

penguin

project project2.exe raised exception class eoleexception with message ''在此上下文中不允许使用''c1999001999001999001999001''。此处只允许使用常量、表达式或变量。不允许使用列名。''.process stopped.use step or run to continue.
     
" M% D4 F& x7 T7 H: f% G2 O6 b1 L     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;
' B4 S2 w2 ~% C     adoqs.SQL.Clear ;
     adoqs.SQL.Add(''insert into test1 values(''+strcodexiao+'',''+strcode+'')'');
     adoqs.Prepared ;
     try
! Y% ]# }8 }0 u- ]( P; I/ Y/ J     adoqs.Open ;
     adoqxiaoban.Next ;
1 Z4 v: O8 O+ z8 m0 C# ~     except
# b- m+ h6 Q. E$ {5 {     showmessage(''出错！'');
     exit;
1 ]+ U  K+ K2 R/ o4 V3 H5 w- n1 V     end;
( W% X3 C# F2 e1 \, U* O- g     end;
     adoqlinban.Next ;
8 u, W* D2 t/ _' P     
# I5 `+ |& D+ c! X4 B3 g     这是其中的一段代码 好像出错的就是在这 在adoxiaoban.next那 哪位大虾帮帮忙 很急了

ilikenba

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

penguin

<>好的 我给你全部的代码吧</P><>unit Unit1;</P><>interface</P><>uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 }' K+ V% B) ^( z- y6 q  G6 H' N  Dialogs, StdCtrls, DB, ADODB;</P><>type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
7 }2 T" S! U* O. B; {; |: E( V7 {    ADOConnection1: TADOConnection;
    ADOQlinchang: TADOQuery;
; m8 o* R" ~1 {# ^    ADOQyinglinqu: TADOQuery;
    ADOQzuoyequ: TADOQuery;
8 v  W, N$ E, Q% M: `: D  t$ Y; v9 W    ADOQlinban: TADOQuery;
    ADOQxiaoban: TADOQuery;
3 M. j3 T0 h) s, _    ADOQs: TADOQuery;
1 g5 p. D. y+ J8 {+ [7 Q: f    procedure Button1Click(Sender: TObject);
$ }, t6 }" \& x1 q3 O  private
    { Private declarations }
  public
, D* K8 r3 d+ @- ?    { Public declarations }
4 m& H6 k, N0 ~, T0 ~  end;</P><>var
  q2 x+ |/ r5 k) k1 W: F  Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button1Click(Sender: TObject);
4 \$ [3 B& r0 B7 {  avar
: G7 M+ L# `! _: \strlinchang,stryinglinqu,strzuoyequ,strlinban,strxiaoban,strcodezuo,strcodeying,strcodelin,strcodexiao,strcode:string;
" K, n; h9 c% ]& v. x' bbegin
adoqlinchang.Close ;
$ l2 f7 S( P) x, A/ h7 L* Yadoqyinglinqu.Close ;
adoqzuoyequ.Close ;
* Y( Z" [, Q2 u) w1 Radoqlinban.Close ;
/ O+ ?' b( U* p+ n8 s) u2 l7 hadoqxiaoban.Close ;
; ]) ?4 F) ]- T, [$ z; \# d" T$ Uadoqs.Close ;
' U, r- N5 ~7 g# e3 I( I* Kadoqlinchang.SQL.Clear ;
adoqlinchang.SQL.Add('select areacode from tfsareacode where areaname=:linc');
5 f! Q+ f3 S4 hadoqlinchang.Parameters.ParamByName('linc').Value :=edit1.Text ;
adoqlinchang.Prepared ;
adoqlinchang.Open ;
strlinchang:=trim(adoqlinchang.Fields.fieldbyname('areacode').AsString );
adoqyinglinqu.SQL.Clear ;
adoqyinglinqu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linc');
3 Q- |  Z' @; A, w4 m0 Eadoqyinglinqu.Parameters.ParamByName('linc').Value :=edit1.Text ;
, W! {+ F/ K  z& Jadoqyinglinqu.Prepared ;
8 `* }- G: p7 Tadoqyinglinqu.Open ;
while not adoqyinglinqu.Eof
" o7 l  _6 O( |# k. q6 a6 H4 mdo
begin
  stryinglinqu:=trim(adoqyinglinqu.Fields.fieldbyname('areacode').AsString );
# M* k8 G4 P  P: Q  strcodeying:=strlinchang+'999'+stryinglinqu;
  ADOQZuoYeQu.SQL.Clear;
  ADOQZuoYeQu.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:yinglq');
8 o5 t9 e/ w- N: B% |  M& v9 ^& G  ADOQZuoYeQu.Parameters.ParamByName('yinglq').Value:=ADOQYingLinQu.Fields.fieldbyname('areaname').Value ;
9 @( A7 w5 b9 ]  ADOQZuoYeQu.Prepared;
4 b3 m  |8 e% p7 s7 b  ADOQZuoYeQu.Open ;
  while not adoqzuoyequ.Eof
  do
7 X+ e! F7 I' w+ B$ N/ t  begin
; h8 S' ~3 q4 Z# t3 ?) r* T    strZuoyequ:=ADOQZuoYeQu.Fields.fieldbyname('areacode').AsString ;       <a>file://逐</A>个作业区的代码
    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;
; f, S3 f8 G$ n0 A+ j9 K    ADOQlinBan.Open;
    while not adoqlinban.Eof
" a( T7 {& N" h) J$ ~    do
6 ?2 _9 U- G9 Q8 m- Z. V    begin
/ S" K; o" Y# S' P      strlinban:=trim(adoqlinban.Fields.fieldbyname('areacode').AsString );
/ f4 N$ Q  X: R+ V2 F- Z. W      strcodelin:=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban;
      adoqxiaoban.SQL.Clear ;
      adoqxiaoban.SQL.Add('select areaname,areacode from tfsareacode where fatherarea=:linb');
4 a. L6 v! r$ Y- K6 n; c0 x% b8 u      adoqxiaoban.Parameters.ParamByName('linb').Value :=adoqlinban.Fields.fieldbyname('areaname').Value ;
      adoqxiaoban.Prepared ;
4 s& Y5 L# M$ h      adoqxiaoban.Open ;
        while not adoqxiaoban.Eof
        do
" G; W( h  _$ |& d$ C        begin
          strxiaoban:=trim(adoqxiaoban.Fields.fieldbyname('areacode').AsString );
          strcodexia=strlinchang+'999'+stryinglinqu+'999'+strzuoyequ+'999'+strlinban+'999'+strxiaoban;
' E/ ]6 W: T7 L+ j  i" _$ Z( w" Z  f          strcode:=strlinban+strxiaoban;
          adoqs.SQL.Clear ;
          adoqs.SQL.Add('insert into test1 values('+strcodexiao+','+strcode+')');
          adoqs.Prepared ;
          try
          adoqs.Open ;
5 L& n; |' z( D8 [8 K          adoqxiaoban.Next ;
          except
          showmessage('出错！');
          exit;
          end;
        end;
% a5 Q. I  y8 |4 ^        adoqlinban.Next ;
    end;
; s1 A2 a+ x0 K8 n1 T    adoqzuoyequ.Next;
  end;
5 z, X7 F: ^8 g# t* x1 P7 t! i    adoqyinglinqu.Next ;
1 ]' M% W! s. k  fend;
! z* ], W* v1 F5 g2 ^2 `! O" Q  adoqlinchang.Close ;
  adoqyinglinqu.Close ;
  adoqzuoyequ.Close ;
0 A  V2 w* S9 A- {) p) g  adoqlinban.Close ;
  adoqxiaoban.Close ;
  adoqs.Close ;
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);
  `0 `! ?: o$ U/ C" H9 X; V$ Rvar
) G4 L2 b0 H9 A; R  str1,str2:string;
begin
str1:='001';
) y+ r" I" n; E9 lstr2:='002';
adoquery1.Close ;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('insert into test1 values('+str1+','+str2+')');
% z; ]5 E# u: [: t2 _% sadoquery1.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>