Passaggio da access a sql server client 2005

CREATE TABLE Anagrafica
(
  Id int IDENTITY(1,1) NOT NULL,
  Nome varchar(30) NOT NULL,
  Cognome varchar(50) NOT NULL,
  DataNascita smalldatetime NOT NULL
)

CREATE PROCEDURE proc_InsertUtente
  @Nome varchar(30),
  @Cognome varchar(50),
  @DataNascita smalldatetime
AS
BEGIN

IF NOT EXISTS (SELECT * FROM Anagrafica WHERE Nome = @Nome AND Cognome = @Cognome)
BEGIN
  INSERT INTO Anagrafica (Nome, Cognome, DataNascita)
  VALUES (@Nome, @Cognome, @DataNascita)
END
ELSE
  RAISERROR 50000 'Nome già presente in tabella Anagrafica'

END

Imports System.Data.SqlClient
Imports System.Data

' creo la connessione (devi specificare la connectionstring)
        Dim ObjConn As New SQLConnection("TuaConnectionstring")

        ' creo il comando da quella connessione
        Dim ObjCmd As SQLCommand = ObjConn.CreateCommand()

        ' imposto la stringa dello statement SQL marcando con la @ i parametri
        Dim StrSql As String = "INSERT INTO tabella (campo1,campo2,campo3) VALUES (@p1,@p2,@p3)"

        ' creo i parametri del comando
        ObjCmd.Parameters.Add("@par1", SqlDbType.Int).Value = Convert.ToInt32(TextBox1.Text)
        ObjCmd.Parameters.Add("@par2", SqlDbType.VarChar).Value = TextBox2.Text
        ObjCmd.Parameters.Add("@par3", SqlDbType.VarChar).Value = TextBox3.Text

        ' imposto sql statement e tipo di comando
        ObjCmd.CommandText = StrSql
        ObjCmd.CommandType = CommandType.Text

        ' eseguo senza ritornare parametri
        ObjCmd.ExecuteNonQuery()

CREATE TABLE Anagrafica
(
  ID int Identity(1,1) PRIMARY KEY CLUSTERED,
  Nome varchar(50) NOT NULL,
  Cognome varchar(50) NOT NULL
)

CREATE PROCEDURE proc_InsertAnagrafica
(
  @Nome varchar(50),
  @Cognome varchar(50)
)
AS
BEGIN

  SET NOCOUNT ON; -- mettilo, elimina i messaggi di righe affette dall'sql che scrivi di seguito.
 
  -- controllo l'esistenza del record in tabella
  IF NOT EXISTS (SELECT * FROM Anagrafica WHERE Nome = @Nome AND Cognome = @Cognome)
  BEGIN
    -- inserisco il record che non esiste
    INSERT INTO Anagrafica (Nome, Cognome)
    VALUES (@Nome, @Cognome)
  END
  ELSE
  BEGIN
    RAISERROR 50000 'Record già inserito'
  END

END

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra