davidsuarez.es

Public Function Search(parameter As String, _
rs As ADODB.Recordset, _
x As Field) As Boolean
Dim foundFlag As Boolean
With rs
If .RecordCount > 0 Then
.MoveFirst
For i = 1 To .RecordCount
If x = parameter Then
foundFlag = True
i = .RecordCount
End If
If foundFlag = False Then
.MoveNext
End If
Next i
If foundFlag = True Then
MsgBox (“Record has been location!”)
Else
MsgBox (“No Match in Database!”)
foundFlag = False
.MoveFirst
End If
Else
MsgBox (“There are no records to search!”)
foundFlag = False
End If
End With
Search = foundFlag
End Function

Vota este artículo:
Posts anterior y posterior:


Posts Relacionados:

• canalvisualbasic
• Web de recursos de Visual basic.
• Agregar nuestra App al registro para que se inicie (Visual Basic)
• enviar email con visual basic
• Uso del registro en Visual Basic 6.