Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

brunobor

[vb.net2005] Criação de Um programa de gestão

Mensagens Recomendadas

brunobor    0
brunobor

Boas comunidade,

Eu estou a desenvolver uma aplicação em vb2005, usando uma base de dados acess, o grande problema e que não sei como eide proceder para criar um form para inserir dados na base de dados, outro para consultar.

Se alguem me poder ajudar agradecia.

Atenciosamente

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Icaro    0
Icaro

Para inserir valores numa base de dados podes utilizar por exemplo o InputBox ou uma caixa de texto

e armazenando os valores introduzidos em variáveis.

Imaginemos que tens uma BD chamda Clientes.mdb que está colocada na mesma directoria do programa

essa base de dados é composta por uma tabela chamada Clientes, com 3 campos(para simplificar): IDVendedor, Nome e Morada.(coloca na BD IDvendedor autonumber)

cria um form com 2 caixas de texto, 2 labels 2 listbox e 2 botões: inserir e consultar

coloca o seguinte código no topo de Public class frm1


    Public caminho As String = Application.StartupPath.ToString

no botão inserir- evento click o seguinte código

dim nom as string = TxtBoxnome.text
dim mor as string = TxtBoxmorada.text

  Dim cn As New OleDb.OleDbConnection
        Dim com As New OleDb.OleDbCommand
        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;password=; User ID=Admin;Data Source="caminho & "\Clientes.mdb"
        cn.Open()
        com.Connection = cn
        com.CommandType = CommandType.Text
        com.CommandText = "INSERT INTO Vendas (Nome, Morada) VALUES ('" & nom & "', '" & mor & "')"
        com.ExecuteReader()
        cn.Close()

no botão consultar


        Dim cn As New OleDb.OleDbConnection
        Dim com As New OleDb.OleDbCommand
        Dim res As OleDb.OleDbDataReader
        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;password=; User ID=Admin;Data Source="caminho & "\Clientes.mdb"

        cn.Open()

        com.Connection = cn
        com.CommandType = CommandType.Text
        com.CommandText = "SELECT * Frrom Vendas"
        com.ExecuteReader()
    
        res = com.ExecuteReader()

        While res.Read()
            Me.ListBox1.Items.Add(res.Item(1).ToString)
            Me.ListBox2.Items.Add(res.Item(2).ToString)

        End While
    cn.Close()

Obviamente que isto tem mais que se lhe diga mas penso que este exmplo pode ajudar

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vbmaster    5
vbmaster

Mas será que ninguém vê que há uma secção chamada Dúvidas e Ajudas?

Começarei a bloquear tópicos se tais regras não forem cumpridas.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
JomarB    0
JomarB

Poderias usar um objecto te te iria facilitar muito o Data Ola neste site e veras varios livros, e depois e so procurar :thumbsup:

Csao nao encontres e so dizer ya  :P

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade