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
这句是什么意思,这个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
这句是什么意思,这个return是去取哪里的值
Dim adoComm3
Set adoComm3 = CreateObject("ADODB.Command")adoComm3.ActiveConnection = Conn
adoComm3.CommandType = 4
adoComm3.CommandText = "View_Usedhouse2"
adoComm3.Parameters.Item("@strID").Value = id
adoComm3.Execute
Return=adoComm3.Parameters.Item("@Return").Value
if Return=true then
zbh=adoComm3.Parameters.Item("@zbh").Value
VB一般也不会用这种写法!
鉴定完毕!
建议LZ如果是网上看的,把链接丢出来
你这样说一句,没法帮你。
要么去vb版块问问,VB略懂,但看不懂你这个!
猜,这个return是去"View_Usedhouse2"这个存储过程中返回的值,嘿嘿^^
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
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