请帮忙分析下面一段代码!

[topdogXP]

我在MS-SQL中有一存储过程如下:
CREATE PROCEDURE p_import
AS
Declare @tbname varchar(255)
Declare @file varchar(255)
SET ANSI_NULLS ON
SET ANSI_WARNINGS ON
Exec('select * into ' +@tbname+' from OPENROWSET('''+'MICROSOFT.JET.OLEDB.4.0'''+','+'''Excel 5.0;HDR=YES;DATABASE='+@file+''',sheet1$)')
SET ANSI_NULLS OFF
SET ANSI_WARNINGS OFF
GO

然后在按钮处理事件中加入以下代码!
begin
ADOStoredProc1.ProcedureName:='p_import;1';
ADOStoredProc1.Prepared:=true;
ADOStoredProc1.Parameters.ParamByName('@tbname').Value:=edit2.Text;
ADOStoredProc1.Parameters.ParamByName('@file').Value:=edit1.Text;
ADOStoredProc1.ExecProc;
end
运行时老是说:'@tbname'参数未找到!
另还有:在设ADOStoredProc1.ACTIVE:=TRUE时会提示:
'异类查询要求为连接设置ANSI_NULLS和ANSI_WARNIGNGS选项.这将确保一致的查询语义,请启用这些选项,然后重新发出查询.'
郁闷了很久,不知道什么原因,请各大鱼大虾指点迷津!!不胜感激!!!

[wangxt]

帮你顶

[lextm]

ADOStoredProc1.Parameters.ParamByName('@tbname').Value.AsString:=edit2.Text;
ADOStoredProc1.Parameters.ParamByName('@file').Value.AsString:=edit1.Text;

不知道是不是要这样改.

[aoeiuvcom]

试试
ADOStoredProc1.Parameters.ParamByName('tbname').Value:=edit2.Text;
ADOStoredProc1.Parameters.ParamByName('file').Value:=edit1.Text;

我没用过这种调用方式

[dujian_xian]

给ADOStoredProc1.Parameters参数传值应该去掉前面的@。
@是sql server里参数写法，但是参数的声明没有@。