VBNet - Форум - VB.NET и ADO.NET

Вопрос: VB.NET и ADO.NET Добавлено: 27.10.03 10:58

Автор вопроса: Atma | ICQ: 161504457

ADO.NET помогите в этом коже что-то не так. Например не рабоатет Ado.close() , кажется что-то напутано с деструкторами? Помогите!

Imports System.Data

Imports System.Data.OleDb

Public Class AdoNET

    Public DS As DataSet

    Private Count As Integer = 0

    Private Const strProvider As String = "Provider=Microsoft.Jet.OLEDB.4.0;"

    Private Conn As OleDb.OleDbConnection

    Private AD As OleDb.OleDbDataAdapter

    Private Comm As OleDb.OleDbCommand

    Public Sub New(ByVal str_mdb As String)

        Try

            Conn = New OleDb.OleDbConnection()

            Conn.ConnectionString = _

                strProvider & "Data Source=" & _

                str_mdb

            Conn.Open()

            Comm = New OleDb.OleDbCommand()

            Comm.Connection = Conn

            AD = New OleDb.OleDbDataAdapter()

            DS = New DataSet()

        Catch saveException As Exception

            MessageBox.Show(saveException.Message)

            Finalize()

        End Try

    End Sub

    Public Sub Add_SQL(ByVal str_SQL As String, ByVal strRecordSet As String)

        Comm.CommandText = str_SQL

        AD.SelectCommand = Comm

        AD.Fill(DS, strRecordSet)

    End Sub

    Protected Overrides Sub finalize()

        'Comm.Dispose()

        DS.Dispose()

        AD.Dispose()

        DS = Nothing

        AD = Nothing

        Comm = Nothing

        Conn.Close()

        Conn = Nothing

    End Sub

End Class

Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #1	Добавлено: 27.10.03 12:46
	А что именно не работает? Код вроде правильный. Ответить

Номер ответа: 2
Автор ответа:

Atma

ICQ: 161504457

Вопросов: 33
Ответов: 14

Профиль | | #2

Добавлено: 28.10.03 11:34

Imports System

Imports System.Data

Imports System.Data.OleDb

Public Class AdoNET

Implements IDisposable
    Public DS As DataSet

    Private Const strProvider As String = "Provider=Microsoft.Jet.OLEDB.4.0;"

    Private Conn As OleDb.OleDbConnection

    Private AD As OleDb.OleDbDataAdapter

    Private Comm As OleDb.OleDbCommand

    Public Sub New(ByVal str_mdb As String)

        Try

            Conn = New OleDb.OleDbConnection

            Conn.ConnectionString = _

                strProvider & "Data Source=" & _

                str_mdb

            Conn.Open()

            Comm = New OleDb.OleDbCommand

            Comm.Connection = Conn

            AD = New OleDb.OleDbDataAdapter

            DS = New DataSet

        Catch saveException As Exception

            MessageBox.Show(saveException.Message)

        End Try

    End Sub

    Public Sub Add_SQL(ByVal str_SQL As String, ByVal strRecordSet As String)

        Comm.CommandText = str_SQL

        AD.SelectCommand = Comm

        AD.Fill(DS, strRecordSet)

    End Sub

    Public Overloads Sub Dispose() Implements IDisposable.Dispose

        Comm.Dispose()

        DS.Dispose()

        AD.Dispose()

        Conn.Close()

        GC.SuppressFinalize(Me)

    End Sub

End Class

А этот код разве не правильнее?? И если можно прокоментируйте правильные изменения, просто я ламер! Спасибо заранее!

Ответить

Страница: 1 |