• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

brunobor

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

5 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas

Se sabes SQL do access não custa nada fazer select e insert.

Jorge

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

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