在你的网站的根目录建立一个叫App_Code的文件,并把这个类放进去。
Sub datalj(ByVal sql1 As String)改成
Public Function datalj(ByVal sql1 As String) As SqlDataReader
conn.ConnectionString = str
conn.Open()
comm = New SqlCommand(sql1, conn)
rs = comm.ExecuteReader
datalj = rs
End Function
使用的时候
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim d As New DB
Dim rs As SqlDataReader = d.datalj("select * from userb")
……
End Sub
好吧! 你的conn对象怎么传递给你的rs?
asp里面写的时候conn也是公共变量吧?
你的写法里 Private conn 是私有的吧?
数据库连接你怎么传呢?
主要是你要使用的那个页面引用了这个类没有,没引用肯定是用不了的,而且引用后,也不能直接用,先要对类进行实体化,如:
Private objdb As New DB
然后调用
objdb.datalj(sql1)
在comm = New SqlCommand(sql1, conn)前边打个断点然后进行跟踪