AJUDA PARA MONTAR CLASSE PARA CRIACAO D DLL

 Tópico anterior Próximo tópico Novo tópico

AJUDA PARA MONTAR CLASSE PARA CRIACAO D DLL

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#341341 - 09/05/2010 11:57:58

CARINHENA
SOROCABA
Cadast. em:Junho/2004


Pessoal, eu tenho um módulo que geralmente uso para criar conexões e rotinas de banco.
Só que eu gostaria de criar uma dll para poder usa-lo em qualquer sistema (aliás penso em deixa-lo aqui com código aberto também), inclusive ser usado por projetos em asp.net, porém, não tenho muito conhecimento em como criar classes desse tipo. Alguem poderia me ajudar a converter ela? Tenho outras rotinas, pra migrar, mas, somente esse eu ja consigo pegar o jeito e se virar com o resto.

O módulo é esse:

Imports System.Data.SqlClient
Imports System.Data

Module Tabela
    Public Valor As DataView
    Public CN As SqlConnection

    Public Function Conectar()
        'Muita atencao para um parametro pouco comentado, mas que reflete diretamente no seu trabalho.
        'O parametro MultipleActiveResultSets=True eh vai permitir a voce usar dois ou mais recordsets
        'ao mesmo tempo na conexao
        CN = New SqlConnection("Data Source=DUAL-INTERNET\SQLEXPRESS;Initial Catalog=SeirenRede;User ID='';Password='';Trusted_Connection=yes;MultipleActiveResultSets=True")


        'Se aproveitando do gerenciamento de erros,
        'vamos tentar conectar o servidor...
        Try
            CN.Open()
        Catch ex As Exception
            MsgBox("Erro ao conectar o servidor !" & vbCrLf & vbCrLf & "Conexão utilizada:" & vbCrLf & CN.ConnectionString & vbCrLf & vbCrLf & vbCrLf & "Erro: " & ex.Message.ToString, MsgBoxStyle.Critical)
            Return ""
            Exit Function
        End Try

        Return ""
    End Function

    Public Function Fazer_Consulta(ByVal SQL As String, ByVal Tabela As String)
        Dim SQDA As SqlDataAdapter
        Dim SQDS As New DataSet
        'Uma SQL passada para um data adapter
        SQDA = New SqlDataAdapter(SQL, CN)
        'Os registros sao carregados para um dataset virtual
        SQDA.Fill(SQDS, Tabela)
        'Um dataview e criado com base no dataset que foi carregado
        Valor = SQDS.Tables(Tabela).DefaultView
        'Simplesmente configuramos o listbox para exibir os dados
        Return Valor.Count
    End Function

    Public Function Inserir_Registros(ByVal SQL As String)
        Dim R As Integer = "1"
        Dim cmsql As SqlCommand
        cmsql = New SqlCommand(SQL, CN)
        Try
            cmsql.ExecuteNonQuery()
        Catch s As Exception
            MsgBox("Houve um Erro: " & vbCrLf & s.Message & vbCrLf & vbCrLf & "Por favor tente de novo!", MsgBoxStyle.Critical, "Erro!")
            R = "0"
        End Try
        Return R
    End Function

Public Function Excluir_Regstros(ByVal SQL As String)
        Dim R As Integer = "1"
        Dim cmsql As SqlCommand
        cmsql = New SqlCommand(SQL, CN)

        Try
            cmsql.ExecuteNonQuery()
        Catch s As Exception
            MsgBox(s.Message)
            R = "0"
        End Try

        Return R

    End Function


End Module

Alguem pode dar essa ajuda?

Carinhena

A melhor forma de aprender e ensinando!


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por CARINHENA em 18/01/2013 13:55:10