Temas

[tabla:localidad]

hola a todos, en esta ocasion necesito vuestra ayuda.

el tema es que tengo 2 datacombo que estan enlazados con adodc.
estos son: datacombo(1) esta concectado con AdoLocalidad y datacombo(2) con AdoDepartamento

el adoLocalidad esta enlazado con la tabla
tabla:localidad
id_localidad (clave principal)
nomb_localidad
id_departamento

y el adodepartamento con la tabla
tabla:departamento
id_departamento (clave principal)
nomb_departamento

los campos id_departamento de las dos tablas estan relacionados en acess.
una vez llenado de datos las dos tablas
necesito que cuando haga un click en cualquier opcion del datacombo(2) el datacombo(1) me muestre solo datos que se relacionen con el departamento que figura en el datacombo(2).

es posible hacer esto?, solicito ayuda, gracias

Hola señores del foro, necesito de su ayuda. El tema es el siguiente:
tengo un MSFlexgrid en vista de diseño conectado con una base de datos access mi pregunta es.

¿que evento de un MSFlexgrid puedo utilizar en mi codigo, para que al mover con las direccionales del teclado o con un click en cualquiera de las filas de la grilla, pueda moverse el recordset ?

Este problema no me sucedia con el datagrid, ya que ahi podia mover con las direccionales del teclado y tambien cambia de posicion el recordset

agradezco 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..

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

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 agradezco su pronta ayuda...

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 aparezca: 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

hola amigos disculpen que insista con una pregunta que puse en otro post... mi intencion es conectar un dataenviroment en un Hierarchical FlexGrid Control

Dim rs As New ADODB.Recordset

Private Sub Form_Load()
     DataZaga.rsCmdclientes1.Open
     rs.Source = "Select * From CLIENTE"
    * Set rs.ActiveConnection = DataZaga.rsCmdclientes1
     rs.Open
     Set Grid1.DataSource = rs
     DataZaga.rsCmdClientes1.Close
End Sub

sucede que me muestra un error en:
en la linea que esta el *
error 3001 en tiempo de ejecucion
argumentos incorrectos, fuera del intervalo permitido o en conflictos con otros

endonde esta mi error ayudenme porfavor.

como conectar un dataenviroment en un Msflexgrid que pasos debo seguir..

saludos manuel

hola todos... quisiera saber como puedo enlazar datos de access a un MSFlexgrid (lo necesito como consulta)... o en todo caso una pagina donde enseñen a utilizar todo acerca de MSFlexgrid....

les agradezco su pronta ayuda
saludos
manuel

hola señores... les comento que casi estoy concluyendo con mi trabajo... pero quisiera personalizar el datagrid (dar color a las filas, que el tamaño de la columna sea mas grande para que se visualice el contenido de las filas..) alguien podria mostrar una pagina donde expliquen como hacerlo... encuentro varios pero ninguno en visual basic 6.0... estare muy agradecido...
saludos

hola amigos una vez mas molestandolos... es que deseo saber como puedo hacer que las columnas de un datagrid se agranden automaticamente deacuerdo al mayor tamaño del registro que lo contiene (es que no quiero estar arrastrando con el mouse el encabezado para poder leer )

necesito ponerlo aqui:
private sub form_load ()

end sub
saludos...

hola señores, necesito su ayuda ,. mi caso es que tengo un procedimiento que esta en un modulo.. lo pusse ahi por q necesito llamar a ese procedimiento en un momento indicado...el procedimiento es:
como hago para llamar a este procedimiento de un cmdaceptar que esta en frm1..nesecito llamar al procedimiento enfocar1.. gracias por su ayuda

Private Sub Enfocar1()
Set DataGrid1.DataSource = Nothing \'esto lo desconecta del origen de datos
    With DataZaga.rsCmdclientes1
        If .State = adStateOpen Then
        .Close
        End If
        If .State = 0 Then
        .Open
        End If
    End With
