SoloCodigo

dao asi este desfasado me parece buenisimo para manejar bases de datos access, pero si es para otro motor de bd no es lo mejor, dao tiene la ventaja de que con la jerarquia de objetos dao estan reprecentadas la tablas, las consultas, etc. asi te ahorras algo de trabajo, dao tiene la desbentaja de que si cambias de dbms tendrias que reescribir bastante codigo, mientras que con ado solo seria la connectionstring

tambien puedes asignar un recordset del tipo ado al recordsource del datareport

dim rs as new adodb.recordset
dim con as new adodb.connection
'puedes obtener los registros desde la base de datos
'o añadiendo los fields por codigo

con.ConnectionString = tu cadena de conexion
rs.open "Tabla",con
set datareport.datasource = rs
'en el data report el los campos donde quiere poner los resultados
'debes poner en la propiedad field el nombre del campo de la base de datos
'por ejemplo el recordset tiene un campo "nombre", en el datareport en
'propiedad datafield de texto uno le pones "nombre" y listo

buenas, queria preguntarles donde consigo un a buena distribucion linux, ya que me he bajado el fedora core 3 en dvd y no me sirve en el momento que pregunta de que medio se va a instalar, le digo cd y no funciona.
tambien baje el mandrake 10.1 y instala perfectamente per cuando inicio el sistema no me funciona la pantalla de inicio de secion(en modo grafico) pero lo mas raro es que el modo grafico si funciona, el cursor se mueve y me puedo logear en modo consola

pudes utilizar

DataReport1.Sections("Sección1").Controls("Etiqueta1").Caption = text1.text

cuando abras el recordset lo tienes que hacer con una sentencia SQL

set rs = db.openrecordset("SELECT * FROM folio ORDER BY campo")

si tienes un dominio lo de trusted conection te da igual pero sino tiene que ponerle usuario y contraseña a la connectionstring

e revisado eso mil veces, ya me toco que hacer otra cosa
pero gracias por la ayuda

holas, les cuento que tengo estas lineas, en el momento RsRES.EOF = TRUE
el execute me da el error no se puede añadir o modificar el registro por que se
necesita un registro relacionado en la tabla Tb_Prodcuto

    Me.cmdNuevo.Enabled = True
    Me.cmdGuardar.Enabled = False
    Me.cmdBuscar.Enabled = True
    Me.cmdEliminar.Enabled = True
    rs.Fields("IdProducto") = Me.txtProductoF
    rs.Fields("IdProveedor") = Me.txtProveedorf
    rs.Fields("Cantidad") = Me.txtCantidad
    rs.Fields("Precio") = Me.txtPrecio
    rs.Fields("IdTipoEntrada") = TipoEntrada(Me.cmbTipoEntrada.Text)
    rs.Fields("Fecha") = Me.dtpFecha.Value
    Dim com As New ADODB.Command
    Dim RsRes As ADODB.Recordset
    com.CommandText = "SELECT * FROM tb_Inventario WHERE idproducto= '" & Me.txtProductoF & "'"
    Set com.ActiveConnection = Con
    com.CommandType = adCmdText
    Set RsRes = com.Execute
    Dim Inv As Integer
    If RsRes.EOF = True Then
        Inv = 0
    Else
        Inv = RsRes.Fields("Cantidad")
    End If
    Inv = Inv + CInt(Me.txtCantidad)
    If RsRes.EOF = True Then
        com.CommandText = "Sp_AddInventario"
    Else
        com.CommandText = "Sp_UpdateInventario"
    End If
    RsRes.Close
    com.CommandType = adCmdStoredProc
    Dim pr As ADODB.Parameter
    Dim pr2 As ADODB.Parameter
    Set pr = com.CreateParameter("@Cantidad", adNumeric, adParamInput, 5, Inv)
    Set pr2 = com.CreateParameter("@Producto", adVarWChar, adParamInput, 20, Me.txtProductoF)
    com.Parameters.Append pr
    com.Parameters.Append pr2
    com.Execute
    com.CommandType = adCmdText
    com.CommandText = "SELECT * FROM tb_Detalles_Producto_Proveedor WHERE Idproducto='" & _
                      Me.txtProductoF & "' AND IdProveedor='" & Me.txtProveedorf & "'"
    Set RsRes = com.Execute
    If RsRes.EOF = True Then
        Dim Command As New ADODB.Command
        Set Command.ActiveConnection = Con
        Command.CommandType = adCmdStoredProc
        Command.CommandText = "Sp_Add_Detalles_Producto_proveedor"
        Dim Prdu As ADODB.Parameter
        Dim Prov As ADODB.Parameter
        Set Prdu = com.CreateParameter("@Producto", adVarWChar, adParamInput, 20, Me.txtProductoF)
        Set Prov = com.CreateParameter("@Proveedor", adVarWChar, adParamInput, 15, Me.txtProveedorf)
        Command.Parameters.Append Prdu
        Command.Parameters.Append Prov
        Command.Execute
    End If
    rs.Update
    actualizar
    Set Command = Nothing
    Set com = Nothing
    ser RsRes = Nothing

el store procedure que me da el problema es

INSERT INTO Tb_Detalle_Producto_Proveedor ( IdProducto, IdProveedor )
VALUES ([@Producto], [@Proveedor]);

CUALQUIER AYUDA ES MUY BIEN RECIBIDA

pedrias utilizar el comando shell y haciendo que toda la salida del comando ejecutado se mande a un archivo, luego con vb abres el archivo y lo muestras
para mandar la salida de un comando a un archivo se haria asi

Comando > rutadearchivo

Funciones de fecha
Las funciones siguientes (u otras similares a ellas) están disponibles en ODBC o en bases de datos como Microsoft SQL Server y Microsoft Access.

Nota   Oracle utiliza la función TO_DATE para dar formato a las fechas. Para obtener detalles, consulte Consideraciones sobre el Diseñador de consultas para bases de datos Oracle.

Función Descripción Ejemplo
DATEDIFF( ) Calcula un intervalo entre dos fechas. SELECT nombre, apellido, fecha_contrato
FROM empleados
WHERE DATEDIFF(year, fecha_contrato, getdate()) > 5

Localiza todos los empleados contratados hace más de cinco años.

 
DATEPART( ) Devuelve la porción especificada de una fecha o columna de fecha, incluidos el día, el mes o el año. SELECT DATEPART(year, fecha_contrato)
FROM empleados

Muestra sólo el año en el que se contrató a un empleado (no la fecha entera).

 
CURDATE( )1,
GETDATE( ) o DATE( ) Devuelve la fecha actual en formato de fecha. Esta función es útil como entrada para muchas otras funciones de fecha, como calcular un intervalo hacia adelante o hacia atrás desde hoy.

demen sus correos yo se las paso, pero la liberia biene sin fuentes

MsgBox "cosa1" & vbCr & "cosa2"

variables por el estilo de vbcr hay mas mira en el examinador de objetos