Visual Basic Foro

Programación => Bases de Datos => Mensaje iniciado por: E N T E R en Marzo 13, 2014, 04:44:51 pm

Título: Esto es la misma cosa o es mas rapido.
Publicado por: E N T E R en Marzo 13, 2014, 04:44:51 pm

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

Esta es la base de datos. (SCREEN)
(http://snag.gy/ZS4Ht.jpg)

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

Código: (VB) [Seleccionar]

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: (VB) [Seleccionar]

Call BUSCAR_NUMERO_CANTADO(cmdNumero(Index).Caption)
Ahora he divido el campo matriz por columnas asi: (SCREEN)

(http://snag.gy/35ruh.jpg)

Modificando un poco la otra consulta para buscar solo en la columna especifica esto va acelerar en algo?

Código: (VB) [Seleccionar]

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: (VB) [Seleccionar]

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

Título: Re:Esto es la misma cosa o es mas rapido.
Publicado por: 79137913 en Marzo 14, 2014, 08:51:47 am

HOLA!!!

Hola, tengo una consulta...

No estaras testeando el codigo desde el IDE no?
Por que el IDE muchas veces es mas rapido que el compilado.

GRACIAS POR LEER!!!

Título: Re:Esto es la misma cosa o es mas rapido.
Publicado por: E N T E R en Marzo 14, 2014, 09:33:00 am

La verdad que compilado ya lo probé en mi pc y siempre es rápido no tarda tanto, también ya lo probé en su pc con el IDE pero es la misma cosa.

Título: Re:Esto es la misma cosa o es mas rapido.
Publicado por: k_arlytos en Marzo 15, 2014, 01:01:29 am

si dices que en tu pc es mas rapido y en otra pc mas lento pero si ejecuta la misma instruccion verdad?
no sera por que tu no tienes muchos programas corriendo en tu memoria? y en la otra pc si?