Mostrar la Fecha De acuerdo al Codigo

[Erick21]

Hola a todos , tengo un pequeño problema en visual basic acerca de mostar la Fecha de acuerdo al Codigo que coloco en un combo. me explico mejor

este es mi SP que actualiza el stock , FechaSalida mediante al codigo

ALTER procedure [dbo].[Usp_Egresos_Insumos]
@IdPro int,
@Fsalida smalldatetime,
@nCant int
as
Select IdProducto,FechaEntrada,FechaSalida,NombreInsumo,N ombre,IdEmpleado,Cantidad
from Productos,Empleados
UPDATE Productos SET Cantidad = Cantidad - @nCant,
FechaSalida=@Fsalida
WHERE IdProducto = @IDpro

me esta Funcionando muy bien , lo que kiero ahora es que me muestre la Fecha de entrada del Codigo que voy actualizar y mi problema esta en la programacion

un ejemplo de como utilizo mi combo para que me mueste el ID

Private Sub cboNombre_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboNombre.SelectedIndexChanged
Try
If cboNombre.SelectedIndex > -1 Then
fila = cboNombre.SelectedIndex
txtid.Text = cboNombre.SelectedValue
End If
Catch ex As Exception
Finally
End Try
End Sub

esto me muestra el ID por defecto de cada Producto
lo que quiero es como podria hacerlo en mi Datetimepicker.

Disculpen por las moslestias pero creo que es un problema pequeño pero que me esta dando dolor de cabeza . gracias

[Phillip]

Hola Erick21.

En el evento donde eliges los valores del ComboBox puedes codificar una consulta que tre traiga la fecha de salida para el codigo que has seleccionado del combobox y se las asignas al datetimepicke el campo fecha que te trae correspondiente.

Ya miras como asignas ese valor, depende de tu consulta y como la traigas. Te va a devolver una sola fila asi que con un select es suficiente.

Alguna duda al respecto?

[Erick21]

Hola Phillip , gracias por tu respuesta.

segun lo que he entendido, esto es alo que te refieres ?

Private Sub dtpFentrada_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtpFentrada.ValueChanged
Try
Dim k As String
k = dtpFentrada.Value
If k = cboNombre.SelectedIndex > -1 Then
fila = cboNombre.SelectedIndex
dtpFentrada.Value = cboNombre.SelectedValue
End If
Catch ex As Exception

End Try
End Sub

pero no cambia la Fecha , me gustaria que me pongas un ejemplo por favor.
gracias otra vez

[Phillip]

Erick21.

Vamos a analizarlo por partes.

cboNombre es un combobox que creastes, supongo que ese combobox los tienes enlazado a tus Productos.

El cboNombre te muestra la lista de Productos, y cuando eliges uno internamente el valor que se guarda es el Id de es producto ya que lo tienes enlazado.

Lo que debes hacer es hacer una consulta Select que te traiga la fecha correspondiente al Id del Producto que as Seleccionado algo asi como:

Asi debes tener enlazado tu combobox:

Código PHP:

  With cboNombre
           'Mostrar el Nombre del Producto
            .DisplayMember = "Nombre"
            'Valor a capturar el Id del Producto
            .ValueMember = "IdProducto"
        End With 
   

Lo que te digo que hagas es hacer el select en el evento SelectedIndexChanged
asi como lo tienes:

Código PHP:

   
Private Sub cboNombre_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboNombre.SelectedIndexChanged
 
If cboNombre.SelectedIndex > -1 Then
 
'Aca deberas ejecutar el SELECT en  la base de datos para traer la fecha 
'La setencia debe quedar similar a esta
'Ya sabes que para ello debe tener un objeto conection y un command
'Utilizar ExecuteScalar para ejecutar la consuta
 
"SELECT FechaEntrada FROM PRODUCTOS WHERE IdProducto =  '" & cboNombre.SelectedValue.ToString & "'
 
End if
End Sub 
   

[Phillip]

Ahi te va completo:

Código PHP:

  
     dim  conexion as OledConnection
     dim cmd as SqlCommand
     dim Fecha as date

    cnn = new SqlConnection("Tu cadena de conexion");
    cmd = new SqlCommand("SELECT FechaEntrada FROM PRODUCTOS WHERE IdProducto =  '" & cboNombre.SelectedValue.ToString &  " ",cnn)
    cmd.CommandType = CommandType.Text

    cnn.Open()

    Fecha= cmd.ExecuteScalar() 
   

[Erick21]

ya esta , gracias por todo amigo Phillip , si tengo otra duda lo consultare
gracias otra vez.