SQL CE

Saludos,
tengo una peq app en windows CE.net que realiza un select
basico sobre una tabla de unos 30.000 registros , la tabla
está indizada y tiene una llave primaria establecida, son 6 campos.

El problema es que un select normal tarda aprox 5 segundos en retornar el
resultado, esto es algo normal o se me está pasando algo ?
he aqui el codigo:


Dim LCStr_sql As String
Dim MLB_encontrado As Boolean
Dim reader As SqlCeDataReader
Dim cmd As New SqlCeCommand
MLB_encontrado = False
If Trim(Me.txt_codigo.Text) <> "" Then
LCStr_sql = "Select
art_nombre,ind_vende_suelto,cant_cajas,cant_sueltos from LOCAL where
art_id='" & Trim(Me.txt_codigo.Text) & "'"
cmd.CommandText = LCStr_sql
Try
lbl_nombre.Text = "BUSCANDO ..."
Windows.Forms.Application.DoEvents()
PMF_CONN_DISC(True)
cmd.Connection = ML_dbConnection
reader = cmd.ExecuteReader
While reader.Read()
lbl_nombre.Text = reader.Item("art_nombre").ToString()
lbl_cant_actual_cajas.Text > reader.Item("cant_cajas").ToString()
lbl_cant_actual_sueltos.Text > reader.Item("cant_sueltos").ToString()
If reader.Item("ind_vende_suelto") = "si" Then
frame_sueltos.Visible = True
Else
frame_sueltos.Visible = False
End If
MLB_encontrado = True
Windows.Forms.Application.DoEvents()
End While
reader.Close()
reader.Dispose()
cmd.Dispose()
PMF_CONN_DISC(False)
If MLB_encontrado = False Then
MsgBox("Artículo no encontrado")
LMS_Inicializa()
End If
Catch e As SqlCeException
lbl_nombre.Text = ""
ShowErrors(e)
End Try
End If


Saludos desde Costa Rica! : )

DISCLAIMER: «Este mensaje se proporciona "como está" sin garantías de
ninguna indole, y no otorga ningún derecho.»

Saludos,
tengo una peq app en windows CE.net que realiza un select
basico sobre una tabla de unos 30.000 registros , la tabla
está indizada y tiene una llave primaria establecida, son 6 campos.

El problema es que un select normal tarda aprox 5 segundos en retornar el
resultado, esto es algo normal o se me está pasando algo ?
he aqui el codigo:


Dim LCStr_sql As String
Dim MLB_encontrado As Boolean
Dim reader As SqlCeDataReader
Dim cmd As New SqlCeCommand
MLB_encontrado = False
If Trim(Me.txt_codigo.Text) <> "" Then
LCStr_sql = "Select
art_nombre,ind_vende_suelto,cant_cajas,cant_sueltos from LOCAL where
art_id='" & Trim(Me.txt_codigo.Text) & "'"
cmd.CommandText = LCStr_sql
Try
lbl_nombre.Text = "BUSCANDO ..."
Windows.Forms.Application.DoEvents()
PMF_CONN_DISC(True)
cmd.Connection = ML_dbConnection
reader = cmd.ExecuteReader
While reader.Read()
lbl_nombre.Text = reader.Item("art_nombre").ToString()
lbl_cant_actual_cajas.Text =
reader.Item("cant_cajas").ToString()
lbl_cant_actual_sueltos.Text =
reader.Item("cant_sueltos").ToString()
If reader.Item("ind_vende_suelto") = "si" Then
frame_sueltos.Visible = True
Else
frame_sueltos.Visible = False
End If
MLB_encontrado = True
Windows.Forms.Application.DoEvents()
End While
reader.Close()
reader.Dispose()
cmd.Dispose()
PMF_CONN_DISC(False)
If MLB_encontrado = False Then
MsgBox("Artículo no encontrado")
LMS_Inicializa()
End If
Catch e As SqlCeException
lbl_nombre.Text = ""
ShowErrors(e)
End Try
End If


Saludos desde Costa Rica! : )

DISCLAIMER: «Este mensaje se proporciona "como está" sin garantías de
ninguna indole, y no otorga ningún derecho.»