9
I have a data access layer called AAEData in namespace mil.dtra.ado:
Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Configuration
Namespace mil.dtra.ado
Public Class AAEData
Public myReader As SqlDataReader
Dim mySqlConnection As SqlConnection
Dim mySqlCommand As SqlCommand
Public Sub Dispose()
If Not (myReader Is Nothing) Then
myReader.Close()
End If
If (mySqlConnection.State = ConnectionState.Open) Then
mySqlConnection.Close()
End If
End Sub
Public Sub New()
End Sub
Public Sub New(ByVal sql As String)
mySqlConnection = New SqlConnection(WebConfigurationManager.ConnectionSt rings("DTRA_AAEConnectionString").ConnectionString )
mySqlCommand = New SqlCommand(sql, mySqlConnection)
mySqlConnection.Open()
myReader = mySqlCommand.ExecuteReader()
End Sub
Public Function getDataView(ByVal sql As String) As DataView
mySqlConnection = New SqlConnection(WebConfigurationManager.ConnectionSt rings("DTRA_AAEConnectionString").ConnectionString )
mySqlCommand = New SqlCommand(sql, mySqlConnection)
Dim mySqlDataAdapter As New SqlDataAdapter(mySqlCommand)
Dim myDataSet As New DataSet
mySqlConnection.Open()
mySqlDataAdapter.Fill(myDataSet)
If myDataSet.Tables(0).Rows.Count = 0 Then
Throw New Exception
End If
Return myDataSet.Tables(0).DefaultView
End Function
End Class
End Namespace
///////////////////////////////////////////////////
In my aspx.vb file I have:
Imports System.Data
Imports System.Data.OleDb
Imports mil.dtra.ado
Partial Class q_list
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not (Page.IsPostBack) Then
Dim objPds As New PagedDataSource()
Dim d As New AAEData()
Dim dv As DataView
Dim curPage As Integer = 1
Dim intCgiStart As Integer = 0
Dim intRefreshField As Integer = 0
dv = d.getDataView("SELECT q_id, question, date_submitted, gif = case cast(ansGIF as nvarchar) when '' then 'q' Else 'qa' end FROM [q_AllView] WHERE ([status] NOT IN ('New','Delete'))) ORDER By [q_id] DESC")
objPds.DataSource = dv
objPds.AllowPaging = True
'litQuestion.Text = dv.Item(0).Item("question")
rid.SelectedValue = intRefreshField
curPage = (intCgiStart / intRefreshField)
objPds.CurrentPageIndex = curPage
objPds.PageSize = intRefreshField
If Not objPds.IsFirstPage Then
Me.hypPrev.Text = "<< PREV" & intRefreshField
' Me.hypPrev.NavigateUrl = "q_list.aspx?q_ID =" & intCgi_qID & "&cgiStart=" & intCgiStart + intRefreshField & "&RefreshField =" & intRefreshField
Else
hypPrev.Visible = False
End If
If Not objPds.IsLastPage Then
Me.hypNext.Text = "Next" & intRefreshField & " >>"
' Me.hypNext.NavigateUrl = "q_list.aspx?q_ID =" & intCgi_qID & "&cgiStart=" & intCgiStart + intRefreshField & "&RefreshField =" & intRefreshField
Else
Me.hypNext.Visible = False
End If
Me.Repeater1.DataSource = objPds
Me.Repeater1.DataBind()
'Title = "Ask an Expert - Recent " & litQuestion.Text & "Questions"
End If
/////////////////////////
Problem is that I keep getting an error from the "mySqlDataAdapter.Fill(myDataSet)" from the mil.dtra.ado file.
Can anyone help?
