Visual Basic - necesito saber una funcion

Life is soft - evento anual de software empresarial
 
Vista:

necesito saber una funcion

Publicado por roberto (26 intervenciones) el 06/08/2004 00:06:25
buenas tardes de antemano muchas gracias por responder esta pregunta:yo soy un novato en esto y quisiera saber si hay una funcion que me ayude a mostrar un registro como por ej:ingreso el rut del alumno y luego apreto enter y me tiene que mostrar los datos del alumno
p.o=estoy usando el keyascii)si fueran tan amable de responderme esta pregunta se los agradeceria
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:necesito saber una funcion

Publicado por miguel (1042 intervenciones) el 06/08/2004 01:12:42
Debes de activar la referencia, en Menu Proyecto-->Referencias Microsoft DAO 3.6 Object Library...Ejemplo :
Dim mibase As Database
Dim miregistro As Recordset
Dim sql As String
Private Sub Form_Load()
Set mibase = OpenDatabase("c:\Mantenimiento\Materiales.mdb")
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 13
sql = "Select * From CatAreas Where Codigo= " & Text1
Set miregistro = mibase.OpenRecordset(sql, dbOpenSnapshot)
If miregistro.RecordCount > 0 Then
Text1 = miregistro!Codigo
Text2 = miregistro!Nombre
Text3 = miregistro!Domicilio
End If
End Select
End Sub
Private Sub Form_Unload(Cancel As Integer)
mibase.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

RE:necesito saber una funcion

Publicado por pedrito (1 intervención) el 06/08/2004 15:12:57
ptsssss, tonterias, tu donde has aprendido a programar, e CEAC??

comprate un manual y aprende un poco antes de responder cualquier memez, que lo que estas respondiendo no tiene ni pies ni caveza, Vete al pedo!!
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