select * from tabla2where tabla2.id_tabla1 = id_tabla1;
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=NOMBRE BBDD" Dim ocom As New OleDb.OleDbConnection(connectionString) Dim ds As New DataSet Dim OleComand As New OleDbCommand Dim da As New OleDbDataAdapter da.SelectCommand = OleComand da.SelectCommand.Connection = ocom '-------------------- OleComand.CommandText = "SELECT ID_TABLA2, Fecha, OBS FROM TABLA2 WHERE ID_TABLA2=" & ID_TABLA1TextBox.Text da.Fill(ds, "seguimiento") DataGridView1.DataSource = ds.Tables("seguimiento")
Siento no ser muy especifico, tampoco es que me entere mucho todavía, la verdad.
La cosa es que no tengo el código,
lo único que hice fue incluir un dataGridview con los datos de la tabla2 en el formulario que contiene los datos de la tabla1 esperando que solo mostrara los registros cuyo ID coincidiera en ambas ya que en la BBDD de Access existe una relación entre ellas.
OleCommand.CommandText = "SELECT ID_TABLA2, Fecha, OBS FROM TABLA2 WHERE ID_TABLA2=" + ID_TABLA1TextBox.Text; OleCommand.ExecuteNonQuery(); da.Fill(ds, "seguimiento");
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=BBDD.mdb; User Id=admin;Password=;" Dim ocom As New OleDb.OleDbConnection(connectionString) Dim ds As New DataSet Dim OleComand As New OleDbCommand Dim da As New OleDbDataAdapter da.SelectCommand = OleComand da.SelectCommand.Connection = ocom OleComand.CommandText = ("SELECT ID_TABLA2, Fecha, OBS FROM TABLA2 WHERE ID_TABLA2= '" & NumeroTextBox.Text & "'") ocom.Open() OleComand.ExecuteNonQuery() da.Fill(ds, "seguimiento") DataGridView2.DataSource = ds.Tables("seguimiento")End Sub
OleComand.CommandText = "SELECT ID_TABLA2, Fecha, OBS FROM TABLA2"
OleComand.CommandText = "SELECT ID_TABLA2, Fecha, OBS FROM TABLA2 WHERE ID_TABLA2 = 1"
OleComand.CommandText = ("SELECT ID_TABLA2, Fecha, OBS FROM TABLA2 WHERE ID_TABLA2= '" & NumeroTextBox.Text & "'")
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=BBDD.mdb; User Id=admin;Password=;" Dim ocom As New OleDb.OleDbConnection(connectionString) Dim ds As New DataSet Dim OleComand As New OleDb.OleDbCommand Dim da As New OleDb.OleDbDataAdapter da.SelectCommand = OleComand da.SelectCommand.Connection = ocom OleComand.CommandText = "SELECT ID_TABLA2, Fecha, OBS FROM TABLA2" 'Con la siguiente instruccion podras ver el contenido de la consulta SQL, para verificar 'que realmente la estas construyendo adecuadamente MessageBox.Show(OleComand.CommandText) ' El siguiente codigo te ayudarar a atrapar erroresw, y verlos en un cuadro de una manera mas clara Try ocom.Open() OleComand.ExecuteNonQuery() da.Fill(ds, "seguimiento") Catch ex As Exception MessageBox.Show(ex.Message) Finally ocom.Close() End Try DataGridView1.DataSource = ds.Tables("seguimiento") End SubEnd Class
SELECT ID_TABLA2, Fecha, OBS FROM TABLA2 WHERE ID_TABLA2= ''