Hola a Todos...
Mi problema es el siguiente...
Tengo un desarrollo en VB .net el cual lo trabajo en una maquina con XP
Professional, en esta maquina funciona correctamente, ya genere el paquete
de instalacion, instalo la aplicacion en otra maquina con el mismo SO, esta
maquina ya tiene instalado el NetFramework... mi problema radica que en la
maquina de desarrollo cuando hago una consulta y obtengo mi DataSet este lo
asigno a un ComboBox y no tengo problemas, este es el codigo.
Dim objCorrida As New BusinessLogic.Corrida()
Dim accessconnect As DataAcces.DataAccessSQL
accessconnect = New DataAcces.DataAccessSQL(Usuario.mServer,
Usuario.DataBase, _
Usuario.LoginUser, Usuario.LoginPass)
With cboZafra
.DataSource = objCorrida.LeeZafra(accessconnect.Conexion).Tables(0)
If .Items.Count = 0 Then < VALIDACION
MessageBox.Show("No hay Zafras dadas de alta, por favor ingrese
alguna para capturar una Corrida.", Me.Text, MessageBoxButtons.OK,
MessageBoxIcon.Warning)
btnModify.PerformClick()
Flag_Exit = True
Exit Sub
End If
.DisplayMember = "Zafra"
.ValueMember = "Control"
.SelectedIndex = -1
End With
ESTO ESTA EN OBJCORRIDA
Public Function LeeZafra(ByVal dConecta As SqlClient.SqlConnection) As
DataSet
Dim strSQL As String
Dim dsZafra As New Data.DataSet()
Dim daZafra As SqlClient.SqlDataAdapter
strSQL = "SELECT c_Id as Control, " & _
"(cast(cast(c_Zafra as int) as char(4)) + '/' + CAST((c_zafra +1) as
char(4)) + ' ' + cat_I_Id) AS Zafra " & _
"FROM Corrida " & _
"WHERE c_status = 0"
Try
daZafra = New SqlClient.SqlDataAdapter(strSQL, dConecta)
daZafra.Fill(dsZafra, "Zafras")
Return dsZafra
Catch eErrorDatos As Exception
Throw
End Try
End Function
pero cuando corro la aplicacion ya instalada en la otra maquina, en el
punto de la validacion de los elementos del Combo resulta que no hay
elementos y se muestra el mensaje, ya modifique varias veces el codigo con
diferentes metodos que he encontrado pero me pasa lo mismo y la verdad ya no
se que puedo hacer.
De antemano gracias por la ayuda prestada...
Leer las respuestas