Eliminar el contenido de un datagrid

[FoMoIrEoMX]

alguien que me pudiera decir como eliminar el contenido de una base de datos, en access, que esta siendo visualizada desde un datagrid, en otras palabras; dejar la base de datos en blanco.

[ranefi]

Hola FoMoIrEoMX, buen día. Mira, para eliminar todo el contenido de una base de datos puedes usar SQL. Con la conexión ya previamente creada por ti deberás escribir lo siguiente:

Código:

NombreConexion.Execute "DELETE FROM tabla"

Donde tabla es el nombre de la tabla a la cual deseas eliminar los datos. Recuerda que debes crear tu conexión.

[FoMoIrEoMX]

Disculpa, no especifique el tipo de conexion, la conexion que estoy utilizando es el ado, si me pudieras explicar utilizando esta conexion.

 

[ranefi]

Disculpa, no especifique el tipo de conexion, la conexion que estoy utilizando es el ado, si me pudieras explicar utilizando esta conexion.

 

Okas, entonces lleva a cabo lo siguiente:

Agregar 1 control CommandButton, 1 Adodc, 1 DataGrid e insertar el siguiente código

Código:

Private Sub Command1_Click()
    For X = 0 To Adodc1.Recordset.RecordCount
        Adodc1.Recordset.Delete
        Adodc1.Refresh
    Next
    CierraConexion
    CargaDatos
End Sub

Private Sub Form_Load()
    CargaDatos
End Sub

Sub CargaDatos()
    CreaConexion
   
    Set DataGrid1.DataSource = Adodc1.Recordset
End Sub

Sub CreaConexion()
    Dim BaseDatos As String
   
    BaseDatos = App.Path & "\biblio.mdb"
   
    With Adodc1
        .ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & BaseDatos
        .RecordSource = "Authors"
        .Refresh
    End With
End Sub

Sub CierraConexion()
    Set Adodc1.Recordset = Nothing
    Set DataGrid1.DataSource = Nothing
End Sub

Deberás crear una base de datos llamada Biblio.mdb con una tabla llamada Authors y obviamente llenarla con los datos que gustes; dicha base de datos deberá estar en la misma ruta que tu aplicación. Los nombres de los campos no importan. Espero te sirva. Nos vemos.