Eliminación, Inserción y Modificación de registros


miércoles, 11 de enero de 2012

Como mencionaba anteriormente, este es uno de los métodos de los cuales se puede sacar provecho en eliminación , inserción y modificacion de registros mediante el objeto command.

Eliminación de registros

Sub eliminarregistros()
'declaramos las variables
Dim comando As New ADODB.Command
'establecemos la variable
Set comando = New ADODB.Command
'cremos las propiedades del comando
With comando
.ActiveConnection = CurrentProject.Connection
.CommandText = "Delete * From Customers1"
.CommandType = adCmdText
.Execute
End With

Inserción de registros

Sub inserccion()
'declaramos las variables
Dim comando As ADODB.Command
'establecemos las variables
Set comando = New ADODB.Command
'creamos la spropiedades del comando
With comando
.ActiveConnection = CurrentProject.Connection
.CommandText = "INSERT INTO Tabla1(campoA,campoB,campoC) VALUES('1','2',3)"
.Execute
End With
End Sub

Modificación de registros

Sub modificacion()
'declaramos las variables
Dim comando As ADODB.Command
'establecemos las variables
Set comando = New ADODB.Command
'creamos las propiedades del comando
With comando
.ActiveConnection = CurrentProject.Connection
.CommandText = "UPDATE Tabla1 SET campoA = '10'"
.CommandType = adCmdText
.Execute
End With
End Sub

No hay comentarios:

Publicar un comentario