Hola que tal , me he unido a este foro porque veo que me pueden ayudar en algo.
Recien he aprendido a usar los modulos de clases en Visual Basic 6.0 pero me preguntaron como poder abrir una base de acces usando las clases
y aqui les pongo el pequeño ejemplo que yo tengo ... (de abrir una base con ADO )
ahora, ¿como hago para abrirla usando el modulo de clases?
que parte del codigo pongo en el modulo, que codigo escribo en el formulario principal y luego que operaciones puedo hacer con el objeto creado con la clase?
de antemano gracias y Shalom...
Option Explicit
Private cnn As ADODB.Connection
Private WithEvents rst As ADODB.Recordset
Private Sub Form_Load()
'
Text2 = ""
'
Const sPathBase As String = "E:\progra\Libres.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
With cnn
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPathBase & ";"
.Open
End With
cmdMover_Click 0
End Sub
Private Sub cmdActualizar_Click()
With rst
.Fields("CurCodigo") = Text1(0) & ""
.Fields("CurNombre") = Text1(1) & ""
.Fields("CurProfe") = Text1(2) & ""
.Update
End With
End Sub
Private Sub cmdAdd_Click()
' Añadir un nuevo registro
rst.AddNew
' Añadimos algún texto,
Text1(1) = "Nuevo"
' Actualizamos los datos
rst.Update
' Movemos al último registro para que los cambios se hagan permanentes
rst.MoveLast
End Sub
Private Sub cmdBuscar_Click()
' Mostrar los datos en el listview
Dim sBuscar As String
Dim tRs As Recordset
Dim tLi As ListItem
'
' Comprobar si tiene caracteres "no válidos" para ADO:
' NOTA: Replace es una función de VB6
sBuscar = Text2
sBuscar = Replace(sBuscar, "*", "%")
sBuscar = Replace(sBuscar, "?", "_")
'
Text2 = sBuscar
sBuscar = "SELECT * FROM curso WHERE CurCodigo LIKE '" & sBuscar & "' ORDER BY CurCodigo"
Set tRs = cnn.Execute(sBuscar)
With tRs
If (.BOF And .EOF) Then
MsgBox "No se han encontrado los datos buscados"
Else
.MoveFirst
Do While Not .EOF
Text1(0).Text = .Fields(0)
Text1(1).Text = .Fields(1)
Text1(2).Text = .Fields(3)
.MoveNext
Loop
End If
End With
End Sub
Private Sub cmdMover_Click(Index As Integer)
' Mover según el botón pulsado
'On Error Resume Next
'
With rst
If Index = 0 Then ' Primero
.MoveFirst
ElseIf Index = 1 Then ' Anterior
.MovePrevious
ElseIf Index = 2 Then ' Siguiente
.MoveNext
ElseIf Index = 3 Then ' Último
.MoveLast
End If
If .BOF Or .EOF Then
.MoveFirst
Label5.Caption = " No hay datos..."
Else
Label5.Caption = " Registro actual: " & rst("CurCodigo")
End If
End With
'
Err = 0
End Sub
