1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Inserir filmes numa BD [VB6]

Discussão em 'Programação' iniciada por skAzi^, 28 de Maio de 2009. (Respostas: 0; Visualizações: 745)

  1. Boas, é o seguinte tenho num Form uma DBList pa ver os vários filmes e text's boxs para ver o ano, categoria etc.. Peguei no código q tenha para adicionar os clientes ( o qual ficam registados na BD) e copiei-o para o adicionar filmes.. Mas dá-me 1erro.. n sei pk num form funciona correcto e com a mm programação no outro não dá..

    "Adicionar Clientes" :
    Código:
    Private Sub cmdadicionar_Click()
    On Error GoTo trataErro
        Data1.Recordset.AddNew
        txtnumerosocio.Text = ""
        txtbi.Text = ""
        txtnome.Text = ""
        txtmorada.Text = ""
        txttelefone.Text = ""
        txtnumerosocio.SetFocus
    Exit Sub
    trataErro:
    MsgBox Err.Description
    End Sub
    
    "Guardar Clientes" :
    Código:
    Private Sub cmdguardar_Click()
    If MsgBox("Deseja efectuar o registo?", vbYesNo, "Registo") = vbYes Then
    Data1.Recordset.AddNew
    Data1.Recordset.Fields("Numero_Socio").Value = Vcod_produto
    Data1.Recordset.Fields("BI").Value = Vdescricao
    Data1.Recordset.Fields("Nome").Value = vqtd
    Data1.Recordset.Fields("Morada").Value = Vvalorliquido
    Data1.Recordset.Fields("Telefone").Value = Viva
    Data1.Refresh
    Else
        Data1.Recordset.CancelUpdate
    End If
    Exit Sub
    trataErro:
        MsgBox Err.Description
    End Sub
    
    Copiei ambos os codigos para o outro form k vai fazer a mesma coisa so k n caso de Filmes..

    e dá-m erro ( Filmes ) nesta linha: Data1.Recordset.AddNew

    Alguem m pode dar 1 ajudinha sff? =/

    Cumpz .
     
    Última edição pelo moderador: 31 de Maio de 2009

Partilhar esta Página