Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: leliCabello en 20 Mayo 2010, 16:37 PM

Título: Codigos de visual 6
Publicado por: leliCabello en 20 Mayo 2010, 16:37 PM
hola, pz una simple preguntilla, que indica este codigo... ayuden  xfas

If Not rsCliente.EOF Then
        rsCliente.MoveFirst
        Do Until rsCliente.EOF
            Combo4.List(i) = rsCliente("razon")
            i = i + 1
            rsCliente.MoveNext
        Loop
        rsCliente.Close
        Set rsCliente = Nothing
    Else
        MsgBox "No hay clientes para poder realizar la factura, ingresar al cliente!", , "TICOM SCRL"
        Exit Sub
    End If
Título: Re: Codigos de visual 6
Publicado por: ssccaann43 © en 20 Mayo 2010, 17:30 PM
Alli cargas en la propiedad List del combo, los registros encontrados en la Consulta Generada, cuyo campo es "razon".

Algo más?  :silbar:
Título: Re: Codigos de visual 6
Publicado por: leliCabello en 20 Mayo 2010, 17:42 PM
Sii.... Y cual es el codigo en caso un usuario realiza un nuevo registro y se olvida escoger el elemento del combo----entonces tendria que aparecerle un mensaje que diga "No se puede realizar el registro sin ese elemento del combo"  :¬¬
Título: Re: Codigos de visual 6
Publicado por: seba123neo en 21 Mayo 2010, 04:09 AM
Hola, facil, chequea que haya seleccionado algo en el combo, cuando no hay nada seleccionado el listindex es igual a -1...otra cosa..el contador ese esta demas...se puede hacer sin eso.

saludos.
Título: Re: Codigos de visual 6
Publicado por: supervb en 21 Mayo 2010, 20:47 PM
Private Sub cmdGuardar_Click()
Dim rs As New ADODB.Recordset
    If adoDatos.Recordset.RecordCount > 0 Then
        adoDatos.Recordset.MoveFirst
        rs.Open "LLAMADAS", cn, adOpenStatic, adLockOptimistic
        For i = 1 To adoDatos.Recordset.RecordCount
            rs.AddNew
            rs("cod_cliente") = adoDatos.Recordset("cod_cliente")
            rs("cod_tipo") = adoDatos.Recordset("cod_tipo")
            rs("llamadatipo") = adoDatos.Recordset("llamadatipo")
            rs("fecha") = Date
            rs("descripcion") = adoDatos.Recordset("descripcion")
            rs("cod_usuario") = adoDatos.Recordset("cod_usuario")
            rs.Update
            adoDatos.Recordset.MoveNext
        Next
        BorraRegistros "TEMPORAL_LLAMADAS", ""
        adoDatos.Refresh
        ModoEditar False
        MsgBox "El registro se guardó con éxito", , "TICOM S.R.L."
    End If
End Sub
no me sale