[VB6.0]ADODB cargar solo datos con valores

[ŞCØRPIØN-X3]

Hola, estoy cargando una base de datos en un datagrid usando ADODB y lo que necesito es que solo se carguen aquellos datos que posean valores, es decir porejemplo en el caso de una base de datos de contactos en el que hay 2 columnas : "Nombre" ; "Teléfono" yo lo que quiero hacer es que en el datagrid solo me cargue aquellos que posean valores en las columnas "Nombre" y "Teléfono", porque algunos poseen nombre pero no telefono y estos no quiero que se carguen xD.

ah y otra cosa, como ago para que el scrollbar del datagrid funcione al deslizarlo?, osea yo cuando lo muevo manteniendo presionado el click en la barra no se mueve la lista, la lista recien se mueve cuando suelto el click :S


Espero que me hayan entendido y me puedan ayudar Gracias de antemano

[seba123neo]

Hola, te recomiendo no usar datagrid y si usar el MSHFlexgrid es mucho mas personalizable y mas lindo de interfaz, simplemente tenes que realizar una consulta a la base de datos, algo como esto:

"SELECT * FROM Tabla WHERE telefono<>'' AND nombre<>''"

esa consulta se la pasas a un recordset y se lo asignas al datasource del datagrid (o flexgrid)

saludos.

[ŞCØRPIØN-X3]

hola grax por la respuesta, te are caso y utilizare ese Grid , parece que no me di a entender bien xD, la aprte de obtener los datos ya lo tengo echo pero el problema es que algunos datos tienen nombre pero no telefono, y estos no quiero que se agreguen al grid. Porejemplo tengo lo siguiente en la BD:

NOMBRE      TELEFONO

Mario            VACIO
Manuel         4-542587
Juan             4-362487
Carlos           VACIO
Esteban         4-352548

en este caso en mi grid tiene que agregarse sólo Manuel, Juan y Esteban, Mario y Carlos no porque no poseen número de teléfono.

de esta manera me conecto con la BD:

Código [Seleccionar] Expandir

Public cnn As New ADODB.Connection
Public rs As New ADODB.Recordset

Private Sub Form_Load()

cnn.CursorLocation = adUseClient
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        App.Path & "\Agenda.mdb" & ";Persist Security Info=False"

rs.Open "SELECT * FROM Personas", cnn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs

End Sub

[seba123neo]

entonces en vez de usar AND en la consulta que te pase usa OR

[ŞCØRPIØN-X3]

Muchas gracias ya me funciono, estaba bien el primer code que me habias pasado nada mas que yo me habia confundido al ubicarlo xD. Muchas gracias

SOLUCIONADO