Saludos estimados , mi problema es el siguiente cuando abro el form3
no puedo filtrar el combobox del form1 .
les adjunto una foto de la forma normal con la que filtra:
y asi aparece cuando abro el FORM3 y despues trato de abrir los combobox del form1
Estos son los codigos que los ordené lo mas entendible posible.
CODIGOS DEL FORM1
Código .net:
Ver originalImports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Public Class Form1
'DECLARACIOON DE VARIABLES COMBOBOX - FILTRO EQUIPOS ACARREO - GUARDIA - TURNO
Dim variable As SqlDataReader
Dim spartacarreo As New SqlCommand
Dim spartacodigo As New SqlCommand
Private Sub Form1_Load(ByVal sender As System.Object, e As System.EventArgs) Handles MyBase.Load
conectar()
'FILTRO COMBOBOX ACARREO PRINCIPAL
spartacarreo.CommandType = CommandType.Text
spartacarreo.CommandText = ("Select Acarreo from acarreo")
spartacarreo.Connection = (con)
spartacodigo.CommandType = CommandType.StoredProcedure
spartacodigo.Connection = (con)
spartacodigo.CommandText = ("buscar")
spartacodigo.Parameters.Add("@variable1", SqlDbType.VarChar, 50)
If (con.State = ConnectionState.Closed) Then con.Open()
variable = spartacarreo.ExecuteReader()
While variable.Read = True
Cmbacarreo.Items.Add(variable.Item(0))
End While
con.Close()
End Sub
'combobox acarreo FILTRO PARA combobox CODIGO
Private Sub Cmbacarreo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Cmbacarreo.SelectedIndexChanged
spartacodigo.Parameters("@Variable1").Value = Cmbacarreo.SelectedItem
CmbCodigo.Text = ""
Try
If (con.State = ConnectionState.Closed) Then con.Open()
CmbCodigo.Items.Clear()
variable = spartacodigo.ExecuteReader()
While variable.Read = True
CmbCodigo.Items.Add(variable.Item(0))
End While
con.Close()
Catch ex As Exception
End Try
End Sub
'BOTON ABRIR FORM2
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button62.Click
Form2.Visible = True
Form2.Focus()
End Sub
End Class
El codigo del FORM3 es el siguitente:
Código .net:
Ver originalImports System
Imports System.Data.SqlClient
Imports System.Data
Public Class Form3
Dim variable As SqlDataReader
Dim spartacarreo As New SqlCommand
Dim spartacodigo As New SqlCommand
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
conectar()
spartacodigo.CommandType = CommandType.StoredProcedure
spartacodigo.Connection = (con)
spartacodigo.CommandText = ("NiveldeTrabajo")
spartacodigo.Parameters.Add("@Fecha", SqlDbType.VarChar, 50)
If (con.State = ConnectionState.Closed) Then con.Open()
variable = spartacarreo.ExecuteReader()
While variable.Read = True
ComboBox1.Items.Add(variable.Item(0))
End While
con.Close()
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
End Sub
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
Try
spartacodigo.Parameters("@Fecha").Value = DateTimePicker1.Text
ComboBox1.Text = ""
If (con.State = ConnectionState.Closed) Then con.Open()
ComboBox1.Items.Clear()
variable = spartacodigo.ExecuteReader()
While variable.Read = True
ComboBox1.Items.Add(variable.Item(0))
End While
Catch ex As Exception
con.Close()
End Try
End Sub
End Class
El codigo del modulo que conecta a la DB es el siguiente
Código .net:
Ver originalImports System.Data
Imports System.Data.SqlClient
Module Module1
'creacion devariable publica para menrjar conexion
Public con As SqlConnection
'declaracion de procedimiento para el manejo de la cadena
Public Sub conectar()
con = New SqlConnection
con.ConnectionString = "Data Source=pasco15;Initial Catalog=SPARTANO;Integrated Security=true"
con.Open()
End Sub
End Module
si tienen alguna duda o falta algun dato pregunten nomas por favor.