Jump to content
informaster

Preencher combobox - SQLITE

Recommended Posts

informaster

Bom Dia a todos

Preciso de umas luzes estou com a cabeça a ferver.

Tenho esta form com isto:

Imports System.Data.SQLite
'FORM INSERÇAO DE EMPREGADO
Public Class frm_inseriremp
    Dim sConnectionString As String

    'Botao GRAVAR EMPREGADO
    Private Sub bt_gravaremp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_gravaremp.Click
        Try
            'define um objeto Command
            Dim SQLcommand As SQLiteCommand
            sConnectionString = "Data Source=C:\StockUs\bdstocks2011.db3;Version=3;New=True;Compress=True;"
            Dim SQLconnect As New SQLite.SQLiteConnection(sConnectionString)
            SQLconnect.Open()
            SQLcommand = SQLconnect.CreateCommand

            'Se for vazio então repete
            If txt_nomeemp.Text = "" Then
                txt_nomeemp.Focus()
                MsgBox("Não pode inserir campos vazios")
                Return
            End If

            'Insere o registo na bd sqlite
            SQLcommand.CommandText = "INSERT INTO empregados(nome,senha,data,tipoacesso)  VALUES ('" + txt_nomeemp.Text.Replace("'", "''") + "','" + txt_senhaemp.Text.Replace("'", "''") + "','" & Today.Date & "')"
            'executa a consulta
            SQLcommand.ExecuteNonQuery()
            SQLcommand.Dispose()
            SQLconnect.Close()

            'Mensagem quando guarda
            MsgBox("Foi inserido novo registo na tabela")
            txt_nomeemp.Text = String.Empty
            txt_senhaemp.Text = String.Empty

        Catch ex As Exception
            MsgBox("Erro ao acessar o SQLite: " & ex.Message)
        End Try
        txt_nomeemp.Focus()

    End Sub
    'BOTAO CANCELAR EMPREGADO
    Private Sub bt_cancelaremp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancelaremp.Click
        Close()
    End Sub
    'BOTAO SAIR EMPREGADO
    Private Sub bt_sair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_sair.Click
        Close()
    End Sub
    'SE A FORM INSERIR EMPREGADO APARECE ENTAO FOCA A TXT BOX NOME EMPREGADO
    Private Sub frm_inseriremp_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        txt_nomeemp.Focus()
    End Sub
End Class

Tenho uma combobox = cb_tipoacesso

queria colocar lá os dados da tabela TipoAcesso

Tabela = Id, Tipoacesso

para na ficha do empregado selecionar o tipo de acesso e gravar na Base de dados

Será que alguem me pode dar umas luzes

Agradeço imenso.

Votos de um bom dia

Nuno Revez

😳


 

 

Nuno Revez

@informaster

Share this post


Link to post
Share on other sites
Andrepereira9

boas

Para preencheres o combobox com os dados, metes no evento formload isto:

 Try
            'define um objeto Command
            Dim SQLcommand As SQLiteCommand
            sConnectionString = "Data Source=C:\StockUs\bdstocks2011.db3;Version=3;New=True;Compress=True;"
            Dim SQLconnect As New SQLite.SQLiteConnection(sConnectionString)
            SQLconnect.Open()
            SQLcommand = SQLconnect.CreateCommand

SQLcommand.CommandText = "Select * from TipoAcesso"
            'executa a consulta

           dim leitor as  SQLDataReader = command.ExecuteReader()

If leitor.HasRows  Then

            While leitor.Read()
               cb_tipoacesso.Items.Add(leitor.Item("ID").ToString + " " + leitor.Item("Tipoacesso")).ToString()
            End While

        End If

            SQLcommand.Dispose()
            SQLconnect.Close()

Peço desculpa por algum erro, mas foi feito, a pressa e sem testar  😳


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.