参数没定义
tquery1.params.createparam
tquery1.params.createparam
解决方案 »
- Inno Setup制作安装包问题
- 做一个服务,怎么获取服务里的接口,调用服务里面的方法
- 我在用TCP做一个类似于QQ的东东,请问如何从数据库读取好友分组和好友数据显示出来,这种树状结构最好用什么来处理,因为我还要添加删除分组等,组还要显示好友!
- 关于dxdbgrid选择checkcolumn类型数据之后无法选择的问题.100分.
- 求助!!
- 医院为了防止病人根据药方去其他药方开药的程序设计
- ADO连接MYSQL的问题。
- 用DBGRID显示的数据,需要选取某些行进行打印,怎样实现呢?
- delphi+sqlserver:客户端连接不上数据库的问题
- ************消息框的小问题!!!!!!!!!!****************
- 有没有办法可以缩短主窗口弹出的时间
- DELPHI中的BUG
var sql_str:string;
begin
sql_str:='select * from table1 where birthday=:this_birthday';
tquery1.close;
tquery1.sql.clear;
tquery1.sql.add(sql_str);
tquery1.paramsbyname('this_birthday').asdatetime:=随便一个日期;
//tquery1.open;
end;
上面的例子只是我随便写的,我想自己还不至于苯到要去写这么罗嗦的程序 ^-^
This example fills in the parameters of a query from the entries of a list box.var I: Integer;
ListItem: string;
begin
for I := 0 to Query1.ParamCount - 1 do
begin
ListItem := ListBox1.Items[I];
case Query1.Params[I].DataType of
ftString:
Query1.Params[I].AsString := ListItem;
ftSmallInt:
Query1.Params[I].AsSmallInt := StrToIntDef(ListItem, 0);
ftInteger:
Query1.Params[I].AsInteger := StrToIntDef(ListItem, 0);
ftWord:
Query1.Params[I].AsWord := StrToIntDef(ListItem, 0); ftBoolean:
begin
if ListItem = 'True' then
Query1.Params[I].AsBoolean := True
else
Query1.Params[I].AsBoolean := False;
end;
ftFloat:
Query1.Params[I].AsFloat := StrToFloat(ListItem);
ftCurrency:
Query1.Params[I].AsCurrency := StrToFloat(ListItem);
ftBCD:
Query1.Params[I].AsBCD := StrToCurr(ListItem);
ftDate: Query1.Params[I].AsDate := StrToDate(ListItem);
ftTime:
Query1.Params[I].AsTime := StrToTime(ListItem);
ftDateTime:
Query1.Params[I].AsDateTime := StrToDateTime(ListItem);
end;
end;
end;上面的例子在给PARAMS[I]指定类型以前就已经通过 Query1.Params[I].DataType 得到了该PARAM的类型了,我就是看了该帮助的才联想到也许不用很麻烦的就可以在给一个字段付值时候,动态判断其字段类型的(原先打算用的方法是,写个函数返回表结构中查找到该字段的类型,再做决定)。上面的例子正确吗?
Param是Input的,所以类型是你自己可以决定的。而Field是Output的,那么类型你就无权决定。
---我想通过PARAMS[I]的DATATYE 测到表中对应字段的类型,再动态的为为该PARAM[I]指定类型ADO空间既然可以作到这一点(ADO 所有只需:PARMS[I].VALUE()就行了 ),那么它就应该有这样的动态判断及赋予指定字段类型的能力。
客户选择的字段是float型的则:显示floatEdit1控件(我自己改装的控件)给客户输入参数值。......很感谢chechy的回复,加分拉.thanks