Citar
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
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
si desactivo o borro esa linea me dice que no se han definido esas variables, ya intente declararlas con DIM pero es el mismo caso... ojala y puedan ayudarme GRACIAS!!