No modulo declarei a conexao e a strng e criei as subs de para conectar e desconectar
Module Module1
Public cnn As New OleDb.OleDbConnection
Public CAMINHO As String
Public Sub conectar()
CAMINHO = "C:\Arquivos de programas\PROGRAMAS TESTES\Express 2005\Sisloc\SISLOC.MDB"
Dim cnn As New OleDb.OleDbConnection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & CAMINHO & "'"
cnn.Open()
End Sub
Public Sub desconectar()
cnn.Dispose()
cnn.Close()
cnn = Nothing
End Sub
End Module
No Load abro a conexao
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.TabIndex = 0
conectar()
End Sub
so fecho a con no fechar do form
Private Sub Form1_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Deactivate
desconectar()
Me.Close()
Me.Dispose()
End Sub
quando abro o form a primeira vez consigo incluir registros
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cmd As OleDb.OleDbCommand = cnn.CreateCommand
cmd.CommandText = "insert into clientes (nome) values ('" & Text2.Text & "')"
Try
cmd.ExecuteNonQuery()
MsgBox("Registro incluido")
Catch erro As Exception
MsgBox("Erro " & vbCrLf & vbCrLf & erro.ToString)
End Try
End Sub
Mas quando fecho o form e abro novamente da ERRO na conexao
Pergunta
Macêdo
Pessoal
To começando e estou com o seguinte problema:
No modulo declarei a conexao e a strng e criei as subs de para conectar e desconectar
No Load abro a conexao so fecho a con no fechar do form quando abro o form a primeira vez consigo incluir registrosMas quando fecho o form e abro novamente da ERRO na conexao
como concerto isto ?
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.