orande

La verdad es que no se si se puede hacer, de todas maneras mirate el ejemplo este: http://support.microsoft.com/default.aspx?scid=kb;en-us;202480 No se si te ayudara...

Dim XL As Object Dim WS As Object Dim WK As Object Set XL = CreateObject("Excel.Application") 'Podemos crear un nuevo archivo Set WK = XL.Workbooks.Add WK.SaveAs Fichero 'O abrir uno ya existente Set WK = XL.Workbooks.Open(Fichero, 0, False, , , ,...

Lo siento pero no se puede. Utiliza el "Microsoft Hierarchical Flexgrid Control", es prácticamente lo mismo pero mucho más potente y flexible (puedes colorear una fila o una celda en concreto).

En este tema siempre me remito a la lo mismo: la maravillosa página del guille (http://guille.costasol.net/ejemplos/imagenes_ADODataControl.htm). Ahí encontraras las respuestas para la manipulación de imágenes con ADO en Access.

En principio no hay ninguna propiedad Align para el ListBox. Puedes probar a insertar los elementos en el ListBox con un tabulador delante: ListBox.AddItem vbTab & Texto Si no te vale, prueba a cambiar el ListBox por una rejilla de datos...

Tienes que hacer una consulta a la base de datos para contar el numero de registros: Dim rsAUX As ADODB.RecordSet Set rsAUX = New ADODB.RecordSet Set rsAUX.ActiveConnection = ? rsAUX.Open "Select count(*) as numregs from tabla where (calidad = 1045...

No entiendo la pregunta: ¿Qué es traer un archivo?. Si es abrirlo solo lo podrás mostrar correctamente en un control "Microsoft Rich TextBox Control". Si es otra cosa es que no he entendido bien la pregunta...

Lamento decirte que me temo que no vas a poder, ya que el formato rtf (a partir del cual se creo el control richttextbox, para su lectura y manejo) no admite tablas. Si te es muy imprescindible, prueba a utilizar un objeto word insertable, aunque...

Para probar, pon un botón con este código: Private Sub Command1_Click() If fbImprimirTreeView(TreeView1.Nodes("A0"), Empty) Then MsgBox "Correcto" End If End Sub Private Function fbImprimirTreeView(ByVal miNodo As MSComctlLib.Node, ByVal Margen As...

Prueba con esto: cadenaConexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & cadena & ";Jet OLEDB:Database Password=" & miclave