1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
|
dim req as string = "Select * from matable"
dim resultset as dataset = runquery(req)
(...)
Function RunQuery(ByVal QueryString As String) As DataSet
Dim myconnection As SqlConnection = CType(Session("myconnection"), SqlConnection)
Dim DBAdapter As SqlDataAdapter
Dim ResultsDataSet As DataSet = New DataSet
Try
' Run the query and create a DataSet.
DBAdapter = New SqlDataAdapter(QueryString, myconnection)
DBAdapter.Fill(ResultsDataSet)
'Response.Write(QueryString)
' Close the database connection.
myconnection.Close()
Catch ex As Exception
' Close the database connection if it is still open.
If myconnection.State = ConnectionState.Open Then
myconnection.Close()
End If
End Try
Return ResultsDataSet
End Function |
Partager