Visual Basic - Comparar 6 TextBox

Life is soft - evento anual de software empresarial
 
Vista:

Comparar 6 TextBox

Publicado por Miguel (35 intervenciones) el 31/08/2000 00:00:00
Estoy buscando la manera de hacer una comparación.Tengo 6 TextBox con 6 números diferentes y quiero que el programa busque en 6 campos diferentes de una tabla si alguno coincide con los ya grabados y de ser asi que me lo diga con un msgbox.Lo he probado de muchas maneras y no lo consigo hacer y tiene que ser sin poner los campo de la tabla en "Sin duplicados".
¿Cómo lo puedo hacer?
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Puedes ser mas especifico

Publicado por edu (448 intervenciones) el 31/08/2000 00:00:00
Si puede ser mas especifico en tu pregunta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Comparar 6 TextBox

Publicado por hernux (38 intervenciones) el 31/08/2000 00:00:00
No se entiende muy bien, pero tal vez esto te sirva:

dim sql as string
Dim rs As New ADODB.Recordset
Dim basedatos As New ADODB.Connection
With basedatos
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source = 1.mdb"
.Open
End With
sql = "SELECT campo1 FROM tabla WHERE id = " & val(text1)

set rs = basedatos.execute (sql)

deberias agregarle las otras 5 comparaciones, y mejorarlo un poco.
espero que te sirva.

CHAU
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Comparar 6 TextBox

Publicado por Christian A. Valeria Celedón (217 intervenciones) el 31/08/2000 00:00:00
Aquí te va el esqueleto de una función que podría implementar para resolver tu problema. Revísala a ver si te sirve

Function ComparaTextBox()
Dim Rst As Recordset, DB As Database
Dim k As Integer, i As Integer
Set DB = OpenDatabase("MiBase.mdb")
Set Rst = DB.OpenRecordset("Tabla", dbOpenDynaset)

For k = 0 To 5
For i = 0 To 5
Rst.FindFirst (Rst.Fields(i).Name & "=" & Text1(k).Text)
If Not Rst.NoMatch Then
MsgBox "Se encontró coincidencia"
End If
Next i
Next k
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar