consulta sql con llave foranea
Publicado por nato (59 intervenciones) el 22/02/2018 20:30:55
antes de nada muchas gracias de antemano
tengo 2 tablas en sql una lidesc y otra productos la tabla productos tiene la llave foranea de numdeslinea
quiero hacer una consulta sql a la tabla productos y los resultados los muestro en unos texbox pero en el compo de
numdeslinea me trae el numero y yo quiero que me traiga el nombre de ese numero pongo el codigo y las fotos de la tablas a ver si alguien me orienta un poco muchas gracias
tengo 2 tablas en sql una lidesc y otra productos la tabla productos tiene la llave foranea de numdeslinea
quiero hacer una consulta sql a la tabla productos y los resultados los muestro en unos texbox pero en el compo de
numdeslinea me trae el numero y yo quiero que me traiga el nombre de ese numero pongo el codigo y las fotos de la tablas a ver si alguien me orienta un poco muchas gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Dim SQL As String = "select codigopromoda,clavemashala,numdeslinea,cprosordenfdep,cproscaidep,cprosordenflinea,cproscailinea,cprosordenfsublinea,cproscaisublinea,cprosordenftempo,cproscaitempo from productos where (codigomashala = '" & txtcodigoclave.Text & "') or (clavemashala = '" & txtcodigoclave.Text & "')"
Dim MiConexion As New SqlConnection(CADENACONEXION4)
Dim Rs As SqlDataReader
Dim Com As New SqlCommand
Dim cadena As SqlDataAdapter = New SqlDataAdapter(SQL, MiConexion)
Dim DT As DataTable = New DataTablecadena.Fill(DT)
Com.Connection = MiConexion
MiConexion.Open()
Com = New SqlCommand(SQL, MiConexion)
If DT.Rows.Count > 0 Then
Rs = Com.ExecuteReader()
Rs.Read()
txtcodigo.Text = Rs(0).ToString
txtclave.Text = Rs(1).ToString
txtdescripcion.Text = Rs(2).ToString
txtnumdep.Text = Rs(3).ToString
txtdepartamento.Text = Rs(3).ToString + Rs(4).ToString
txtnumlinea.Text = Rs(5).ToString
txtlinea.Text = Rs(5).ToString + Rs(6).ToString
txtnumsubl.Text = Rs(7).ToString
txtsublinea.Text = Rs(7).ToString + Rs(8).ToString
txtnumtemp.Text = Rs(9).ToString
txttemporada.Text = Rs(9).ToString + Rs(10).ToString
Rs.Close()
MiConexion.Close()
Else
MessageBox.Show("No Existe el dato", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
Valora esta pregunta
0
