Grid Bloqueado
Publicado por Ana Centeno (45 intervenciones) el 27/09/2009 00:37:32
Buen dia, estoy tratando de agregar informacion directamente en un grid, sin embargo, al iniciar el form necesito borrar los datos a los cuales esta enlazado ese grid ya que se encuentran en una tabla temporal, y al hacer este proceso el datagrid queda bloqueado y no permite su edicion, sin embargo si le quito este codigo de inicio entonces si me deja editarlo, no se porque lo bloquea.. aca dejo el codigo.
Private Sub Form_Load()
Dim CN As ADODB.Connection
Dim RC As ADODB.Recordset
Dim CADENA_ACCESS As String
CADENA_ACCESS = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bd1.mdb;Persist Security Info=False"
Set CN = New ADODB.Connection
Set RC = New ADODB.Recordset
CN.Open CADENA_ACCESS, "Admin"
RC.Open "delete * from fact_temp", CN, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = RC
DataGrid1.Refresh
end sub
Agradezco la ayuda que me puedan prestar...
Private Sub Form_Load()
Dim CN As ADODB.Connection
Dim RC As ADODB.Recordset
Dim CADENA_ACCESS As String
CADENA_ACCESS = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bd1.mdb;Persist Security Info=False"
Set CN = New ADODB.Connection
Set RC = New ADODB.Recordset
CN.Open CADENA_ACCESS, "Admin"
RC.Open "delete * from fact_temp", CN, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = RC
DataGrid1.Refresh
end sub
Agradezco la ayuda que me puedan prestar...
Valora esta pregunta
0