Visual Basic - como presento los datos en un formulario?

Life is soft - evento anual de software empresarial
 
Vista:

como presento los datos en un formulario?

Publicado por ainhoa (45 intervenciones) el 22/03/2004 15:34:26
como muestro los daqtos encontrados derspues de haber hecho sto? los datos m los detecta, pero no me los presenta.. como podria hacerlo?

Option Compare Database

Private Sub Comando4_Click()
Dim rs As Recordset
Set rs = CreateObject("Adodb.recordset")

rs.Open "select * from ACCIONES_CORRECTORAS where ACCIÓN_CORRECTORA LIKE '%" & Texto0.Value & "%'", CurrentProject.Connection, 3, 3

If Not rs.EOF Then
MsgBox rs(0)
Else
MsgBox "NO SE ENCONTRO NADA"
End If
rs.Close
End Sub

stoy trabajando dsd access... AYUDARME CON LO Q SEA PF! 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

RE:como presento los datos en un formulario?

Publicado por Fabian (501 intervenciones) el 22/03/2004 19:02:21
Haber prueba con esto:
rs.Open "select * from ACCIONES_CORRECTORAS where ACCION_CORRECTORA =' " & Trim(Texto0.Text) & " ' ", CurrentProject.Connection, 3, 3

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:como presento los datos en un formulario?

Publicado por ainhoa (45 intervenciones) el 22/03/2004 22:47:06
mucahs gracias, lo intentare ;)
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

!!!!!!gracias pero no funciona!!!!OTRA AYUDA PF!!!

Publicado por ainhoa (45 intervenciones) el 23/03/2004 09:10:53
Estoy trabajando desde access, y kiero q m APAREZCAN los datos encontrados, pq con sto si los encuentra, pero no m los muestras... como lo hago?????

Option Compare Database

Private Sub Comando4_Click()
Dim rs As Recordset
Set rs = CreateObject("Adodb.recordset")
rs.Open "select * from ACCIONES_CORRECTORAS where ACCIÓN_CORRECTORA LIKE '%" & Texto0.Value & "%'", CurrentProject.Connection, 3, 3
If Not rs.EOF Then
MsgBox rs(0)
Else
MsgBox "NO SE ENCONTRO NADA"
End If
rs.Close
End Sub

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