CONEXAO DE COM BANCO DE DADOS

WEVERTONSOZUA 19/09/2012 23:59:47
#410045

Ola pessoal tenho o seguinte modulo:

Imports System.Data.OleDb
Module Module1

Public conecta As New OleDbConnection
Public comando As New OleDbCommand

[ô] Public Formulario As Form

Dim cSql = Nothing, cAux As String = Nothing
Dim oObj As New Object

[ô]********************************************************************************
[ô] Procedimento para conexao ao banco de dados *
[ô] *
[ô] *
[ô] *
[ô]********************************************************************************
Public Sub Conectar()
conecta.Close()
conecta.ConnectionString = ([Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
[Ô]Data Source= C:\Users\weverton\Desktop    este\banco _de_dados.mdb[Ô])
conecta.Open()
comando.Connection = conecta
End Sub
[ô]********************************************************************************
[ô] Procedimento para desconectar do banco de dados *
[ô] *
[ô] *
[ô] *
[ô]********************************************************************************
Public Sub Desconectar()
conecta.Close()
End Sub

[ô]********************************************************************************
[ô] Função para teste de conexao com o banco de dados *
[ô] *
[ô] *
[ô] *
[ô]********************************************************************************
Public Sub testeconexao()
Dim retorno As Boolean = False
Try
Conectar()
MsgBox([Ô]Conexão realizada com sucesso!!![Ô])
Catch ex As Exception
Desconectar()
MsgBox([Ô]Não foi possivel realizar a conexao[Ô] & vbCrLf & _
[Ô]com banco de dados[Ô])
End Try


End Sub
[ô]********************************************************************************
[ô] Procedimento para adicionar ao banco de dados *
[ô] *
[ô] *
[ô] *
[ô]********************************************************************************
Public Sub Adicionar(ByVal operacao As String, ByVal formulario As Object)
Dim cSql = Nothing, cAux = Nothing
Dim oObj As New Object
cSql = Nothing
cAux = Nothing
Dim X As String
With formulario
For Each oObj In .Controls
If TypeOf oObj Is MaskedTextBox Or TypeOf oObj Is ComboBox Or TypeOf oObj Is TextBox Then
If Not oObj.tag = [Ô]Codigo[Ô] And Not oObj.tag = [Ô]Busca[Ô] Then
cSql = cSql & Mid(oObj.Name, 4) & [Ô],[Ô]
X = cSql
[ô] MsgBox(X)
If (Mid(oObj.name, 1, 3) = [Ô]cmb[Ô]) Then
cAux = cAux & [Ô][ô][Ô] & UCase(oObj.SelectedItem) & [Ô][ô],[Ô]

Else
If oObj.tag = [Ô]numero[Ô] Then
cAux = cAux & UCase(oObj.Text) & [Ô][ô],[Ô]
[ô] MsgBox([Ô]CAUXNUm [Ô] & cAux)
Else
cAux = cAux & [Ô][ô][Ô] & UCase(oObj.Text).ToString.Replace([Ô][ô][Ô], [Ô] [Ô]) _
.Replace([Ô];[Ô], [Ô] [Ô]).Replace([Ô][Ô][Ô][Ô], [Ô] [Ô]) & [Ô][ô],[Ô]
[ô]MsgBox([Ô]CAUX :[Ô] & cAux)
End If
End If
End If
End If
Next
End With

cSql = [Ô]INSERT INTO [Ô] + Mid(formulario.Name, 4) + [Ô]([Ô] & Mid(cSql, 1, Len(cSql) - 1) & [Ô][Ô] & _
[Ô]) values ([Ô] & Mid(cAux, 1, Len(cAux) - 2) & [Ô][ô])[Ô]

Try
Conectar()
comando.CommandText = cSql
comando.ExecuteNonQuery()
MsgBox(Mid(formulario.Name, 4) & [Ô] cadastrado com Sucesso[Ô], _
MsgBoxStyle.Information, [Ô]Cadastro de [Ô] & Mid(formulario.name, 4))
Catch ex As Exception
Dim erro As String = ex.ToString
MsgBox(erro)
Desconectar()
MsgBox(erro)
End Try
End Sub
Public Function lista(ByVal cTab As String)
[ô]Dim strConexaoOleDb As String = ConfigurationSettings.AppSettings([Ô]strConexao[Ô])
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
Dim strSQL As String = [Ô]SELECT * FROM [Ô] & cTab [ô]& _
[ô] [Ô] where filial = [Ô] & wfilial & [Ô] order by filial,numero [Ô]
Try
[ô]Conecta o banco de dados
[ô]
Conectar()
[ô] pega a o comando texto e armazena (String)
[ô]
comando.CommandText = (strSQL)

[ô] executa o comando texto
[ô]
da.SelectCommand = comando
[ô]pega o dataset e a tabela
[ô]
da.Fill(dt)
[ô]Desconecta do banco
[ô]
Desconectar()
Catch mExcecao As System.Exception
Dim erro As String = mExcecao.ToString
MsgBox(erro, MsgBoxStyle.Information, [Ô]Cadastro de Clientes[Ô])
Desconectar()

End Try
Return dt
End Function


[ô]********************************************************************************
[ô] Procedimento para conexao ao banco de dados *
[ô] *
[ô] *
[ô] *
[ô]********************************************************************************
Public Function incluir(ByVal cod As Integer, ByVal nome As String, _
ByVal email As String, ByVal tipo As String, _
ByVal login As String, ByVal senha As String)
Conectar()
comando.CommandText = ([Ô]insert into tablogin(codigo, nome , email, tipo, login, senha) values ([Ô] & _
cod & [Ô],[ô][Ô] & nome & [Ô][ô],[ô][Ô] & email & [Ô][ô],[ô][Ô] & tipo & [Ô][ô],[ô][Ô] & login & [Ô][ô],[ô][Ô] & senha & [Ô][ô])[Ô])
comando.ExecuteNonQuery()
Desconectar()
Return True
End Function

Sub limpaCampos(ByVal formulario As Object)
Dim oObj As New Object
With formulario
For Each oObj In .Controls
If TypeOf oObj Is MaskedTextBox Or TypeOf oObj Is ComboBox Or TypeOf oObj Is TextBox Then
[ô]MsgBox(oObj.Name)
oObj.Text = Nothing
oObj.Focus()
End If
Next
End With
End Sub
[ô]********************************************************************************
[ô] Procedimento para preecher combobox com valor da *
[ô] tabela UF. *
[ô] *
[ô] *
[ô] *
[ô]********************************************************************************

End Module

Gostaria de saber como fazer para que alem do código de adicionar esse Module também atualize, busque e exclua usuários cadastrados no banco de dados
desde ja agradeço a todos.