Como extraer datos de registros en 2 tablas relacionadas tengo 2 tablas, una de Usuarios y otra de Permisos (solo es un test por ahora), en estas 2 tablas tengo una relación con el campo IdUser:
Usuarios
- IdUser(Llave,int)
- Nombre(string)
- Contraseña(string)
Permisos
- Permiso (Llave,int)
- IdUser(int)
- Descripcion(string)
como ven IdUser de la tabla Permisos esta relacionada con el campo llave de la tabla de Usuarios. la cuestión, por ahora, es que al momento de meter o filtrar IdUser(en un login) en la tabla Usuarios me diga que usuario es y que permiso tiene. (solo falta que me jale el permiso que tiene ese usuario)
se que se puede hacer con 2 consultas una para Usuarios y otra para Permisos y filtrar solo el IdUser en ambas, pero pues para algo se relacionan
ademas el programa final que se tiene planeado, tiene tablas cuales guardan bitácoras y aran esto mismo ademas con mas relaciones.
Edito:
Estoy trabajando en Visual Studio (Windows Forms) y la DB es en access (SQL me da flojera instalarlo
)... los datos se extraen a un DataGridView para luego manejar los a conveniencia.Solución
Después de indagar por mi mi cabeza descubrí que ya estaba resuelto, solo me faltaba corregir mi filtro XD.
Por si a alguien le sirve como ejemplo :)
Cita:
Try
Dim cn As OleDb.OleDbConnection
Dim con As String = "Provider=Microsoft.JET.oledb.4.0;Data Source = TUDB.mdb"
cn = New OleDb.OleDbConnection(con)
Dim dv As New DataView
Dim da As New OleDbDataAdapter("SELECT * FROM Usuarios, Permisos WHERE Usuarios.IdUser = Permisos.IdUser", cn)
Dim ds As New DataSet
da.Fill(ds)
dv.Table = ds.Tables(0)
dv.RowFilter = String.Format("Usuarios.IdUser='" & Val(TextBox1.Text) & "'") <<<---- mi solucion: "Usuarios.IdUser='"
DataGridView1.DataSource = dv
Using cn
cn.Open()
cn.Close()
End Using
Catch ex As Exception
Dim exx As String
exx = Convert.ToString(ex)
MsgBox(exx)
End Try
Dim cn As OleDb.OleDbConnection
Dim con As String = "Provider=Microsoft.JET.oledb.4.0;Data Source = TUDB.mdb"
cn = New OleDb.OleDbConnection(con)
Dim dv As New DataView
Dim da As New OleDbDataAdapter("SELECT * FROM Usuarios, Permisos WHERE Usuarios.IdUser = Permisos.IdUser", cn)
Dim ds As New DataSet
da.Fill(ds)
dv.Table = ds.Tables(0)
dv.RowFilter = String.Format("Usuarios.IdUser='" & Val(TextBox1.Text) & "'") <<<---- mi solucion: "Usuarios.IdUser='"
DataGridView1.DataSource = dv
Using cn
cn.Open()
cn.Close()
End Using
Catch ex As Exception
Dim exx As String
exx = Convert.ToString(ex)
MsgBox(exx)
End Try
