Visual Basic.NET - Insertar en varias tablas al tiempo

Buenas actualmente estoy empezando a programar en visual basic.net conectado con una base de datos en sql server estoy realizando una agenda electronica con tablas normalizadas y tengo un problema y es que al momento de introducir datos de una tabla a otra pasa lo siguiente:

* No me deja registrar en una tabla donde esta relacionada con otro pues porque me dice que hay un problema con la llave foranea

Hasta ahora tengo este codigo pero no se porque no me deja insertar en las tablas relacionadas

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlClient.SqlDataReader
Imports System.Windows.Forms
Imports System.Xml
Public Class SQLCONECTAR
Public trans As SqlTransaction
Public cadena As String
Public conectar As SqlConnection


Public Sub sqlconecta()
Try
cadena = "Data Source=ALDEMAR-8F76C29\SQLEXPRESS;Initial Catalog=Agenda;Integrated Security=True"
conectar = New SqlConnection
conectar.ConnectionString = cadena
conectar.Open()
trans = conectar.BeginTransaction("Transaction")
Catch ex As Exception
conectar.Close()
MsgBox(ex.Message)
End Try
End Sub
Public Sub insertar()
Dim insertar As New SqlClient.SqlCommand()
insertar.CommandType = System.Data.CommandType.Text

insertar.CommandText = "INSERT INTO Contactos (Nombres,Apellidos,Sexo) values('" & Agenda.Nombres.Text & "','" & Agenda.Apellidos.Text & "','" & Agenda.Sexo.Text & "')"
trans.Commit()
insertar.CommandText = "INSERT INTO Contacto_Telefono(Contatos.CodigoUsuario, Telefono, Tipo_Telefono) values ('" & Agenda.CodigoUsuario.Text & "','" & Agenda.Telefono.Text & "','" & Agenda.Tipo_Telefono.SelectedValue & "' )"
insertar.Connection = conectar

Try
If ((insertar.ExecuteNonQuery() <> 0)) Then
MessageBox.Show("Nuevo Contacto Registrado ")

End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try

End Sub

End Class

Las tablas que tengo son Contactos, TipoTelefono,TipoDireccion,TipoEmail
ContactosTelefono, ContactoDirecion, ContactoEmail y su relacion es la siguienete

Contactos ------------------ ContactoTelefono--------------TipoTelefono
Contactos ------------------ ContactoDireccion--------------TipoDireccion
Contactos ------------------ ContactoEmail--------------TipoEmail

Gracias Espero que me puedan ayudar

Hola,

Lo que sucede es que no puedes utilizar tu SqlCommand "insertar" así, el segundo elimina el primero, y por eso te truena con la integridad referencial. Declara dos "insertar" y utiliza cada uno para cada operación.

Saludos.

Ok gracias ya lo hice y aun asi me sigue saliendo el mismo error de la llave foranea mira te mando lo que hice esos dos metodos los llamo con un boton guardar pero no se si en el insert de contacto_telefono ponga Contatos.CodigoUsuario porque no se como decir que en el momento de ejecucion guarde el codigo del contacto que estoy creando en la tabla de contacto_telefono por otro lado me gustaria saber como haria para que se puede agregar otros telefonos de un mismo contacto si es con un insert o con un update

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlClient.SqlDataReader
Imports System.Windows.Forms
Imports System.Xml
Public Class SQLCONECTAR
Public trans As SqlTransaction
Public cadena As String
Public conectar As SqlConnection


Public Sub sqlconecta()
Try
cadena = "Data Source=ALDEMAR-8F76C29\SQLEXPRESS;Initial Catalog=Agenda;Integrated Security=True"
conectar = New SqlConnection
conectar.ConnectionString = cadena
conectar.Open()
trans = conectar.BeginTransaction("Transaction")
Catch ex As Exception
conectar.Close()
MsgBox(ex.Message)
End Try
End Sub
Public Sub insertar()
Dim insertar As New SqlClient.SqlCommand()
insertar.CommandType = System.Data.CommandType.Text

insertar.CommandText = "INSERT INTO Contactos (Nombres,Apellidos,Sexo) values('" & Agenda.Nombres.Text & "','" & Agenda.Apellidos.Text & "','" & Agenda.Sexo.Text & "')"
trans.Commit()
insertar.Connection = conectar

Try
If ((insertar.ExecuteNonQuery() <> 0)) Then
MessageBox.Show("Nuevo Contacto Registrado ")

End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try

End Sub
Public Sub insertar_Telefono()
Dim insertar_Telefono As New SqlClient.SqlCommand()
insertar_Telefono.CommandType = System.Data.CommandType.Text

insertar_Telefono.CommandText = "INSERT INTO Contacto_Telefono(Contatos.CodigoUsuario, Telefono, Tipo_Telefono) values ('" & Agenda.CodigoUsuario.Text & "','" & Agenda.Telefono.Text & "','" & Agenda.Tipo_Telefono.SelectedValue & "' )"
insertar_Telefono.Connection = conectar

Try
If ((insertar_Telefono.ExecuteNonQuery() <> 0)) Then
MessageBox.Show("Nuevo Contacto Registrado ")

End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try

End Sub
End Class

Hola,

Bueno, lo que veo es que insertas correctamente el Contacto, pero lo que no veo, es que actualizes el objeto Agenda con el Id insertado en el campo CodigoUsuario, es por eso que te está marcando el error y el Commit nunca se completa.

Saludos.

y como lo puedo actualizar??

Gracias