Nuevo Foro de programacion
0 Usuarios y 1 Visitante están viendo este tema.
Sub BUSCAR_NUMERO_CANTADO(ByVal xNumeroCarton As String) ComandoSQL = "UPDATE bingo75 SET aciertos=aciertos+1" ComandoSQL = ComandoSQL & " WHERE matriz LIKE '%" & xNumeroCarton & "%' AND habilitado = 'SI'" cnADO.Execute ComandoSQL End Sub
Call BUSCAR_NUMERO_CANTADO(cmdNumero(Index).Caption)
Private Sub cmdBolilla_Click(Index As Integer) Dim xValor As Integer xValor = Val(cmdBolilla(cmdBolilla(Index).Index).Caption) If xValor = 1 Or xValor <= 15 Then Call BUSCAR_NUMERO_CANTADO(cmdBolilla(Index).Caption, "lb") ElseIf xValor = 16 Or xValor <= 30 Then Call BUSCAR_NUMERO_CANTADO(cmdBolilla(Index).Caption, "li") ElseIf xValor = 31 Or xValor <= 45 Then Call BUSCAR_NUMERO_CANTADO(cmdBolilla(Index).Caption, "ln") ElseIf xValor = 46 Or xValor <= 60 Then Call BUSCAR_NUMERO_CANTADO(cmdBolilla(Index).Caption, "lg") ElseIf xValor = 61 Or xValor <= 75 Then Call BUSCAR_NUMERO_CANTADO(cmdBolilla(Index).Caption, "lo") End If End Sub
Sub BUSCAR_NUMERO_CANTADO(ByVal xNumeroCarton As String, xLineas As String) ComandoSQL = "UPDATE bingo75 SET aciertos=aciertos+1" ComandoSQL = ComandoSQL & " WHERE " & xLineas & " LIKE '%" & xNumeroCarton & "%' AND estado='SI'" cnADO.Execute ComandoSQL End Sub