Visual Basic para Aplicaciones - Borrar todas las filas de una tabla acces

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de Ignacio

Borrar todas las filas de una tabla acces

Publicado por Ignacio ignacio@pri.gases.co.cu (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:

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Borrar todas las filas de una tabla acces

Publicado por Horroroso (1 intervención) el 16/06/2015 19:37:44
Coloca este codigo:

1
2
3
4
Dim sDel As String = "DELETE * FROM iniciarmes" 'Tienes que verificar que la tabla que deseas vaciar sea iniciarmes.
sCnn.Parameters.Clear()
sCnn.CommandText=sDel
sCnn.ExecuteNonQuery()

Y es todo
Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de Ignacio

Borrar todas las filas de una tabla acces

Publicado por Ignacio (7 intervenciones) el 16/06/2015 23:09:51
Gracias, asi pude resolver.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar