这语句怎么错了,很怪！！！！

[xiangyun123]

这语句怎么错了
publicstore.ProcedureName:='Pdorminput;1';
publicstore.Parameters.CreateParameter('@identityid',ftString,pdInput,30,nil);
PublicStore.Parameters.ParamByName('@identityid').Value:=dbedit3.Text;
publicstore.Prepared:=true;
publicstore.ExecProc;
publicstore.Close;
编译时
[Error] hrdetailinput.pas(104): Undeclared identifier: 'ftString'
为什么会提示这样错误呀

[jFever]

你包含了DB这个单元吗？

[firetoucher]

1 能用ado肯定包含了db单元
2 ,ftString,pdInput,30,什么意思,应该是integer型的吧?
3 看看delphi里的CreateParameter帮助

[xiangyun123]

刚包含DB以后又出现这样的错误？？？
[Error] hrdetailinput.pas(104): Incompatible types: 'OleVariant' and 'Pointer'

[firetoucher]

把nil,改成' '

[myling]

function CreateParameter(const Name: WideString; DataType: TDataType; Direction: TParameterDirection; Size: Integer; Value: OleVariant): TParameter;


函数原型在此，呵呵

[zhksoft]

up

[ouyangzhifei]

應該這樣來吧:
publicstore.close;
publicstore.ProcedureName:='Pdorminput;1';
publicstore.Parameters.clear;
publicstore.Parameters.CreateParameter('@identityid',ftString,pdInput,30,0);
PublicStore.Parameters.ParamByName('@identityid').Value:=dbedit3.Text;
publicstore.Prepared:=true;
publicstore.ExecProc;
publicstore.Close

[exhx]

顶一下，以前也有这样的问题，后来我用静态参数了

[asdf008]

"publicstore.Parameters.CreateParameter('@identityid',ftString,pdInput,30,nil);"这句话不要，去掉

[Hank]

publicstore.ProcedureName:='Pdorminput;1';
with publicstore.Parameters.AddParameter do
begin
Name:='@identityid';
Attributes:=[paNullable];
DataType:=ftString;
Size:=30;
end;
PublicStore.Parameters.ParamByName('@identityid').Value:=dbedit3.Text;
publicstore.Prepared:=true;
publicstore.ExecProc;
publicstore.Close;