| 
			 
			
			
			
			
			
			
		    
			
				30/04/2013, 13:00
			
			
			  | 
  |   |  |  |  Fecha de Ingreso: abril-2013 Ubicación: Lima 
						Mensajes: 83
					 Antigüedad: 12 años, 6 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
     |