Borrar todas las filas de una tabla acces
Publicado por Ignacio (7 intervenciones) el 10/06/2015 22:00:04
Colegas, estoy haciendo un soft para registro de cheques, con la opcion de cierre de año, cuando esto suceda quiero limpiar la tabla completa y dejarla limpia para el nuevo año, pero no logro hacerlo, el procedimiento es el siguiente:
Alguien pudiera ayudarme??, Gracias de antemano.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub conexion2(cierre As Boolean)
Dim dt As DataTable = Nothing
Dim da As OleDbDataAdapter = Nothing
If System.IO.File.Exists("regcheques.mdb") = False Then
MessageBox.Show("No existe la base de datos indicada")
End If
' La cadena de conexión
Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=regcheques.mdb;Persist Security Info=False"
' La cadena de selección
Dim sSel As String = "select * from iniciarmes"
' Crear un nuevo objeto del tipo DataAdapter
da = New OleDbDataAdapter(sSel, sCnn)
' Crear el comando actualizar
Dim cb As New OleDbCommandBuilder(da)
' Esta base de datos usa el ID con valores automáticos
da.MissingSchemaAction = MissingSchemaAction.AddWithKey
'
dt = New DataTable
' Llenar la tabla con los datos indicados
da.Fill(dt)
If cierre Then
Dim nuevomes As Integer = varmes + 1
If nuevomes = 13 Then
'comienzo de un nuevo año
nuevomes = 1
If (MsgBox( _
"!!! COMIENZO DE UN NUEVO AÑO !!!. SU BASE DE DATOS SE LIMPIARA. DESEA HACER UNA SALVA ?", _
MsgBoxStyle.YesNo, _
"CERRAR AÑO")) = MsgBoxResult.Yes Then
salva()
End If
nuevomes = 1
'AQUI ES DONDE DESEO BORRAR EL CONTENIDO DE TODA LA TABLA, HE PROBADO VACIAR EL DATATABLE (dt.clear()) Y DESPUES HACERLE UN ( da.update(dt)) PERO NO ME FUNCIONA,
Else
---
---
---
End If
End Sub
Alguien pudiera ayudarme??, Gracias de antemano.
Valora esta pregunta
0