Acelerar consulta y actualizacion

[arielenter]

Hola, tengo una bd con 7.000 Registros siempre va a ser la misma cantidad.

Esta es la base de datos. (captura de pantalla abajo).


Mi Problema es que tengo esta consulta y si lo hago en mi pc lo hace rapido menos de 1 segundo, cuando paso a la pc del cliente ya lleva como 2 0 3 segundo, se que su pc es mas lento que el mio se que por ahi van las cosas.

Código VB6:

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
 

Código VB6:

Private Sub cmdNumero_Click(Index As Integer)
    Call BUSCAR_NUMERO_CANTADO(cmdNumero(Index).Caption)
End Sub
 

Ahora he divido el campo matriz por columnas asi: (captura de pantalla abajo)


Lo que hago es dividir las columnas al hacer esto hay menos datos que buscar por COLUMNA pero siempre va a ser 7.000 registros esto acelera en en algo?.

Código VB6:

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
 

Código VB6:

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
 

[gnzsoloyo]

No se ven temas de MySQL en esto.

Movido a Visual Basic Clasico

[carbon]

1, 2, 3 segundos te parece mucho? En cuanto pretendes que se haga la consulta?

[arielenter]

Y la verdad pregunte si se podia acelerar algo, mejorar el codigo para que sea como en mi pc.

[carbon]

Ah pues la verdad que no se, no creo, depende también de las prestaciones de la PC. Que motor de base de datos estas usando?

[Malenko]

Procedo a cerrar el hilo. Tema duplicado y respondido aquí, en el foro de MySQL.