[Login com BD VB6]

Boas

Sim sei utilizar BD em vb.

Me ajuda

[Guardar imagem num cmdbutton]

como guardar uma imagem em um cmdbutton e que guarde automaticamente na base de dados em access.

è urgente...

cumps

[Problema com command button VB6]

Boa noite.

Mas não pode ser em SQL, tem que ser em ACCESS...

não posso utilizar o select, porque select é de sql...

cumps

[Login com BD VB6]

não me consegue resolver o problema?? è muito urgente...

[Problema com command button VB6]

Quando o clicarno botao queria que me apresentasse um valor numa listbox.

mas não sei como gravar um valor nesse botao.

O meu programa é parecido com essa imagem que postei.

Desculpem meu portugues mas eu não sou brazileiro, sou portugues.

Cumpz

[Login com BD VB6]

Boas.

A base de dados não é em SQL é em access.

esse codigo não dá

[Login com BD VB6]

Boas

não sei como conseguir fazer um login de um programa ligado a uma BD, ou seja só os utilizadores registados poderia fazer login.

Urgente

Cumps

pipas

[Problema com command button VB6]

Boa noite

Estou a elaborar um programa parecido ao que é utilizado nos cafés, queria adicionar um valor a um esse botão (por ex. 2€)

e queria guardar esse valor na base de dados. para que quando fosse primido o botao ele apresentasse o valor numa listbox.

Agradeço a vossa ajuda.

URGENTE :bye2:

Cumpz

Pipas

[[AJUDA URGENTE!] Programa em VB.. Com bases de dados]

Ajudem-me... estou desesperado.

Se for necessario eu posto o programa completo.

[[AJUDA URGENTE!] Programa em VB.. Com bases de dados]

Boas, a linha onde me dá erro é a seguinte : Data1.Recordset.Update

3020 Tentativa de executar Update ou CancelUpdate ou tentativa de atualizar campo em tabela

sem antes executar AddNew ou Edit.

este é o erro que me dá, já traduzi a mensagem. Ela estava em ingles eu traduzi para portugues.

Se for necessario eu posto o programa completo ou posto mais codigo.

Já corri o programa todo e não entendo o porque deste erro.

Agradecia ajuda =)

Cumpz

[[AJUDA URGENTE!] Programa em VB.. Com bases de dados]

Private Sub Guardar_Click()
Dim Resp As Integer, Mens As String

Mens = "Deseja guardar os dados inseridos? "
Resp = MsgBox(Mens, vbYesNo + vbQuestion, "Question")

If Resp = vbYes Then
    
If aba.Tab = 0 Then
    
    If musicartista.Text = Empty Then
        MsgBox "Prencha o campo ARTISTA", vbCritical + vbOKOnly, "ERRO"
        'musicartista.SetFocus

    ElseIf musicanome.Text = Empty Then
        MsgBox "Prencha o campo NOME", vbCritical + vbOKOnly, "ERRO"
        'musicanome.SetFocus

    ElseIf musicalbum.Text = Empty Then
        MsgBox "Prencha o campo ALBUM", vbCritical + vbOKOnly, "ERRO"
        'musicalbum.SetFocus

    ElseIf Combo4.Text = Empty Then
        MsgBox "Prencha o campo ANO", vbCritical + vbOKOnly, "ERRO"
        'Combo4.SetFocus
    
    ElseIf Combo5.Text = Empty Then
        MsgBox "Prencha o campo GENERO", vbCritical + vbOKOnly, "ERRO"
        'Combo5.SetFocus
    Else

    Data1.Recordset.Update
    
    musicartista.Enabled = False
    musicanome.Enabled = False
    musicalbum.Enabled = False
    Combo4.Enabled = False
    Combo5.Enabled = False
    

    adicionar.Enabled = True
    visualizador.Enabled = False
    Procurar.Enabled = True
    Guardar.Enabled = False
    Editar.Enabled = True
    Cancelar.Enabled = False
    Eliminar.Enabled = False
    About.Enabled = True
    Sair.Enabled = True
    
    Data1.Refresh
    Data2.Refresh
    Data3.Refresh
    Data4.Refresh
    
    Data1.Recordset.Bookmark = Data1.Recordset.LastModified
    
    MsgBox "Registo guardado!"
   
    End If

 ElseIf aba.Tab = 1 Then

    If filmenome.Text = Empty Then
        MsgBox "Prencha o campo NOME", vbCritical + vbOKOnly, "ERRO"
        filmenome.SetFocus

    ElseIf Combo1.Text = Empty Then
        MsgBox "Prencha o campo GENERO", vbCritical + vbOKOnly, "ERRO"
        Combo1.SetFocus

    ElseIf Combo2.Text = Empty Then
        MsgBox "Prencha o campo LEGENDAS", vbCritical + vbOKOnly, "ERRO"
        Combo2.SetFocus

    ElseIf Combo3.Text = Empty Then
        MsgBox "Prencha o campo ANO", vbCritical + vbOKOnly, "ERRO"
        Combo3.SetFocus
    Else

    
    
    Data2.Recordset.Update
    
    filmenome.Enabled = False
    Combo1.Enabled = False
    Combo2.Enabled = False
    Combo3.Enabled = False
    
    adicionar.Enabled = True
    visualizador.Enabled = False
    Procurar.Enabled = True
    Guardar.Enabled = False
    Editar.Enabled = True
    Cancelar.Enabled = False
    Eliminar.Enabled = False
    About.Enabled = True
    Sair.Enabled = True
    
    MsgBox "Registo guardado!"
    

    Data1.Refresh
    Data2.Refresh
    Data3.Refresh
    Data4.Refresh
    
    Data2.Recordset.Bookmark = Data2.Recordset.LastModified
    
    End If
 End If
 End If

End Sub

----------------------------------------------------------------------------------------------------------------

Boas, esse codigo é referente a um programa de gestao de multimedia, onde temos musicas e filmes para catalogar.

Eu já consegui introduzir dados do programa mas de momento esta-me a dar o erro 3020.

Será que alguém me pode dar uma ajuda??

Este programa é para apresentar amanha.

Agradecia a vossa compreenção.

Se for nessario eu posto o programa completo.

Obrigado