Validar datos duplicados

[Aquaventus]

Hola edbc92 vas bien con tu codigo, solo que te falto algo xiquitiko :

Código vb.net:

dim cn as new sqlconnection(strcn)
'Declaras una variable para almacenar el resultado
Dim resultado as String = ""
 
cn.open
 
sql="select pac_nom from pacientes where pac_nom=@pac_nom"
dim cmd as new sqlcommand(sql,cn)
 
cmd.parameters.addwithvalue("@pac_nom",txtpac.text)
 
'Almacenas el resultado a la variable
resultado =  cmd.ExecuteScalar()
 
'if cmd=txtpac.text then
'msgbox("paciente duplicado")
'exit sub
'end if
 
'Verificas si hubo resultado
if resultado.Length > 0 then
msgbox("paciente duplicado")
exit sub
end if
 

Espero haberte ayudado! Saludos!.