Vb6 Bd

[bubilo]

LISTO MEXICAN NO SE CUAL ERA EL ERROR QUE TE DABA PERO YA LO ARREGLE Y LO PROBE EN UNA BASE IGUAL A LA TUYA Y FUNCIONA PERFECTO... CUALQUIER COSA AVISA...

Private Sub Command1_Click()
Dim i As Integer
Dim palabras As Variant
palabras = Split(Text1.Text)
For i = 0 To UBound(palabras)
Text2.Text = Text2.Text & " " & Añadir(CStr(palabras(i))) & " " & "Añadido"
Next i
End Sub


Public Function Añadir(palabras As String) As String
Dim base As Database
Dim tmiha As Recordset
Dim campo_campo3 As Field
Set base = OpenDatabase(App.Path & "\data.mdb")
Set tmiha = base.OpenRecordset("SELECT * FROM miha WHERE campo1 = '" & palabras & "'")
Set campo_campo3 = tmiha.Fields("campo3")
If tmiha.RecordCount < 1 Then
MsgBox ("No existe el registro")
Añadir = ""
Else
Añadir = palabras & " " & campo_campo3
End If
End Function