Ver Mensaje Individual
  #1 (permalink)  
Antiguo 03/06/2009, 21:49
Avatar de sak_nyappy
sak_nyappy
 
Fecha de Ingreso: mayo-2009
Mensajes: 12
Antigüedad: 15 años
Puntos: 0
Insertar datos de dos tablas en un form vb.net 2005

hola de nuevo!!

pues tengo la tabla alumno y una llamada Alumno_Grupo ambas se unen por lo que es la matricula, el problema que tengo es que no se como llamar de la tabla alumno el nombre, direccion, edad y de la tabla Alumno_Grupo el grupo del alumno, espero que me puedan ayudar, hasta ahora he intentado esto:

leconn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" + _
Application.StartupPath + "\Nebtidi.mdb"

mat = InputBox("Ingrese la Matricula de Alumno")
strquery = "select matricula,alum_nom,alum_apep, alum_apem,DirecciònAlu,TelefonoAlu,alum_fot from Alumnos where matricula LIKE '" + mat + "'"
tabla.Clear()
oleconn.Open()
Dim cmddatabase As OleDb.OleDbCommand = New OleDb.OleDbCommand(strquery, oleconn)
canal = New OleDb.OleDbDataAdapter(cmddatabase)
canal.Fill(tabla, "cualquiera")
If tabla.Tables("cualquiera").Rows.Count > 0 Then
MsgBox(tabla.Tables("cualquiera").Rows.Count)
Me.txtmat.Text = Me.tabla.Tables("cualquiera").Rows(0)(0)
Me.txtnom.Text = Me.tabla.Tables("cualquiera").Rows(0)(1)
Me.txtAp.Text = Me.tabla.Tables("cualquiera").Rows(0)(2)
Me.txtAm.Text = Me.tabla.Tables("cualquiera").Rows(0)(3)
Me.txtdiru.Text = Me.tabla.Tables("Cualquiera").Rows(0)(4)
Me.txtTel.Text = Me.tabla.Tables("cualquiera").Rows(0)(5)

Me.pbfoto.Image = Image.FromFile(Me.tabla.Tables("cualquiera").Rows( 0)(6))
Else
MsgBox("no existe el registro")

End If
oleconn.Close()

repitiendo lo que esta de color pero con Alum_Grupo y lo que me sale es que en el campo de grupo me vuelve a salir la matricula