¿Cómo utilizar el recordset para eliminar datos?
Estoy haciendo un programa en visual basic 6.0 y no conozco mucho sobre el manejo de ADO, ya he creado la connexion y he agregado algunos registros pero necesito saber como eliminar y consultar. Mi manera de trabajarlo es así:
Ejemplo para agregar un registro.
Private Sub cmdaceptar_Click()
'declarar el recordset
Dim mirecordset As ADODB.Recordset
'crear la conexion
Set miconexion = New ADODB.Connection
miconexion.ConnectionString = "driver=PostGreSQL; data source=postgres; server=localhost; port=5432; User ID=postgres;password=1111;database=prueba"
'abrir la conexion
miconexion.Open
'crear el objeto recordset
Set mirecordset = New ADODB.Recordset
'instruccion SQL
SQL = "INSERT INTO datos(nombre, clave) VALUES ('" + Text1.Text + "','" + Text2.Text + "')"
'ejecutar la instruccion
mirecordset.Open SQL, miconexion, adOpenStatic, adLockBatchOptimistic
MsgBox "Usuario Agregado", vbInformation, "Usuarios"
Text1.Text = Empty
Text2.Text = Empty
End Sub
Espero que esto les sirva de ejemplo apara que me ayuden a realizar las siguientes operaciones ELIMINAR, BUSCAR, MODIFICAR
Ejemplo para agregar un registro.
Private Sub cmdaceptar_Click()
'declarar el recordset
Dim mirecordset As ADODB.Recordset
'crear la conexion
Set miconexion = New ADODB.Connection
miconexion.ConnectionString = "driver=PostGreSQL; data source=postgres; server=localhost; port=5432; User ID=postgres;password=1111;database=prueba"
'abrir la conexion
miconexion.Open
'crear el objeto recordset
Set mirecordset = New ADODB.Recordset
'instruccion SQL
SQL = "INSERT INTO datos(nombre, clave) VALUES ('" + Text1.Text + "','" + Text2.Text + "')"
'ejecutar la instruccion
mirecordset.Open SQL, miconexion, adOpenStatic, adLockBatchOptimistic
MsgBox "Usuario Agregado", vbInformation, "Usuarios"
Text1.Text = Empty
Text2.Text = Empty
End Sub
Espero que esto les sirva de ejemplo apara que me ayuden a realizar las siguientes operaciones ELIMINAR, BUSCAR, MODIFICAR
1 respuesta
Respuesta de carloscharly
1