Foro de elhacker.net

Option Explicit

Private cn As ADODB.Connection  -------------> estas variebles son las que cuando
Private rst As ADODB.Recordset   --------------- > ejecuto me dice: que no se ha definido el tipo por el usuario, que kreen que este haciendo mal??  :-\


Private Sub cmdEliminar_Click()
Dim Nombre As String

Nombre = InputBox(" Eliminar registro ", " Escriba el nombre del cliente a eliminar ")

'Ejecuta la sentencia SQL de eliminación
cn.Execute "DELETE FROM Clientes WHERE Nombre = '" & Nombre & "'"

End Sub


'Botón para añadir un registro de la base de  datos
Private Sub cmdAgregar_Click()

Dim Nombre As String
Dim Apellido As String
Dim Email As String
Dim Sql As String

Nombre = InputBox(" Añadir registros ", " Escriba el nombre")
Apellido = InputBox(" Añadir registros ", " Escriba el Apellido ")
Email = InputBox(" Añadir registros ", " Escriba el Email ")

Sql = "INSERT INTO Clientes VALUES ( '" & Nombre & "', '" & Apellido & "', '" & Email & "')"

'Ejecuta la sentencia SQL para añadidr el registro
cn.Execute Sql

MsgBox " Registros añadidos ", vbInformation

End Sub
Private Sub CmdReporte_Click()
   
    Set rst = cn.Execute("SELECT Nombre, Apellido, Email FROM Clientes ORDER BY Nombre")
   
    'Asigna el recordset al reporte
    Set ReporteClientes.DataSource = rst
   
    ' Muestra el reporte
    ReporteClientes.Show vbModal
End Sub
Private Sub Form2_Load()
   
    'Nuevo objeto conecction
    Set cn = New ADODB.Connection
   
    'Abre la base de datos
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & App.Path & "\bd1.mdb;" & _
        "Persist Security Info=False"
End Sub


Private Sub Form_Unload(Cancel As Integer)
    On Local Error Resume Next
    cn.Close
    rst.Close
    Set cn = Nothing
    Set rst = Nothing
End Sub