Visual Basic - Ayuda con MSFlexgrid

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Ayuda con MSFlexgrid

Publicado por Israel Aguilera (6 intervenciones) el 30/10/2005 21:47:49
la consulta es la siguiente, quiero que en cuadro de texto al momento de ingresar un rut y hacer enter o click en command, me muentre la información en un MSFlexigrid , de la tabla permisos.

La base de datos, esta conformada con 3 tablas de las cuales un de ellas se llama permisos, de esta necesito mostrarla por un MSFlexigrid, pero el usuario debe tener la opcion de realizar una busqueda del trabajo del cual quiere obtener la información que ene este caso son los registro d elos permisos solicitados por este.

Agardezco sus respuesta, cualquier duda pueden escribirme a mi correo, desde ya muchas gracias.
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

RE:Ayuda con MSFlexgrid

Publicado por Arnaldo (53 intervenciones) el 31/10/2005 02:08:38
Hola, haber si entendi, te doy un ejemplo si vos queres saver que permisos tiene determinada persona para ingresar a algun lugar. Lo que voy a hacer es a partir del ID de la persona te muestro los permisos de esa persona en el MSFlexGrid.
Cuento con una Tabla Personas y una Tabla Permisos.

Private Sub Form_Load()
Dim x As Integer

MSFlexGrid1.FormatString = "Codigo | Descripcion | Fecha Emitido | Nombre"
For x = 0 To 3
MSFlexGrid1.ColWidth(x) = 1000
Next x
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
Dim cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim Fila, SQL As String
Dim x As Integer

SQL = "SELECT Permiso.*, Personas.ID, Personas.Nombre, Personas.Codigo" _
& "FROM Personas INNER JOIN Permiso " _
& "ON Personas.Codigo = Permiso.Codigo " _
& "WHERE Personas.Codigo =" val(text1.text) & "; "

cn.Open "DSN=EjemploLWP.mdb"
Rs.CursorType = adOpenStatic
Rs.LockType = adLockBatchOptimistic
Rs.Open SQL, cn, , adLockBatchOptimistic

If Rs.EOF = False Then
Rs.MoveFirst
While Rs.EOF = False
Fila = Rs.Fields("Codigo").Value & vbTab & Rs.Fields("Descripcion").Value & vbTab & Rs.Fields([Fecha emitido]).Value & vbTab & Rs.Fields("Nombre").Value
MSFlexGrid1.AddItem Fila
Rs.MoveNext
Wend
End If
Rs.Close
Set Rs = Nothing
cn.Close
End If
End Sub

la ultima columna del MsFlexGrid, correspode al nombre de la persona que tiene el codigo a partir delcual hiciste la llamada a la consulta.
Bueno espero que te sirva de ayuda.

Arnaldo
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