Validar datos duplicados

[edbc92]

Qué tal?

Tengo una duda de como se podría hacer una comparación de a la hora de grabar mis datos ejem: Quiero grabar un nombre y que luego haga una consulta a mi base de datos, si es que encuentra que el nombre que esta a punto de grabarse es igual al que ya se encuentra en el database, me muestre mensaje de 'metadato duplicado'. En sí quiero alguna pista de como solventarlo porque se me ocurrió de esta forma

Código:

dim cn as new sqlconnection(strcn)

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)

if cmd=txtpac.text then
msgbox("paciente duplicado")
exit sub
end if

Esa es una idea pero se que los parametros no me lo va aceptar en 'cmd' ya que no se puede convertir a string mi condición.

En fin espero que me hayan entendido y me puedan dar sugerencias, gracias.

[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!.

[edbc92]

Hey! Disculpa por no responderte la ayuda, gracias. Pero he estado buscando más información y me he dado con una sentencia que dice :

sql="if not exists (select * from pacientes where pac_nom=@pac_nom) insert into pacientes values(..)....

y lo demás que se sabe, pero en fin en realidad no le he probado aún, pero queria saber si es que sabes de esa sentencia ('exists')