| 12
 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