none
Programar Impresion de DataReport RRS feed

  • Pregunta

  • Hola a todos!

    tengo una base de datos en acces y uno de los campos tiene formato de fecha ,mi pregunta es como tengo que hacer para imprimir automaticamente un datareport en cuato llega la fecha que tiene el campo de la base de datos.

    no sé si me explicado bien.

    Gracias deantemano.

    miércoles, 15 de febrero de 2012 21:53

Todas las respuestas

  • Yo lo hacia de esta forma:

    Dim cn1 As ADODB.Connection
    
    Dim rs As ADODB.Recordset
    
    
    
    '********conexión bd Access*****************
    Set cn1 = New ADODB.Connection 'crea un objeto ADODB.connection en la variable
    With cn1
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\basededatos.mdb;Persist Security Info=False" 'se asigna la cadena que contiene el nombre de la BD
    .CommandTimeout = 30 'tiempo para ejecutar la sentencia anterior
    .ConnectionTimeout = 30 'tiempo para crear la conexion
    .Open 'abrir la BD
    End With
    
     Set rs = New ADODB.Recordset 'crea un objeto ADODB.Recordset en la variable
        rs.CursorLocation = adUseClient 'se selecciona el tipo de sentencia
        
    
            SQL = "SELECT *FROM mitabla where micampo='" & text1.text & "'"
        
        rs.Open SQL, cn1, adOpenStatic, adLockOptimistic, adCmdText 'Se ejecuta la sentecia SQL
           
        Set Me.DataSource = rs
        Me.Show vbModal



    Jhonatan Plata

    jueves, 16 de febrero de 2012 12:18
  • Gracias, la conexion la tengo echa , lo unico que necesito es que el programa imprime automaticamente el datareport en la fecha que esta en el campo de la base de datos.

    por ejemplo el 22/02/2012 a las 8.00 que el programa imprime solo el datareport  (la fecha puede ser qualquiera).

    gracias.

    jueves, 16 de febrero de 2012 15:44
  • SERIA ASI:

    Set rs = New ADODB.Recordset 'crea un objeto ADODB.Recordset en la variable
        rs.CursorLocation = adUseClient 'se selecciona el tipo de sentencia
        
    
            SQL = "SELECT *FROM mitabla where fecha='22/02/2012'"
        
        rs.Open SQL, cn1, adOpenStatic, adLockOptimistic, adCmdText 'Se ejecuta la sentecia SQL
           
        Set DATAREPORT1.DataSource = rs
        
    DATAREPORT1.Show vbModal

    Solamente te tocaria Poner en los Dataset de tus DataReport los campos que quieras visualizar


    Jhonatan Plata


    • Editado Kaysinho jueves, 16 de febrero de 2012 16:08
    jueves, 16 de febrero de 2012 15:51
  • Gracias !
    jueves, 16 de febrero de 2012 16:05