Facul
Nesse projeto o banco de dados, se chama Bdredes.mdb e a tabela se chama redes. - Criar um formulário semelhante à figura abaixo:
- Coloque nos objetos os seguintes names: Objeto Textbox1 Textbox2 Botão Novo Botão Salvar Botão Alterar Botão Excluir Botão Consultar Botão Cancelar Botão Filtro Botão Relatório Botão Sair Name Txtcod Txtnome Btnnovo Btnsalvar Btnalterar Btnexcluir Btnconsulta Btncancel Btnfiltro Btnrelatorio Btnsair
- Agora será necessário adicionar um Módulo. Siga as instruções da figura abaixo:
Profª Klébia Thomé – klebia@uninove.br – Tecnologia em Informática
- Escolha a opção: Module
- Vá no menu Project na opção: Add References
Profª Klébia Thomé – klebia@uninove.br – Tecnologia em Informática
- Aba: .Net , selecione a opção: Ado, conforme a figura abaixo:
-
No Module digite as linhas de código:
Imports System.Data.OleDb Module Module1 Public conecta As New ADODB.Connection Public tabela As New ADODB.Recordset Public status As Boolean Public da As OleDbDataAdapter Public ds As DataSet
Profª Klébia Thomé – klebia@uninove.br – Tecnologia em Informática
Public Sub abrebanco() conecta = New ADODB.Connection conecta.Open("Provider = MICROSOFT.JET.OLEDB.4.0;data Source=bdredes.MDB") 'bdredes.mdb deverá ser substituido pelo nome do banco de dados que foi desenvolvido. LEMBRE-SE, coloque-o no subdiretório: Bin> DEBUG End Sub Public Sub limpa() With Form1 .txtcod.Text = "" .txtnome.Text = "" End With End Sub Public Sub carregagrid() 'exibe informação da tabela no grid tabela = New ADODB.Recordset tabela.Open("select * from Clientes order by Codigo", conecta) da = New OleDbDataAdapter ds = New DataSet da.Fill(ds, tabela, "Clientes") Form3.grid.DataSource = ds.Tables("Clientes") Form3.grid.Refresh() End Sub End Module
Dê um duplo clique no formulário, abrirá a programação no evento load(). Digite a seguinte codificação:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As