consulta de datos...

[jose58]

jeje aver sime ayudan aqui yo tengo estes codigo en el cual consulto pero que sucede que cuando me consulta me duplica los datos en las cajas de texto
ejemplo me duplica asi

||jose peres||jose peres
||18519744||18519744
||venezuela||venezuela
y asi sucesivamente
y el codigo que uso es eeste

Private Sub Command3_Click()
Set con = CreateObject("ADODB.Connection")
con.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "F:\visual\modelo.mdb")
buscar = Text1.Text
SQL = "SELECT * FROM RECIPIENTE WHERE CEDULA LIKE '" & buscar & "'"
Set RS = con.Execute(SQL)
Do While Not RS.EOF
Text2.Text = Text2.Text & vbCrLf & RS("NOMBRE")
Text3.Text = Text3.Text & vbCrLf & RS("FECHADEINGRESO")
Text5.Text = Text5.Text & vbCrLf & RS("SUPERVISOR")
Text6.Text = Text6.Text & vbCrLf & RS("SKILL")
Text7.Text = Text7.Text & vbCrLf & RS("JPHONE")

RS.MoveNext
Loop


End Sub

donde esta el error que hace eso??

[ReViJa]

Ese problema lo puedes tener por culpa de la declaración de variables y esta no te la toma como tal

Código:

RS.MoveNext

Crea un punto de ruptura y ves paso a paso y veras como no toma bien los valores.


Un saludo.

[jose58]

aa okhermano y como hago eso porque la verdad no se

[ReViJa]

Primero deberías de poner el code completo con las declaraciones de variables.
Has probado crear un punto de ruptura para ver los valores?

[jose58]

hermano lo que pasa es que nose que es un punto de ruptura dame un ejemplo aver o nose que se puede hacer hay la cuestion consulta pero con ese detalle.

[ReViJa]

Posiciona te en la ventana de código y ves a la linea

Código:

Do While Not RS.EOF

y pulsa la tecla F9 y ejecuta el programa y pulsa el command3 y con la tecla F8 ves moviendo y controlando los valores del recordset.

[jose58]

lo hice pero me manda el punto que marco la linea de codigo no sabes algun otra forma de como consultar datos pero sin el objeto ado porque tengo 5 formularios y ya tengo un adio en uno de ellos y cuanod coloco otro ado me da erro que dice variable o with no establecido algo asi. y la conexion esta bien.

[ReViJa]

Ahora tengo un rato mándame lo por mail y le echo un vistazo.

[jose58]

cual es tu mail hermano??

[ReViJa]

Ya te mande un MP

[jose58]

ya te envie el correo hermano.

[ReViJa]

Ya te conteste.