Visual codigos

Solo disponible en BuenasTareas
  • Páginas : 2 (274 palabras )
  • Descarga(s) : 0
  • Publicado : 25 de septiembre de 2010
Leer documento completo
Vista previa del texto
EJEMPLO CODIGO PARA BUSCAR
Private Sub Command1_Click()
Dim cn1 As New ADODB.Connection 'Creamos el objeto Connection.
Dim rs1 As New ADODB.Recordset 'Creamos el objeto Recordset.'Abrimos la base de datos "agenda.mdb".
cn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=g:\buscavbp\nomina.mdb"
rs1.Source = "obrero" 'Especificamos la fuente de datos. Eneste caso la tabla "profesor".
rs1.CursorType = adOpenKeyset 'Definimos el tipo de cursor.
rs1.LockType = adLockOptimistic 'Definimos el tipo de bloqueo.
rs1.Open "select * fromobrero", cn1 'Abrimos el Recordset y lo llenamos con una consulta SQL.

rs1.MoveFirst 'Nos posicionamos en el primer registro del Recordset.
rs1.Find "cedula = '" & Text1.Text & "'", , , 1'Buscamos por el password.
If Len(Trim(Text1.Text)) = 0 Then
MsgBox ("Debe especificar Identificacion (Cedula)")
Text1.SetFocus
Else: rs1.Find "cedula = '" & Text1.Text & "'", , , 1
Ifrs1.BOF = False And rs1.EOF = False Then
Text2.Text = rs1.Fields("nombre") 'Ponemos el nombre del registro actual.
Text3.Text = rs1.Fields("apellido") 'Ponemos el apellidodel registro actual.
Text4.Text = rs1.Fields("sexo") 'Ponemos el teléfono del registro actual.
Text5.Text = rs1.Fields("edad") 'Ponemos el nombre del registro actual.Text6.Text = rs1.Fields("fechaing") 'Ponemos el apellido del registro actual.
Text7.Text = rs1.Fields("telefono")
Text8.Text = rs1.Fields("direccion") 'Ponemos el nombre delregistro actual.
Text9.Text = rs1.Fields("observaciones") 'Ponemos el apellido del registro actual.
Text2.SetFocus
Else
MsgBox ("No se ha podido localizar el registrocon el parámetro especificado")
Text1.Text = ""
Text1.SetFocus
End If

End If
End Sub

PARA BAJAR DE CAMPO LA DAR ENTER
Private Sub Text1_KeyPress(KeyAscii As Integer)...
tracking img