Set DataGrid1.DataSource = [DataZaga] \'El nombre del origen de datos cuando es un dataenvironmet va entre corchetes
Call Enfocar2
End Sub
Private Sub Enfocar2()
X = DataZaga.rsCmdClientes.Fields(\"cod_cliente\")
        DataZaga.rsCmdclientes1.MoveFirst
        DataZaga.rsCmdclientes1.Find \"cod_cliente=\'\" & X & \"\'\"
        If Not (DataZaga.rsCmdclientes1.BOF Or DataZaga.rsCmdclientes1.EOF) Then
End If
\'X = DataZaga.rsCmdClientes.Fields(\"cod_cliente\").Value
X = DataZaga.rsCmdclientes1!cod_cliente
End Sub

hola a todos , mi pregunta es:
como puedo llamar a un procedimiento que esta en un modulo
desde un cmdaceptar que esta en un frm1

esto es lo que tengo en mi modulo

Private Sub Form_Paint()
FORM_ACTIVATE
End Sub

Private Sub FORM_ACTIVATE()
Set DataGrid1.DataSource = Nothing \'esto lo desconecta del origen de datos
    With DataZaga.rsCmdclientes1 \'Acá había un error en el nombre de recordset
        If .State = adStateOpen Then
        .Close
        End If
        If .State = 0 Then
        .Open
        End If
    End With
Set DataGrid1.DataSource = [DataZaga] \'El nombre del origen de datos cuando es un dataenvironmet va entre corchetes
Call ENFOCAR
End Sub

hola señores, nesecito una ayuda, el caso es que necesito saber en que bookmark de rscmdclientes esta ubicado la variable x

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
    Case 3:
        DataZaga.rsCmdClientes.AddNew
        FrmProveedorCliente.Show vbModal
    Case 4:
        X = DataZaga.rsCmdclientes1.Fields( \"cod_cliente \") \'aqui la variable toma este valor \"20476510695\" por que yo ubique el puntero en ese registro de datagrid 
\' que codigo hago aqui para que busque la variable X EN rsCmdclientes y que luego saber cual es su bookmark ????
       
         DataZaga.rsCmdClientes.Bookmark = X
         FrmProveedorCliente.Show vbModal
End Select
End Sub


gracias y saludos

que codigo debo poner para cuando enfoque o seleccione algun registro de un datagrid1.. me muestre el index

hola señores, necesito de su ayuda, para eso les doy un alcanze como lo estoy trabajando:
tengo un  datagrid1 que esta en un frm1 con propiedades:
datasource: datazaga
datamember: cmdclientes1 (origen de datos INSTRUCCION SQL)
luego en el frm2 tengo 14 textbox, con propiedades:
nombre: txtcliente
index: del 0 al 13
datasource: datazaga
datamember: cmdclientes (origen de TABLA)
datafield: los campos de la tabla de clientes de access respectivamente...
todo esto lo estoy diseñando en dataenviroment

el caso es que cuando este en el datagrid1 y de un click en algun registro... me muestre el frm2, pero q sus textbox muestren los datos antes seleccionado del datagrid1...si no logran entenderme ruego me informen para un mejor detalle gracias

hola señores, alguien podria decir donde esta el error, sucede que quiero que el datagrid1 se conecte con el origen de datos
en tiempo de ejecucion.

Private Sub form_Activate()
Set DataGrid1.DataSource = Nothing \\\'esto lo desconecta del origen de datos
DataGrid1.ReBind \\\'esto redibuja el control sin datos claro
   
   With DataZaga.rsCmdClientes
        If .State = adStateOpen Then
        .Close
        End If
    End With
   
   With DataZaga.rsCmdClientes
        If .State = 0 Then
        .Open
        End If
    End With
    
    Set DataGrid1.DataSource = DataZaga.rsCmdClientes \\\'conectar nuevamente
End Sub



saludos

tengo este formularios:
MDIzaga este contiene 2 formularios: frmconsultacliente y frmcliente
lo que intengo hacer es:

hay una opcion en mi barra de menu del MDIzaga, la cual me llama al frmconsultacliente y cuando este me aparece este tiene una opcion que me llama al frmcliente

lo que quiero es que cuando este en frmcliente no pueda salir de esta ventana hasta lo cierre, y cuando cierre frmcliente regrese al frmconsultacliente ¿cual es el codigo que debo poner para que cuando entre al frmcliente no pueda moverme a otro frm

anexo los formularios para que se den una idea

hola, le explico lo que deseo hacer:



este datagrid1 lo estoy utilizando de consulta conectado con un DataEnvironment. en la imagen como se muestra esta seleccionado uno de las filas(o registro), mi siguiente paso es dar click en la segunda figura del Toolbar1 que para mi es modificar y cuando este evento ocurra me muestre el frmcliente pero que en este frmproveedorcliente me muestre los datos del registro que estuvo selecionado
el problema es que los texbox del frmproveedorcliente me jala el ultimo registro
en conclusion¿que codigo debo poner para que al hacer click en la figura de modificar, me muestre el frmproveedorcliente y que los textbox de este frmproveedorclientes jale las que estuvo selecionada anteriormente en el datagrid1 del frmconsultaproveedorcliente?
nota: los textbox del frmproveedorclientes.. estan conectatos con dataenviroment

hola, le explico lo que deseo hacer:



este datagrid1 lo estoy utilizando de consulta conectado con un DataEnvironment. en la imagen como se muestra esta seleccionado uno de las filas(o registro), mi siguiente paso es dar click en la segunda figura del Toolbar1 que para mi es modificar y cuando este evento ocurra me muestre el frmcliente pero que en este frmproveedorcliente me muestre los datos del registro que estuvo selecionado
el problema es que los texbox del frmproveedorcliente me jala el ultimo registro
en conclusion¿que codigo debo poner para que al hacer click en la figura de modificar, me muestre el frmproveedorcliente y que los textbox de este frmproveedorclientes jale las que estuvo selecionada anteriormente en el datagrid1 del frmconsultaproveedorcliente?
nota: los textbox del frmproveedorclientes.. estan conectatos con dataenviroment

hola señores, necesito su ayuda por favor
QUIERO INABILITAR(ENABLED) UN ICONO QUE SE ENCUENTRA EN UN TOOLBAR¿CUAL ES SU CODIGO?

hola señores mi problema es el siguiente:
quiero que aparezca un dibujo en un command button y que este dibujo se ubique en una esquina para poder escribir un texto en este command button
esperando su comprension y su pronta respuesta me despido su amigo manuel lima - peru

hola amigos alguien puede decirme por que razon no se inserta la imagen
nota: esto es lo que digite, ovio sin comillas ('), haber si me corrigen
['img width=48 height=48]c:\dispositivo.gif[/img]

hola todos, tengo un problemita, haber si me pueden ayudar.
nesecito saber como puedo generar un codigo que se sume consecutivamente con el ultimo registro de un  campo  de una tabla de access que no es autonumerico, que esto ocurra cadavez que trate de guardar un registro

nota:
estoy trabajando con ADODC en visual basic
en access no estoy trabajando con autonumerico,

les agradezco de ante mano su pronta respuesta
su amigo manuel