Codigo para conectar Base de Datos

Conexión a Bases de Datos

En el la Ventana Referencias Marcar los siguientes datos

Declaro la Conexión

Public cnJUVC As Connection

Creacion del Flag para la busqueda

Public FlagEncontrarComisionRegantes As Boolean

Creo el Objeto

Public rsComisionRegantes As Recordset

Realizo la Conexión

Private Sub Form_Load()

Set cnJUVC = New Connection

With cnJUVC
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\JUVC\BaseDatos\JUVC.mdb;Persist Security Info=False"
.Open
End With

Set rsComisionRegantes = New Recordset

With rsComisionRegantes
.Source = "Select * from Tb_ComisionRegantes order by DesComsReg"
.ActiveConnection = cnJUVC
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Open Options:=adCmdText
End With


Screen.MousePointer = vbDefault

End Sub

Realizo la Búsqueda para la Tabla

Public Sub Buscar_ComisionRegantes(Buscado As String, IndiceLista As Integer)

Dim Criterio As String

If Buscado <> "" Then
Select Case IndiceLista
Case 0
Criterio = "CodComsReg Like '" & Buscado & "'"
BuscarPrimer_ComisionRegantes Criterio
Case 1
Criterio = "DesComsReg Like '*" & Buscado & "*'"
BuscarPrimer_ComisionRegantes Criterio
End Select
Else
MsgBox "Ingrese alguna palabra para buscar", vbOKOnly, "Error"
End If

End Sub

Private Sub BuscarPrimer_ComisionRegantes(Criterio As String)

' Buscar desde el siguiente registro a la posición actual
FlagEncontrarComisionRegantes = True
MdiFrmMain.rsComisionRegantes.MoveNext
If Not FrmMain.rsComisionRegantes.EOF Then
FrmMain.rsComisionRegantes.Find Criterio
End If

If FrmMain.rsComisionRegantes.EOF Then
FrmMain.rsComisionRegantes.MoveFirst
' Buscar desde el principio
FrmMain.rsComisionRegantes.Find Criterio
If FrmMain.rsComisionRegantes.EOF Then
FrmMain.rsComisionRegantes.MoveLast
FlagEncontrarComisionRegantes = False
MsgBox ("No encuentro ese nombre")
End If
End If
End Sub