62,047
社区成员
发帖
与我相关
我的任务
分享
Private Sub showsomething(ByVal Qmin As Integer, ByVal Qmax As Integer)
conn.ConnectionString = connstring
sqlCmd_content.Connection = conn
Dim dr_content As SqlDataReader
Try
conn.Open()
sqlCmd_content.CommandText = "SELECT * FROM A"
dr_content = sqlCmd_content.ExecuteReader()
Repeater1.DataSource = dr_content
Repeater1.DataBind()
dr_content.Close()
Catch ex As Exception
ClientScript.RegisterClientScriptBlock(Page.GetType(), "message", "alert('" & ex.Message & "')", True)
Finally
If dr_content IsNot Nothing Then dr_content.Close()
If conn IsNot Nothing Then conn.Close()
End Try
End Sub