Programar Impresion de DataReport

Question

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.

Answer 1

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

Answer 2

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.

Answer 3

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

Answer 4

Gracias !