Saludos tengo una duda es la siguiente, mi duda es estoy haciendo una insercion con procedimientos almacenados, pero igual quiero controlar que el dato PK no se inserte nuevamente ya sea tirando un mensaje que ya ha sido insertado o algo que le corresponda.
lo que pasa que eso yo lo hacia facilmente cuando usaba los recorset y le asignaba un string que contenia una query en este caso un insert. y lo controlaba con un EOF - BOF, pero ahora con procedimientos almacenados como podria hacerlo? si alguien me dice o me tira algun codigo para orientarme se lo agradeceria..
Estopy trabajando en base a este codigo.
Set objConn = New ADODB.Connection
objConn.ConnectionString = "provider=SQLOLEDB.1;password=sa;persist security info=true;user ID=sa;initial catalog=" & bdd & " ;data source=" & server & ""
objConn.Open
If num = 2 Then
MsgBox ("Formato de correo incorrecto, favor reingrese"), vbCritical, "Formato incorrecto"
txtemail.Text = ""
Else
Set objCmd = New ADODB.Command
objCmd.CommandType = adCmdStoredProc
objCmd.CommandText = "ins_usuario"
Set objCmd.ActiveConnection = objConn
objCmd.Parameters.Append objCmd.CreateParameter("@rutp", adVarChar, adParamInput, 10, lblrut.Caption)
objCmd.Parameters.Append objCmd.CreateParameter("@div", adChar, adParamInput, 1, lbldiv.Caption)
objCmd.Parameters.Append objCmd.CreateParameter("@email", adVarChar, adParamInput, 50, txtemail.Text)
objCmd.Parameters.Append objCmd.CreateParameter("@nombres", adChar, adParamInput, 20, Trim(txtnombre.Text))
objCmd.Parameters.Append objCmd.CreateParameter("@paterno", adChar, adParamInput, 20, Trim(txtpaterno.Text))
objCmd.Parameters.Append objCmd.CreateParameter("@materno", adChar, adParamInput, 20, txtmaterno.Text)
objCmd.Parameters.Append objCmd.CreateParameter("@civil", adChar, adParamInput, 15, txtcivil.Text)
objCmd.Parameters.Append objCmd.CreateParameter("@fecha_nac", adDBDate, adParamInput, 8, txtfecha.Text)
objCmd.Parameters.Append objCmd.CreateParameter("@telefono", adChar, adParamInput, 10, txtfono.Text)
objCmd.Parameters.Append objCmd.CreateParameter("@carrera", adChar, adParamInput, 20, txtcarrera.Text)
objCmd.Parameters.Append objCmd.CreateParameter("@psu", adInteger, adParamInput, 3, txtpsu.Text)
objCmd.Execute
End If
objConn.Close
Set objCmd = Nothing
Set objConn = Nothing
End If
Saludos y gracias de antemano
