SqlQuery.FieldByName().AsString的问题

lining251 2009-10-20 09:34:21

FieldByName()函数的参数如果是这样'1000号服务员'，程序运行的时候就报错。
因为我的表中有一列的列名是'1000号服务员'，我想去取这列的值的时候就报错，但是其他列就没问题，因为其他列的列名都是汉字或者拼音开头，只有这一列是以数字开头，请问这个问题怎么解决啊。

...全文

508 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

lining251 2009-10-20

打赏
举报

[Quote=引用 9 楼 snguobin 的回复:]
那就改成：'[1000号服务员]' ，很明显这是个不规则的变量命名，有时候系统可以认，但是不规范
你用sql 语句直接执行查询都查不出来吧？

唉！
[/Quote]

在select的时候，将列名加上“[]”，在fieldbyname的时候不能加“[]”，这样问题就解决了。我刚调试出来了，不过还是谢谢你，就你说的靠谱。

lining251 2009-10-20

打赏
举报

[Quote=引用 10 楼 snguobin 的回复:]
现在的程序员，让人无语，这是基础啊！
一般变量名都是以字符或_ 开通的字符等的组合。
[/Quote]

大哥，这个列名是人家规定的，不是我取的。不清楚情况就不要乱说。

风之谷 2009-10-20

打赏
举报

是不是字段有了别名你跟踪下把SQL调出来，然后到查询分析器里看，查出来的字段如何表示的

snguobin 2009-10-20

打赏
举报

现在的程序员，让人无语，这是基础啊！
一般变量名都是以字符或_ 开通的字符等的组合。

snguobin 2009-10-20

打赏
举报

那就改成：'[1000号服务员]' ，很明显这是个不规则的变量命名，有时候系统可以认，但是不规范
你用sql 语句直接执行查询都查不出来吧？

唉！

lining251 2009-10-20

打赏
举报

我查了一下我的表，表中明明第一列就是“1000号服务员”啊，为什么会说找不到这个字段呢。
没人能解答吗？

lining251 2009-10-20

打赏
举报

ColumnValue:=SqlQuery.FieldByName(ColumnNameArray[SheetNumber,ColumnNumber]).AsString;
程序走到这报错的，说找不到这个“1000号服务员”字段。

lining251 2009-10-20

打赏
举报

[Quote=引用 5 楼 snguobin 的回复:]
老大，你不会调试吗？ F5是设置断点，F8是逐行执行，F7是进入函数！
这么简单的问题。

自己动手解决！ 5分钟内必须搞定！^_^！

(先确认，数据库字段的值是否有问题，有不能转换为string的值。）
[/Quote]
问题已经定位到这了，别的中文的列名都没有问题，就这个以数字开头的列名出错。

snguobin 2009-10-20

打赏
举报

老大，你不会调试吗？ F5是设置断点，F8是逐行执行，F7是进入函数！
这么简单的问题。

自己动手解决！ 5分钟内必须搞定！^_^！

(先确认，数据库字段的值是否有问题，有不能转换为string的值。）

lining251 2009-10-20

打赏
举报

Var
InsertSqlStr:String;
TypeName:String;
ColumnValue:String;
i:Integer;
SqlQuery:TADOQuery;
Begin
SqlQuery:=TADOQuery.Create(nil);
SqlQuery.ConnectionString:='Provider=SQLOLEDB.1;Password='+Form_Quter.Edit_Password.Text
+';Persist Security Info=True;User ID='+Form_Quter.Edit_UserName.Text
+';Initial Catalog='+Form_Quter.Edit_DataBaseName.Text
+';Data Source='+Form_Quter.Edit_ServerName.Text;
GetTypeName(SqlQuery,TempTableName,SheetNumber);
i:=0;
while (TypeNameArray[i]<>'') do
Begin
SetColumnName();
TypeName:=TypeNameArray[i];
SqlQuery.Close;
SqlQuery.SQL.Clear;
SqlQuery.SQL.Add('select '+ColumnNameArray[SheetNumber,ColumnNumber]+' from '+TempTableName+' where '+SheetTypeColumnNameArray[SheetNumber]+'='+''''+TypeName+'''');
SqlQuery.Open;
while not SqlQuery.Eof do
Begin
ColumnValue:=SqlQuery.FieldByName(ColumnNameArray[SheetNumber,ColumnNumber]).AsString;
if ColumnValue='' then ColumnValue:='0';
SqlQuery.Next;
End;
i:=i+1;
End;
SqlQuery.Free;

这是我的代码。

火龙岛主 2009-10-20

打赏
举报

你怎么写的？代码贴上来！

火龙岛主 2009-10-20

打赏
举报

我的没问题啊？

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, DB, ADODB;



type

  TForm1 = class(TForm)

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin

  showmessage(ADOTable1.FieldByName('100服务员').AsString);

end;



end.