Gracias mil
Publicado por Walter Rueda (49 intervenciones) el 27/06/2007 21:33:00
Tambien me funciono chevere solo que tuve que cambiar solo algunas cosillas como el = por el LIKe porque mis campos son de tipo texto y crear una variable tipo string gconnection aqui el otro ejemplo para que tengan otra referencia.
Private Sub TxtNombres_GotFocus()
Dim rs As New ADODB.Recordset
Dim Criteria As String
Dim GConnection As String
GConnection = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Control_Previo;Data Source=CPWR"
Criteria = TxtCIEmpleado.Text
rs.Open "SELECT CI_Empleado FROM empleados WHERE CI_Empleado like " & "'" & Criteria & "'", GConnection, adOpenStatic, adLockReadOnly
If rs.BOF And rs.EOF Then
' el ID no existe, podemos proceder a su ingreso
Else
MsgBox "El Empleado que intenta Registrar ya existe por el Nro. de Cédula en el sistema!!!", vbOKOnly, "Cédula Existente"
TxtCIEmpleado.Text = ""
TxtCIEmpleado.SetFocus
End If
End Sub
Private Sub TxtNombres_GotFocus()
Dim rs As New ADODB.Recordset
Dim Criteria As String
Dim GConnection As String
GConnection = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Control_Previo;Data Source=CPWR"
Criteria = TxtCIEmpleado.Text
rs.Open "SELECT CI_Empleado FROM empleados WHERE CI_Empleado like " & "'" & Criteria & "'", GConnection, adOpenStatic, adLockReadOnly
If rs.BOF And rs.EOF Then
' el ID no existe, podemos proceder a su ingreso
Else
MsgBox "El Empleado que intenta Registrar ya existe por el Nro. de Cédula en el sistema!!!", vbOKOnly, "Cédula Existente"
TxtCIEmpleado.Text = ""
TxtCIEmpleado.SetFocus
End If
End Sub
Valora esta pregunta
0