• Viernes 8 de Noviembre de 2024, 12:44

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Mañuquito

Páginas: [1]
1
VBA / Evento De Un Msflexgrid
« en: Jueves 15 de Noviembre de 2007, 21:46 »
Hola señores del foro,  necesito de su ayuda. El tema es el siguiente:

¿que evento de un MSFlexgrid puedo utilizar en mi codigo, para que al seleccionar una  de las filas de la grilla, pueda moverse el recordset ?

Agradesco su pronta ayuda, y si pueden facilitarme el codigo les agradeceria infinitamente, ya que llevo varios dias y no puedo resolverlo

nota:
- estoy trabajando con MSFlexgrid y no con el MSHFlexgrid, por q me han dicho que el MSHFlexgrid no se puede combinar colores en las celdas y por otras razones mas..

2
Visual Basic para principiantes / Mover Recordset De Un Msflexgrid
« en: Miércoles 25 de Julio de 2007, 16:31 »
hola  a todos, tengo un problema que lo eh tratado de resolver pero debido a mis limitaciones del msflexgrid me es algo dificultoso, por tal motivo espero me ayuden con lo siguiente:

el caso que deseo que al dar un evento click en msflexgrid en cualquiera de las filas, quiero que el recordset se mueva hacia esta esta ruta msflexgrid.textmatrix(msflexgrid.rowsel, 1)

saludos

manuel venero

3
Hola a todos, nuevamente necesito de su ayuda... el caso es:
tengo un MSHFLEXGRID q esta conectado a un Adodc, bueno sucede que al dar un
Adodc.recordset.movenext .. mi problema es en la grilla ya que quiero que cuando cambie el recordset tambien cambien de posicion la fila selecciona en la grilla... bueno la pregunta del millon seria ¿que evento utilizo en el adodc para que cuando cambie el recordset tambien cambie de posicion en el grid ???espero haberme dejado entender
le agradesco su pronta  ayuda...

4
VBA / Actualizar Msflexgrid
« en: Jueves 26 de Abril de 2007, 16:57 »
hola a todos...bueno les cuento que logre conectar un dataenviroment con instruccion sql en un msflexgrid con este codigo

Dim rs As New ADODB.Recordset

Private Sub Form_Load()
DataZaga.rsCmdclientes1.Open
DataZaga.rsCmdClientes.Open
Set rs.DataSource = DataZaga.rsCmdclientes1
configurar_grilla
Do While Not rs.EOF
Grid1.AddItem rs.Fields("COD_CLIENTE") & vbTab & rs.Fields("RAZON_SOCIAL")
rs.MoveNext
Loop
End Sub

cabe precisar que tengo un frm con cuadros de texto y estos esta conectados a la base de datos, bueno cuando ingresos datos y pongo guardar este no me aparece en mi grid, tengo que cerrar y volver a abrir el proyecto para que aparesca: como actualizo el grid1  o en dataenviroment
se que debo desconectar el dataenviroment y el grid y luego conectar nuevamente pero como,, estoy intentando con esto pero creo que falta algo

With DataZaga.rsCmdclientes1
        If .State = adStateOpen Then
        .Close
        End If
        If .State = 0 Then
        .Open
        End If
 End With

agracedecere infinitamente al que me ayude

5
VBA / Re: Conectar Un Dataenviroment En Un Msflexgrid
« en: Sábado 21 de Abril de 2007, 14:12 »
luciano graciaspor tu ayuda pero sucede que me va mostrar toda la tabla y solo quiero unos 4 campos..  o me equivoco?
gracias manuel

6
VBA / Re: Conectar Un Dataenviroment En Un Msflexgrid
« en: Viernes 20 de Abril de 2007, 16:20 »
sr. angel muchas gracias por su ayuda... pero no logre ubicar el ejemplo que usted puso...de todas maneras muchas gracias nuevamente

7
VBA / Conectar Un Dataenviroment En Un Msflexgrid
« en: Jueves 19 de Abril de 2007, 23:26 »
hola a todos, tengo un problema y les agradecere infinitamente al que pueda ayudarme... miren estoy tratando de elaborar un sistema de facturacion en mi trabajo...es una pequeña empresa pero se que les va ser util.. creo que de la "A" a la "Z" estoy en la A, digo esto por que estoy comenzando por hacer mantenimientos de clientes, proveedores y otros...el caso es que logre enlazar un dataenviroment con instruccion sql en un DataGrid y me funciona como queria pero no el 100% ya que mi intencion tambien era dar colores a las columnas filas ect... ahora viendo en varios foros recomiendan utilizar el MSFlexgrid (Microsof FlexGrid control 6.0) pero no tengo conocimento de este pero se que es bueno siempre aprender y se que me ayudaran..
bueno anteriormente usando el datagrid me era facil por que tan solo ponia en propiedades : datasource:Datazaga y en datamember:Cmdclientes1 y listo

mi pregunta es como hacer con MsFlexgrid, ahora llevo varios dias y tengo esto en mi codigo, pero quiero conectar el dataeviroment.. presumo que tengo que cambiar algo aqui nomas..bueno si estoy equivocado le agradecere corregirlo

Dim Cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
ChDir App.Path
Cn.ConnectionString = "Zaga.mdb"
Cn.Open
rs.Open "SELECT * FROM CLIENTE", Cn, adOpenKeyset, adLockOptimistic
rs.MoveFirst
configurar_grilla
Do While Not rs.EOF
Grid1.AddItem rs.Fields("COD_CLIENTE") & vbTab & rs.Fields("RAZON_SOCIAL")& vbTab & rs.Fields("NOMBRE_COMERCIAL") & vbTab & rs.Fields("RUC")
rs.MoveNext
Loop
End Sub

Private Sub configurar_grilla()
On Error GoTo err
With Grid1
.FixedCols = 0
.Cols = 0
.FixedRows = 1
.Rows = 1
.SelectionMode = flexSelectionByRow
.AllowUserResizing = flexResizeColumns
.FormatString = " Codigo |Razon Social |Nombre "
End With
Exit Sub
err:
Resume Next
End Sub

gracias, manuel

Páginas: [1]