
30/04/2013, 13:00
|
| | Fecha de Ingreso: abril-2013 Ubicación: Lima
Mensajes: 83
Antigüedad: 11 años, 10 meses Puntos: 1 | |
Respuesta: validar que textbox no se repita como? crear una columna en la bd que devuelva 0 y 1 ?? para asi comparar?
mira yo hice este código..
Function Duplicado(ByVal C_parm02 As String, ByVal C_parm04 As String) As Boolean
Duplicado = True
Dt_Campo1.Clear()
Dt_Campo1.Reset()
I_var50 = Mid(Trim(LBL_fec2.Text), 7, 4) + "-" + Mid(Trim(LBL_fec2.Text), 4, 2) + "-" + Mid(Trim(LBL_fec2.Text), 1, 2)
Sql = "Select concod,confec from tcontrol where concod= '" & LBL_percod.Text & "' and confec ='" & I_var50 & "'"
Da_Campo1 = New MySqlDataAdapter(Sql, CO)
Da_Campo1.Fill(Dt_Campo1)
End Function
Function Validar()
Validar = True
C_parm02 = LBL_percod.Text
C_parm04 = Mid(Trim(LBL_fec2.Text), 7, 4) + "-" + Mid(Trim(LBL_fec2.Text), 4, 2) + "-" + Mid(Trim(LBL_fec2.Text), 1, 2)
If Duplicado(Trim(C_parm02), Trim(C_parm04)) Then
MsgBox("Registro Ya Ingresado", 16, "Mensaje del sistema")
End If
Dt_Campo1.Clear()
Dt_Campo1.Reset()
End Function |