Hola, tengo una aplicaci?n creada en VB.Net, que conecta a una base de datos access, entonces una de las tablas que tiene la BD, tiene la clave primaria formada por 2 atributos que a su vez se relacionan con otro tabla mediante dichos atributos. ?C?mo puedo declarar esta relacion de varios campos en .net??

Espero que se entienda mi pregunta. Gracias de antemano. Un saludo.

Talvez este codigo de entorno desconectado de vb.net te pueda ayudar. Espero que asi sea.? Fijate bien, porque puse la declaraci?n de las variables para que no hubiera confusi?n. Te suplico que si no se entiende me lo hagas saber a mi correo ?y yo con gusto te explicare. Aqui se presenta un codigo en el cual hay un mantenimiento de categor?as de la bd neptuno.mdb. Espero os sirva. Porfavor cualquier duda, me escriben.

Salu2.

Policarpo.

Imports System.Data
Imports System.Data.OleDb

Public Class Categorias
Inherits System.Windows.Forms.Form
Dim DSCate1 As New DataSet()
Dim DSCate2 As New DataSet()
Dim Conex As String
Dim SqlCate As String
Dim SqlProd As String
Dim AdaptCate1 As OleDbDataAdapter
Dim AdaptCate2 As OleDbDataAdapter
Dim AdaptProd As OleDbDataAdapter
Dim CB As OleDbCommandBuilder
Dim Posicion As Integer
Dim LlavePrimariaCate(0) As DataColumn
Dim LlavePrimariaProd(0) As DataColumn

+ Windows Form Designer generated code

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim codcat1 As DataColumn, codcat2 As DataColumn
Conex = "Provider=Microsoft.Jet.OLEDB.4.0;Password=';User ID=Admin;Data Source=C:inventario.mdb"
SqlCate = "Select * from categorias order by codcat"
SqlProd = "Select * from productos order by codigo"
AdaptCate1 = New OleDbDataAdapter(SqlCate, Conex)
AdaptCate1.Fill(DSCate1, "categorias")
AdaptProd = New OleDbDataAdapter(SqlProd, Conex)
AdaptProd.Fill(DSCate1, "productos")
CB = New OleDbCommandBuilder(AdaptCate1)

txtCodcat.DataBindings.Add(New Binding("Text", DSCate1, "categorias.codcat"))
txtCategor?a.DataBindings.Add(New Binding("Text", DSCate1, "categorias.categoria"))
txtDescripci?n.DataBindings.Add(New Binding("Text", DSCate1, "categorias.descripcion"))
codcat1 = DSCate1.Tables("categorias").Columns("codcat")
codcat2 = DSCate1.Tables("productos").Columns("codcat")

? De aqui en adelante podes ver las relaciones.
LlavePrimariaCate(0) = DSCate1.Tables("categorias").Columns("codcat")
DSCate1.Tables("categorias").PrimaryKey = LlavePrimariaCate
LlavePrimariaProd(0) = DSCate1.Tables("productos").Columns("codigo")
DSCate1.Tables("productos").PrimaryKey = LlavePrimariaProd
Dim Relacion1 As New DataRelation("CateProd", codcat1, codcat2)
DSCate1.Relations.Add(Relacion1)
End Sub