Refrescar Datareport
Hola, espero puedan ayudarme gracias de antemano
Ingreso nuevo registro y genero el datareport y no me aparece ese nuevo registro ingresado
¿Cómo refrecar el datareport?
Ingreso nuevo registro y genero el datareport y no me aparece ese nuevo registro ingresado
¿Cómo refrecar el datareport?
1 Respuesta
Respuesta de asderpunk
1
Si te conectas por código usa:
Primero declara las variables para la conexión y el recordset:
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
En el evento LOAD del formulario:
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=(tu BD).mdb;" & _
"Persist Security Info=False"
cn.CursorLocation = adUseClient
cn.Open
Set rs = New ADODB.Recordset
rs.Open "(tu Tabla)", cn, adOpenStatic, adLockOptimistic
En el boton que uses para agregar los datos puedes agregar al final:
Set DataGrid1.DataSource = rs
rs.Requery
'Y automaticamente cuando des de alta un registro realizará la nueva consulta de los datos de tu tabla.
O si usas directo el ADODC usa:
Adodc1. Recordset. Requery
Igual, despues de tu codigo para ingresar datos a tu BD.
Espero te sirva esta información.
Saludos..!
Lic. Inf. Juan Carmona
www.asderpunk.mex.tl
Primero declara las variables para la conexión y el recordset:
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
En el evento LOAD del formulario:
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=(tu BD).mdb;" & _
"Persist Security Info=False"
cn.CursorLocation = adUseClient
cn.Open
Set rs = New ADODB.Recordset
rs.Open "(tu Tabla)", cn, adOpenStatic, adLockOptimistic
En el boton que uses para agregar los datos puedes agregar al final:
Set DataGrid1.DataSource = rs
rs.Requery
'Y automaticamente cuando des de alta un registro realizará la nueva consulta de los datos de tu tabla.
O si usas directo el ADODC usa:
Adodc1. Recordset. Requery
Igual, despues de tu codigo para ingresar datos a tu BD.
Espero te sirva esta información.
Saludos..!
Lic. Inf. Juan Carmona
www.asderpunk.mex.tl
