Visual Basic - Coneccion,Command,Recordset

Life is soft - evento anual de software empresarial
   
Vista:

Coneccion,Command,Recordset

Publicado por Damian (5 intervenciones) el 13/06/2009 22:01:36
Hola quisiera saber porque cone sta sentencia solo se muestra un solo registro de mi base cuando en realidad hay mas.

Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset

cnn.Open "DSN=Base_Stock;uid=sa;pwd=;" 'Abro una coneccion
Set cmd.ActiveConnection = cnn
cmd.CommandText = "SELECT * from MLOCA" 'Creo un comando
rst.CursorLocation = adUseClient 'Ejecuto el comando
rst.Open cmd, , adOpenStatic, adLockBatchOptimistic

txt_Codigo_Localidad.Text = rst!CLOC
txt_Descripcion_Localidad.Text = rst!DLOC
txt_Provincia_Localidad.Text = rst!PROV
txt_Codigo_Postal.Text = rst!POST

Cuando intento mover el rst para adelante o para atras no hay caso, pero no me interrumpe el programa simplemente no estan los demas registros.

Agradeceria su ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Pantone color
- tip del dia
- Juego del ahorcado

RE:Coneccion,Command,Recordset

Publicado por Rolando Lau (115 intervenciones) el 15/06/2009 20:04:03
Reviza cuantos registros te trae rst.recordCount , si sale 0 entonces si te trae un registro de lo contrario , el rst no lo estas avanzando com odeberias. (rst.movenext ) y luego nuevamente:

txt_Codigo_Localidad.Text = rst!CLOC
txt_Descripcion_Localidad.Text = rst!DLOC
txt_Provincia_Localidad.Text = rst!PROV
txt_Codigo_Postal.Text = rst!POST

los controles no se actualizan solos , cada vez que le hagas un move next nuevamente tienes que cargar los controles.

Espero te sirva saludos..

Rolando
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar