懂VB的进来看下 VB调用存储过程

[闲游四疯]

我一直学C# 不懂VB,但现在要用到一个VB存储过程调用,不会写.谁帮我改下
代码看不大懂,大致复制出来

/*
就是把strSql这个SQL语句查询换成我自己写的存储过程查询 [存储过程名 Msha_DuiHuaR 参数 @uin int ]
存储过程返回值是一条数据,谁帮我改下?
*/
...
dim rs,strSql
	strSql = "select * from V_UserByUIN where UIN= " &uin
    
	set rs = server.createobject("adodb.recordset")
	set rs = conn.execute(strSql)
	If Not rs.EOF And Not rs.BOF Then
		telId	= rs("telUserNum")
		nick	= trim(rs("name"))

		if nick = "" then
			nick = uin
		end if
	
		if userStatus = "" then
			if rs("bOnline") < 10 then
				userStatus = 3
			else
				userStatus = 1
			end if
		end if
		
	    	title			= rs("title")
		postcode		= rs("postcode")
		address			= rs("address")
		corp			= rs("company1")
		tel				= rs("tel")
		fax				= rs("fax")
		Product			= rs("Product")	
		userPicpath		= rs("Picpath")	
	
		session("noteUIN")	= rs("noteUIN")&""
		session("notePWD")	= rs("notePWD")&""
		session("tel")		= rs("smobile")&""	
	
		note			= rs("dxsf")
	End If
	rs.close
...

[NqIceCoffee]

这个是Asp的VB脚本吧

你可以去网上搜下，ASP调用存储过程示例

很久没碰ASP了，忘完啦

[闲游四疯]

是啊.我也上网去搜啊..可是看不懂..项目比较紧.没时间给我研究.所以还是直接来问可能会比较快点吧..
应该有人懂C#也懂VB的吧./.周末人怎么这么少哩?

[wxg22526451]

set rs = server.createobject("adodb.recordset")
rs.Open "Exec Msha_DuiHuaR "&uin,conn

[cs_oldhorse]

rs.execute "Msha_DuiHuaR " & uin

[cs_oldhorse]

rs改成conn

[vbman2003]

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Dim param As ADODB.Parameter

'连接数据库.....
cn.open ......

Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandText = "Msha_DuiHuaR"
cmd.CommandType = adCmdStoredProc

Set param = cmd.CreateParameter("@uin int", adChar, adParamInput, 20, youValue)
cmd.Parameters.Append param

Set rs = cmd.Execute
Debug.Print rs.fields(0)
Set cmd = Nothing
Set rs = Nothing
Set cn = Nothing

[闲游四疯]

thanks~ 最近比较忙没空过来看.明天试下.可以就结..

[ldg888]

学习学习再学习!