Mejorar la Obtencion de Datos, para desplegarlos, via ODBC

[Jamsito]

Que tal compañeros

Con una consulta.

Tengo una Forma (form, ventana) que despliega mucha informacion de cierto producto, esta se abre luego que se selecciona dicho producto.

en esta ventanita tengo Textbox en los cuales yo coloco la informacion de la base de datos :)

ahi todo bien, la cuestion es que tarda mucho en abrir (15 segundos) mientras que las demas formas del programa no tardan ni 1 segundo en abrir entonces si se nota la diferencia con esta

yo estoy usando conexion odbc, y este es mi codigo, el cual busca el primer registro de la tabla y lo obtiene, luego busca otro registro y lo trae, todos estos registros los guardo en variables las cuales yo las coloco en los Textbox antes mencionados

el problema es que hago un select por cada campo que obtengo de la base de datos , les deje un ejemplo de 4 campos que obtengo

Código SQL:

' Aqui me conecto
Dim conexionODBC As New OdbcConnection
Dim cadenaConexion As String = ("dsn=" & varGlobalServer & ";uid=" & varGlobalUsuario & ";pwd=" & varGlobalContrasena & ";")
conexionODBC.ConnectionString = cadenaConexion
conexionODBC.Open()
 
'Aqui hago las consultas a la BD
Dim varDesProducto AS NEW OdbcCommand("Select DESCRIPCION_PROD from MAESTRO_PRODUCTOS WHERE PRODUCT0='" & txtCodProducto.Text & "'", conexionODBC)
Dim varDesCodUni AS NEW OdbcCommand("Select DESCRP_UNIDAD_VENTA from UNIDADES_DE_VENTA WHERE CODIGO_UNIDAD_VENTA='" & txtCodigoUnidad.Text & "'", conexionODBC)
Dim varDesBodega AS NEW OdbcCommand("Select DESCRIPCION_BODEGA from MAESTRO_DE_BODEGAS WHERE CODIGO_BODEGA='" & txtCodBodega.Text & "'", conexionODBC)
Dim varDesUbi AS NEW OdbcCommand("Select DESCRIP_UBICACION from UBICACIONES WHERE CODIGO_DE_UBICACION='" & txtCodUbi.Text & "'", conexionODBC)
 
'Aqui coloco en los Textbox el valor obtenido en las consultas de arriba, pero antes evaluo si hay un nulo, puesto que si encuentra nulo y no verifico el programa da error
If IsDBNull(varDesProducto.ExecuteScalar) Then
            txtDescProducto.Text = ""
Else
            txtDescProducto.Text = varDesProducto.ExecuteScalar
End If
If IsDBNull(varDesCodUni.ExecuteScalar) Then
            txtDescUnidad.Text = ""
Else
            txtDescUnidad.Text = varDesCodUni.ExecuteScalar
End If
If IsDBNull(varDesBodega.ExecuteScalar) Then
            txtDescBodega.Text = ""
Else
            txtDescBodega.Text = varDesBodega.ExecuteScalar
End If
If IsDBNull(varDesUbi.ExecuteScalar) Then
            txtDescUbicacion.Text = ""
Else
            txtDescUbicacion.Text = varDesUbi.ExecuteScalar
End If
 

bueno y asi con un monton de campos que obtengo de la base de datos., en el ejemplo de arriba consulto de distintas tablas , pero hay veces que necisto info de la misma tabla

yo quisiera saber si hay un metodo de tirar solo una consulta y luego obtener los campos individualmente y meterlos en los textobx para desplegarlos, supongo que esto seria mucho mas rapido.

me comentan que en visual 5 existe algo que se llama recordset , pero no se a que se refiere y ando perdido en el tema

talvez alguien me puede ayudar

Gracias de antemano

[drako_darpan]

Puedes usar un TOP 1 en tus consultas si es en SQL, si es en Postrge usa el LIMIT 1, si solo ocupas consultar el primer campo con eso lo puedes hacer.

Puedes usar un SP, si tienes campos que se crucen puedes usar un join y en una consulta obtienes 2 campos sin necesidad de hacer tantas consultas.

La otra es en un SP ir asignando a variables los valores, pero el TOP 1 se me hace que es mas rapido.

