SoloCodigo

Buenos Dias Programadores....

Tengo un MSHFLexGrid que posee dos columnas fijas, la primera columna se encuentra agrupada, ya que posee el mismo contenido, y la agrupo en una celda única que abarca múltiples filas (en la segunda columna).
Mi  Problema es cuando deseo eliminar por esa celda unica que posee varias filas, hice un ciclo donde comparo, pero no me recorre toda la infomacion.
Como se hace para eliminar una celda que se encuentra agrupada junto con todas las filas asociadas a el....


Gracias Por su Ayuda  

Buenos Dias Comunidad
      Mi problema es que estoy haciendo una exportacion a excel donde el SQL esta en la aplicacion en Visual Basic, pero necesito una instruccion que me pueda traer los datos del padre asi no tengan hijos, hablando de una base de datos Access relacional.



Gracias de Antemano

Jeremy
   Al decir Set objExcel = Nothing , tan solo estas cerrando la sesion de visual basic sobre el objeto que referenciaste para Excel, mas no estas cerrando excel.
  Por lo que entiendo, la exportacion que haces no deseas que se vea y se manipule por el usuario, tan solo deseas exportar, quizas guardar y cerrar...Es lo que entiendo en cuanto al procedimiento que has hecho..
  Para cerrar la sesion de Excel sin interaccion alguna del usuario tan solo coloca el Quit al objeto que declaraste en visual Basic.

Por ejemplo: Declara una variable boolean y activala cuando levantes excel, luego

 If tbExcelEjecutandose = False Then
     toExcel.Application.Quit
  Else
     toExcel.Close
 End If

En la ayuda MSDN conseguiras un ejemplo completo de todo esto...es el codigo q te copio a continuacion tal cual esta en la ayuda...

' Declara las rutinas API necesarias:
Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName as String, _
               ByVal lpWindowName As Long) As Long

Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hWnd as Long,ByVal wMsg as Long _
               ByVal wParam as Long _
               ByVal lParam As Long) As Long

Sub GetExcel()
   Dim MiXL As Object   ' Variable que contiene la referencia
                        ' a Microsoft Excel.
   Dim ExcelNoSeEjecutaba As Boolean   ' Indicador para liberación final .

' Prueba para ver si hay una copia de Microsoft Excel ejecutándose.
   On Error Resume Next   ' Difiere la interceptación de errores.
' La llamada a la función Getobject sin el primer argumento devuelve una
' referencia a una instancia de la aplicación. Si no se está ejecutando
' se produce un error.
   Set MiXL = Getobject(, "Excel.Application")
   If Err.Number <> 0 Then ExcelNoSeEjecutaba = True
   Err.Clear   ' Borra el objeto Err si se produce un error.

' Comprueba Microsoft Excel. Si se está ejecutando Microsoft Excel,
' lo introduce en la tabla Running Object.
   DetectExcel

' Establece la variable de objeto para hacer referencia al archivo que desea ver.
   Set MiXL = GetObject("c:\vb4\MIPRUEBA.XLS")

' Muestra Microsoft Excel mediante su propiedad Application. Después
' muestra la ventana real que contiene el archivo mediante
' la colección Windows de la referencia de objeto MiXL.
   MiXL.Application.Visible = True
   MiXL.Parent.Windows(1).Visible = True
   ' Hace manipulaciones de su archivo aquí.
   ' ...
' Si no se está ejecutando esta copia de Microsoft Excel cuando
' comenzó, ciérrela con el método Quit de la propiedad Application.
' Observe que cuando intenta salir de Microsoft Excel, la barra de título
' parpadea y muestra el mensaje
' preguntándole si desea guardar los archivos cargados.
   If ExcelNoSeEjecutaba = True Then
      MiXL.Application.Quit
   End IF

   Set MiXL = Nothing   ' Libera la referencia a la
                        ' aplicación y a la hoja de cálculo.
End Sub

Sub DetectExcel()
' El procedimiento detecta que Excel está en ejecución y lo registra.
   Const WM_USER = 1024
   Dim hWnd As Long
' Si se está ejecutando Excel, esta llamada a la API devuelve el controlador.
   hWnd = FindWindow("XLMAIN", 0)
   If hWnd = 0 Then   ' 0 quiere decir que Excel no se está ejecutando .
      Exit Sub
   Else            
   ' Excel se está ejecutando, por lo que se utiliza la función SendMessage de la API
   ' para introducirlo en la tabla Running Object.
      SendMessage hWnd, WM_USER + 18, 0, 0
   End If
End Sub

xxxNeOxxx
    Te anexo un ejemplo, que lo puedes adaptar a lo que tienes...Espero te ayude.

xxxNeOxxx
     Primero debes llevar en la aplicacion un control de acceso de usuarios, donde cada uno tendra su codigo y password (no se si ya lo hiciste), el resto lo hace el manejador de Base de Datos, quien debe llevar la administracion de la misma, es decir debe existir una persona DBA bajo la plataforma base de MSSQL quien hara la entonacion de la BD en el servidor y las permisologias pertinentes de cada usuario o uno generico hacia el servidor donde se localizara la BD, eso depende de la forma de trabajar de cada DBA.
    Investiga un poco mas sobre la Plataforma donde estara la base de datos, recuerda que en todo Servidor existe permisologia a los usuarios, sea o no un servidor de base de datos....

Bueno Amigo, por lo que pude enteder de tu explicacion....Cada vez que alguien se conecte se te levanta la propiedad App.PrevInstance donde sera tu bandera para saber si cargas el winsock o no...
Si no es asi, redacta mejor tu problema por favor...


Espero te ayude de alguito...

Lenilax si deseas que visual reconozca el objeto DBGrid como una planilla excell debes trabajar con componentes, bajo la misma carpeta en el tab de Objetos Insertables, selecciona hoja de Calculo de Microsoft Excel.. lo agregas a tu formulario y realiza la conexion que mas te convenga, alli te reconoce todo como si fuera Excel...


 

Jose, Gracias por tu Ayuda... .
Pero te informo que ese es un serial logico, que se cambia automaticamente cuando formateas el DD...ese era el que estaba utilizando...Necesito es el serial fisico del DD...Es asi como las tarjetas PCI que poseen serial logico y fisico, bueno como todo hardware.



Gracias.....

Buenas Tardes Comunidad.....
    Necesito de su gran ayuda...... , requiero capturar el Serial Fisico del Disco Duro de la maquina donde se ejecuta el programa en visual basic.  He conseguido funciones en visual basic pero es para el serial logico, donde el mismo se cambia cuando se formatea el disco duro...Debe ser el fisico....


Mil Gracias de Antemano

Ya he desarrollado el Instalador de la Aplicacion hecha con VB6, BD Access y Crystal Report. Todo los hace bien, tan solo que no me registra los DLL y OCX que le agregue al Instalador.

Alguien por favor me podria ayudar, como se le dice en el setup Factory que debe registrarlo o la manera de ejecutar un archivo .Reg dentro del instalador, por que tampoco me hace esto para colocar el ODBC automaticamente.



Se los agradeceria enormemente...

Por favor, necesito reemplazar un archico que se localiza dentro de un archivo CAB y no se como, ya he usado dos Software y no me deja aññadir al cab o reemplazar los que estan dentro de este...Me podrian Ayudar ...



Gracias de Antemano

Te recomiendo, que si tienes instalado el Visual Studio, hagas el DLL con Visual C++, de ejemplo consulta esta paguina: http://alonso_m.tripod.com/visualc/creardll.htm  

Espero te sirva...