SoloCodigo

Hola Taursoft.

No conozco el control del que hablas, pero puedes utilizar el examinador de objetos de vb (pulsa F2) para averiguar sus propiedades, métodos, eventos, enumeraciones, ... y si tienes suerte y hay definida ayuda para el control, pues ya tienes casi todo el camino andado.
De todas formas, con un poco de imaginación, conociendo algo de inglés y probando puedes ir aprendiendo cosas del control.

Suerte.

Hola Ce5aR.

¡Guarda los datos en un archivo de texto!

Tal vez podrías especificar más que necesitas:
-Saber cómo escribir datos en un archivo en el disco.
-Saber obtener los valores de filas y columnas del flexGrid.
-Ambas cosas.

Chao.

Hola javiburgo.

Aquí te adjunto el ejemplo del que te hablé. Ten en cuenta en la cadena de conexión del control data, especificar la ruta adecuada a la vía de acceso de la base de datos (originalmente 'C:BorrarEjemploDbGbd1.mdb'). Ya verás como funciona.

Nada más. Espero que te preste.
Abur.

Prueba con un select de este estilo:

SELECT factura.*,cliente.nombre FROM factura LEFT JOIN cliente ON factura.dni=cliente.dni WHERE factura.codfactura='F99999'

donde F99999 sería el código de la factura.

También podrías utilizar el método EXECUTE del command que tengas y hacer directamente: DELETE FROM factura WHERE codfactura='F99999'
 de esta última forma aseguras obtener el resultado que esperas (recuerda luego refrescar el recordset que tengas con las facturas para que se reflejen los cambios).

A ver si con esto puedes arreglar... Abur.

Échale un vistazo por si te sirve http://foros.solocodigo.com/viewthread.php?tid=4723

Disculpas MindEye.

Ahora que leo bien (y mira que me lo decían en el colegio...) dices que son dos los campos que no te cambian, por lo que supongo que el resto sí (a pesar del detalle que apuntaba del WHERE...). Yo probaría usando las comillas de esta forma:

... & " , Editando='No' , [Sociedad Civil]='" & iif(option.value,"Si","No") & "' , [Fecha Alta]=" ...

A ver si así... prueba y ya contarás.
Abur

Hola Jose.

Fijate en este ejemplo. Enumera el nombre de las impresoras confiuguradas y asigna al objeto printer la última de ellas.

Dim int1 as integer
For int1 = 0 To Printers.Count - 1
       MsgBox Printers(int1).DeviceName
Next int1
Set Printer = Printers(int1-1).DeviceName

A ver si esto te sirve.
Chao.

Oye, ahora que lo pienso necesito una aclaración:

Supongo que estás utilizando un ListBox incluido en FM20.dll (Microsoft Forms 2.0), como los de access... ya que si estás utilizando un ListBox normal y corriente, la propiedad 'Columns' del mismo sólo se refiere a una forma de presentar los datos del control (si el scroll es horizontal (Columns > 0) o vertical (Columns = 0), pero realmente es como si sólo tuvieras una columna.

Vale, pues una vez supuesto esto, la única forma que veo de ocultar una columna es especificando que tiene ancho = 0: Supongamos un ListBox  con 3 columnas en la que quieres ocultar la del medio y darle un ancho de 10 a la primera y a la última.

ListBox1.ColumnWidths = "10;0;10"

Para referirte a la columna dos del elemento actual:

ListBox1.List(ListBox1.ListIndex, 1)

A ver si ahora... Agur.

Hola makinovic:

Da la sensación de que en tu caso la comparación falla por un tema de ordenación de texto.
Estos serían valores tipo carácter ordenados:
'1','10','11','12','2','20','21','3','31'...

Revisa el tipo de datos del campo por el que seleccionas y si utilizas SQL, prueba a utilizar una función de conversión de tipo de datos (CLng, CInt, DIGITS, ...) según sea tu caso. Lo ideal sería que te asegures de comparar un valor numérico con un campo numérico.

A ver si con esto obtienes algo en limpio.

Chao.

Hola Jorge.

Podrías crear una clase desde la que imprimir mediante el objeto Printer.

Chao.

Hola agfed.

Prueba a hacer lo siguiente:

Declara un objeto command y asignale a la propiedad ActiveConnection la conexión que estás utilizando.
   
    Dim cmd1 As ADODB.Command
    set cmd1 = new ADODB.Command
    set cmd1.ActiveConnection = cnn
    cmd1.CommandType = adCmdUnknown

y luego abre el recordset  de esta forma:

   set rsm = cmd1.Execute("SELECT * FROM Tabla WHERE campo=loquesea")

y ya por fin:

   set datagrid1.datasource = rsm

Prueba a ver que tal... Si sigue sin ir, prueba a hacer esto antes de asignar el recordset:

  cmd1.CursorLocation = adUseClient

Ya contarás (aunque yo me voy de ¡¡¡VACACIONES!!!)

Chao.

Hola zambito.

En algunos proyectos he utilizado OleDB/ODBC con ADO, en otros DAO (ya hace), y siempre implementando con código conexiones, comandos, etc. Para algunos casos muy puntuales controles data, casi siempre para tareas temporales.

Normalmente trabajo con bases de datos db/2 en iSeries (as400), para lo que uso mis propias clases creadas a partir de una biblioteca de tipos suministrada con el sofware para la conexión al  iSeries (client access) y la verdad es que funcionan bastante bien.

Ya ves que no utilizo dataenvironment, por lo que realmente no puedo hablar mucho de sus ventajas/desventajas, pero prefiero no cargar los proyectos con diseñadores y o.v. si puedo evitarlo.

Chao.

Por cierto, tú que estás con ello:

¿Realmente merece la pena reescribir el código para utilizar un dataenvironment en lugar de implementar tú mismo los clásicos objetos?

A ver que nos cuentas.
Chao.