[Jamsito]

Iniciado por drako_darpan

Puedes usar un TOP 1 en tus consultas si es en SQL, si es en Postrge usa el LIMIT 1, si solo ocupas consultar el primer campo con eso lo puedes hacer.

Puedes usar un SP, si tienes campos que se crucen puedes usar un join y en una consulta obtienes 2 campos sin necesidad de hacer tantas consultas.

La otra es en un SP ir asignando a variables los valores, pero el TOP 1 se me hace que es mas rapido.

gracias por responder, la cuestion es que para eso sirve el execute scalar te obtiene la primer fila, con la restriccion de la consulta no hay problemas

lo que yo quisiera es poder tirar un select y luego poder agarrar cada campo de ese select y meterlo a una variable para luego desplegarlo en pantalla :)

[Aquaventus]

Creo que la optimizacion del query lo puedes consultar en el Foro de SQL estimado Jamsito. Saludos!.

[Jamsito]

Iniciado por Aquaventus

Creo que la optimizacion del query lo puedes consultar en el Foro de SQL estimado Jamsito. Saludos!.

vuelvo abrir el tema o como seria jejejeje..

lo coloque aqui por que pienso que lo que lentea la forma es el codigo del visual basic

los commands y los execute.scalar

saludos

[drako_darpan]

Hola que tal, puedes hacer un SP como te comente y mandarle los parametros. Luego haces la consulta y lo asignas a variables que son las que regresarias:

Código SQL:

DECLARE @sDecripcion VARCHAR(20),
        @sUnidad VARCHAR(20),
        @sBodega VARCHAR(20),
        @sUbicacion VARCHAR(20)
 
SELECT TOP 1 @sDecripcion = DESCRIPCION_PROD FROM MAESTRO_PRODUCTOS WHERE PRODUCT0='X'
SELECT TOP 1 @sUnidad = DESCRP_UNIDAD_VENTA FROM UNIDADES_DE_VENTA WHERE CODIGO_UNIDAD_VENTA='Y'
SELECT TOP 1 @sBodega = DESCRIPCION_BODEGA FROM MAESTRO_DE_BODEGAS WHERE CODIGO_BODEGA='123'
SELECT TOP 1 @sUbicacion = DESCRIP_UBICACION FROM UBICACIONES WHERE CODIGO_DE_UBICACION='Z'
 
SELECT @sDecripcion AS Decripcion, @sUnidad AS Unidad, @sBodega AS Bodega, @sUbicacion = Ubicacion
 

Y con eso obtienes los valores que necesitas, asi solo haces una consultar al SP y el se encarga de todo lo demas.

Al recibir los valores ocuparias un reader y con eso asignarlo a los campos.

[Jamsito]

Iniciado por drako_darpan

Hola que tal, puedes hacer un SP como te comente y mandarle los parametros. Luego haces la consulta y lo asignas a variables que son las que regresarias:

Código SQL:

DECLARE @sDecripcion VARCHAR(20),
        @sUnidad VARCHAR(20),
        @sBodega VARCHAR(20),
        @sUbicacion VARCHAR(20)
 
SELECT TOP 1 @sDecripcion = DESCRIPCION_PROD FROM MAESTRO_PRODUCTOS WHERE PRODUCT0='X'
SELECT TOP 1 @sUnidad = DESCRP_UNIDAD_VENTA FROM UNIDADES_DE_VENTA WHERE CODIGO_UNIDAD_VENTA='Y'
SELECT TOP 1 @sBodega = DESCRIPCION_BODEGA FROM MAESTRO_DE_BODEGAS WHERE CODIGO_BODEGA='123'
SELECT TOP 1 @sUbicacion = DESCRIP_UBICACION FROM UBICACIONES WHERE CODIGO_DE_UBICACION='Z'
 
SELECT @sDecripcion AS Decripcion, @sUnidad AS Unidad, @sBodega AS Bodega, @sUbicacion = Ubicacion
 

Y con eso obtienes los valores que necesitas, asi solo haces una consultar al SP y el se encarga de todo lo demas.

Al recibir los valores ocuparias un reader y con eso asignarlo a los campos.

excelente!!!!!!!!!!!!!!!!