22,209
社区成员
发帖
与我相关
我的任务
分享
Dim Return
Dim adoComm3
Set adoComm3 = CreateObject("ADODB.Command")
With adoComm3
.ActiveConnection = Conn
.CommandType = 4
.CommandText = "View_Usedhouse2"
.Parameters.Item("@strID").Value = id
.Execute
Return=.Parameters.Item("@Return").Value
if Return=true then
zbh=.Parameters.Item("@zbh").Value
问:Return=.Parameters.Item("@Return").Value
Dim Return
Dim adoComm3
Set adoComm3 = CreateObject("ADODB.Command")
With adoComm3
.ActiveConnection = Conn
.CommandType = 4
.CommandText = "View_Usedhouse2"
.Parameters.Item("@strID").Value = id
.Execute
Return=.Parameters.Item("@Return").Value
if Return=true then
zbh=.Parameters.Item("@zbh").Value
End With
Dim Return
Dim adoComm3
Set adoComm3 = CreateObject("ADODB.Command")
With adoComm3
.ActiveConnection = Conn
.CommandType = 4
.CommandText = "View_Usedhouse2"
.Parameters.Item("@strID").Value = id
.Execute
Return=.Parameters.Item("@Return").Value
if Return=true then
zbh=.Parameters.Item("@zbh").Value
EndWith