L
longchl
Unregistered / Unconfirmed
GUEST, unregistred user!
我在Delphi 7中使用ADO连接打开DBF文件,存储日期类型数据时,显示数据类型不匹配,请各位帮忙解决。
多谢!
代码:
sStr := 'Insert Into ' + sHbDbf +
'(HbCjhm,HbZqdm,HbHtxh,HbGddm,HbCjsl,HbCjjg,HbDfxw,HbDfgd,HbCjsj,HbCjrq,HbYwlb,HbCdyy,HbMark,HbBybz) Values(' +
' ''' + sHbCjhm + '''' + //成交号码
',''' + qryTemp.FieldByName('WtZqdm').AsString + '''' + //证券代码
',''' + sWtHtxh + '''' + //合同序号
',''' + qryTemp.FieldByName('WtGddm').AsString + '''' + //证券账户
',' + FloatToStr(dCjsl) + //成交数量
',' + FloatToStr(dWtWtjg) + //成交价格
',''' + '''' + //对方席位
',''' + '''' + //对方股东
',''' + FormatDateTime('HH:MM:SS',Now) + '''' + //成交时间
',''' + FormatDateTime('YYYY-MM-DD',Date) + '''' + //成交日期
',''' + qryTemp.FieldByName('WtYwlb').AsString + '''' + //业务类别
',''' + '''' + //撤单原因
',''' + '''' + //备用字段
',''' + '''' + //备用标志
')';
多谢!
代码:
sStr := 'Insert Into ' + sHbDbf +
'(HbCjhm,HbZqdm,HbHtxh,HbGddm,HbCjsl,HbCjjg,HbDfxw,HbDfgd,HbCjsj,HbCjrq,HbYwlb,HbCdyy,HbMark,HbBybz) Values(' +
' ''' + sHbCjhm + '''' + //成交号码
',''' + qryTemp.FieldByName('WtZqdm').AsString + '''' + //证券代码
',''' + sWtHtxh + '''' + //合同序号
',''' + qryTemp.FieldByName('WtGddm').AsString + '''' + //证券账户
',' + FloatToStr(dCjsl) + //成交数量
',' + FloatToStr(dWtWtjg) + //成交价格
',''' + '''' + //对方席位
',''' + '''' + //对方股东
',''' + FormatDateTime('HH:MM:SS',Now) + '''' + //成交时间
',''' + FormatDateTime('YYYY-MM-DD',Date) + '''' + //成交日期
',''' + qryTemp.FieldByName('WtYwlb').AsString + '''' + //业务类别
',''' + '''' + //撤单原因
',''' + '''' + //备用字段
',''' + '''' + //备用标志
')';