09/03/2005, 19:03
|
 | | | Fecha de Ingreso: febrero-2005
Mensajes: 81
Antigüedad: 20 años, 2 meses Puntos: 0 | |
| Te recomiendo que utilices el control Microsoft Hierarchical Flex Grid, que es un poco más flexible que el MSflexgrid (para mi gusto), para hacer lo que tu dices, yo lo hago de la siguiente manera.
private Sub Text1_Change()
Dim rst as ne Adodb.Recordset
Dim Sql As String
With rst
sql = "Select * from tabla where nombre = '" & text1 & "'"
.source = sql
set .activeconnection = MiConexion
.open
if not .eof and not .bof then
Set Flex1.Recordset = Rst
Flex1.Refresh
end if
End With
End Sub |