Problema con consulta en SQL para Visual basic
Hola buenas,
Estoy tratando de hacer una consulta muy muy sencilla en VB6 para access03. El código es el siguiente:
Private Sub Form_Load()
Dim DDBB As Database
Dim TBL As Recordset
Dim SQL As String
SQL = "SELECT ENTIDAD_CIF,ENTIDAD_TIPO,ENTIDAD_NOMBRE,ENTIDAD_RAZON_SOCIAL FROM ENTIDAD WHERE ENTIDAD_CONTACTADA='Si'"
Set DDBB = OpenDatabase("C:\Users\Rafa\Documents\Empresas\Access\Empresas.mdb")
Set TBL = DDBB.OpenRecordset(SQL)
Label3.Caption = TBL.RecordCount
Text2.Text = SQL
End Sub
El problema es que en vez de devolverme una tabla con los distintos registros que cumplen la condición (es decir, ENTIDAD_CONTACTADA='Si') lo que ocurre es que me devuelve unicamente el primer registro de la tabla que cumple la condición.
He estado días intentando subsanar este error, pero no consigo detectarlo... Si pudieras echarme una mano te estaría muy agradecido.
Un saludo y gracias de antemano.
Estoy tratando de hacer una consulta muy muy sencilla en VB6 para access03. El código es el siguiente:
Private Sub Form_Load()
Dim DDBB As Database
Dim TBL As Recordset
Dim SQL As String
SQL = "SELECT ENTIDAD_CIF,ENTIDAD_TIPO,ENTIDAD_NOMBRE,ENTIDAD_RAZON_SOCIAL FROM ENTIDAD WHERE ENTIDAD_CONTACTADA='Si'"
Set DDBB = OpenDatabase("C:\Users\Rafa\Documents\Empresas\Access\Empresas.mdb")
Set TBL = DDBB.OpenRecordset(SQL)
Label3.Caption = TBL.RecordCount
Text2.Text = SQL
End Sub
El problema es que en vez de devolverme una tabla con los distintos registros que cumplen la condición (es decir, ENTIDAD_CONTACTADA='Si') lo que ocurre es que me devuelve unicamente el primer registro de la tabla que cumple la condición.
He estado días intentando subsanar este error, pero no consigo detectarlo... Si pudieras echarme una mano te estaría muy agradecido.
Un saludo y gracias de antemano.
1 respuesta
Respuesta de Roberto Alvarado
1
Lo que debes hacer es recorrer el recordset que devuelve DAO, como solo haces relación al primer registro por eso solo vez el primero.
Debes usar un while, o un for .. next para recorrer el recordset y poder mostrar cada uno de los registros.
Coloca una grilla o un listview para mostrar los registros.
Debes usar un while, o un for .. next para recorrer el recordset y poder mostrar cada uno de los registros.
Coloca una grilla o un listview para mostrar los registros.
Gracias, ya he resuelto el problema que tenia, pero ahora me viene otra duda: cómo puedo colocar una "grilla" (supongo que es una tabla, ¿no?) ¿En un formulario? (Sin que sea un objeto OLE (de excel, por ejemplo)). Muchas gracias.
Utiliza el objeto Grid, o el objeto MSFlexgrid, o el ListView para mostrar datos como una grilla.
