存储过程:
CREATE PROCEDURE CK_RuRepotrt
@GetWhere varchar(255)
AS
SELECT tblJinCang.JC_ID,tblJC_item.wupinID,wupinName,wupinNo,JCi_Date,JCI_Num,JCI_money,gongyingID,TYPE
FROM tblJinCang
INNER JOIN (tblJC_Item INNER JOIN tblITemSet ON tblJC_ITem.wupinID=tblitemset.wupinID)
ON tblJC_Item.jc_ID=tblJinCang.JC_id +
@GetWhere ORDER BY wupinNO
RETURN
GO
VB调用:
Private Sub mLoadtoPrintlsv()
On Error GoTo mErr
Dim mRst As New ADODB.Recordset
Dim mCmd As New ADODB.Command
Dim mPrim As New ADODB.Parameter mPrim.Type = adVarChar
mPrim.Value = mGetWhere 'mGetWHERE="" mPrim.Size = 255
mPrim.Direction = adParamInput
mCmd.CommandText = "CK_RuRepotrt"
mCmd.CommandType = adCmdStoredProc
mCmd.Parameters.Append mPrim
mCmd.ActiveConnection = mConnectString
出错:提示将VarChat转换成数据类型numeric是后发生算术益出错误
Set mRst = mCmd.Execute"
CREATE PROCEDURE CK_RuRepotrt
@GetWhere varchar(255)
AS
SELECT tblJinCang.JC_ID,tblJC_item.wupinID,wupinName,wupinNo,JCi_Date,JCI_Num,JCI_money,gongyingID,TYPE
FROM tblJinCang
INNER JOIN (tblJC_Item INNER JOIN tblITemSet ON tblJC_ITem.wupinID=tblitemset.wupinID)
ON tblJC_Item.jc_ID=tblJinCang.JC_id +
@GetWhere ORDER BY wupinNO
RETURN
GO
VB调用:
Private Sub mLoadtoPrintlsv()
On Error GoTo mErr
Dim mRst As New ADODB.Recordset
Dim mCmd As New ADODB.Command
Dim mPrim As New ADODB.Parameter mPrim.Type = adVarChar
mPrim.Value = mGetWhere 'mGetWHERE="" mPrim.Size = 255
mPrim.Direction = adParamInput
mCmd.CommandText = "CK_RuRepotrt"
mCmd.CommandType = adCmdStoredProc
mCmd.Parameters.Append mPrim
mCmd.ActiveConnection = mConnectString
出错:提示将VarChat转换成数据类型numeric是后发生算术益出错误
Set mRst = mCmd.Execute"
解决方案 »
- VB水晶报表里如何给text赋值呢
- 问个送分问题~
- 显示、打印上下标问题?
- 请问如何用image或picturebox控件完整显示象素比较大的图片啊?
- 如何用SetWindowPos函数设置当前窗体在窗口清单的底部?(在线等待,急)
- 关于ADO数据控件
- vsFlexGrid 向绑定的数据库插入网格信息
- 请问各位大虾,如果多个程序员共同开发一个项目,
- 哪位好人能给我提供一份SENDMESSAGE的API常数列表,带中文说明。谢谢了。收到给100分。
- 气死各位高手的问题。关于ActiveX DLL中写入文本文件的问题。
- vb3.0与vb6.0的API是不是一样的,
- 谁有InstallShield6.22的MDAC2.7组件?
CREATE PROCEDURE CK_RuRepotrt
@GetWhere varchar(255)
AS
declare @sql varchar(2000)
set @sql='
SELECT tblJinCang.JC_ID,tblJC_item.wupinID,wupinName,wupinNo,JCi_Date,JCI_Num,JCI_money,gongyingID,TYPE
FROM tblJinCang
INNER JOIN (tblJC_Item INNER JOIN tblITemSet ON tblJC_ITem.wupinID=tblitemset.wupinID)
ON tblJC_Item.jc_ID=tblJinCang.JC_id '+
@GetWhere+' ORDER BY wupinNO'
GO
CREATE PROCEDURE CK_RuRepotrt
@GetWhere varchar(255)
AS
declare @sql varchar(2000)
set @sql='
SELECT tblJinCang.JC_ID,tblJC_item.wupinID,wupinName,wupinNo,JCi_Date,JCI_Num,JCI_money,gongyingID,TYPE
FROM tblJinCang
INNER JOIN (tblJC_Item INNER JOIN tblITemSet ON tblJC_ITem.wupinID=tblitemset.wupinID)
ON tblJC_Item.jc_ID=tblJinCang.JC_id '+
@GetWhere+' ORDER BY wupinNO'
exec(@sql)
GO
你怎么能将一个字符类型和一个数字类型相加呢?
必须将你的参数类型改变成数字类型,或者做一下转换(必须保证能转换,而且不溢出)