Actualizar datagrid

ruboma · #1 (**permalink**) 30/12/2010, 13:06

A ver si me explico : quiero hacer un form para ver una tabla excel que unos compañeros actulizan de vez en cuando e incluso la mueven de sitio .
Tengo un data grid viex para ver dicha hoja de excel, y en un combo se cargan los valores de la primera columna. A media que selecionas distintos valores de dicho combo , en unos texbox se actualizan los datoa asociados ...esto lo hago con una consulta sql,con la cual hago una busqueda de los datos y me aprece en un segundo datagridview los datos conincidentes con mi criterio (que es la fila de excel cuya primera columna es el dato que aprece en el combo ,..en el codigo es "d")
bien. todo funciona perfecto salvo si cambio la ruta del archivo excel, es decir ,el excel incial esta en C:\ , pero si por ejemplo hago una copia, lo muevo a mis documentos, me carga el primer datagrid bien, con todos los datos, pero la consulta no me la hace y me salta un error de no se han especificado valores

Os pongo el codigo que uso para hacer la consulta

Private Sub loadRange2( _
ByVal sFileName As String, _
ByVal sSheetName As String, _
ByVal sRange As String, _
ByVal dv As DataGridView)
Dim d As String
d = Me.COMBOMOLDE.Text
Try

' // Comprobar que el archivo Excel existe
If System.IO.File.Exists(sFileName) Then

Dim objDataSet2 As System.Data.DataSet
Dim objDataAdapter2 As System.Data.OleDb.OleDbDataAdapter
' // Declarar la Cadena de conexión
Dim sCs As String = "provider=Microsoft.Jet.OLEDB.4.0; " & "data source=" & sFileName & "; Extended Properties=Excel 8.0;"
Dim objOleConnection2 As System.Data.OleDb.OleDbConnection
objOleConnection2 = New System.Data.OleDb.OleDbConnection(sCs)

' // Declarar la consulta SQL que indica el libro y el rango de la hoja
Dim sSql2 As String = "select * from " & "[" & sSheetName & "$" & sRange & "]" & "WHERE MOLDE= '" & d & " '"

' // Obtener los datos
objDataAdapter2 = New System.Data.OleDb.OleDbDataAdapter(sSql2, objOleConnection2)

' // Crear DataSet y llenarlo
objDataSet2 = New System.Data.DataSet

objDataAdapter2.Fill(objDataSet2)
' // Cerrar la conexión
objOleConnection2.Close()

' // Enlazar DataGrid al Dataset
With dv
.DataSource = objDataSet2
.DataMember = objDataSet2.Tables(0).TableName
End With
Else
MsgBox("No se ha encontrado el archivo: " & sFileName, MsgBoxStyle.Exclamation)
End If

'Exit Sub
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try

ME AYUDAIS ....LLEVO DIAS DESEPSERADO CON ESTO

Aquaventus · #2 (**permalink**) 30/12/2010, 13:27

En sí deseas darle la ruta para que cargue tu excel ?

ruboma · #3 (**permalink**) 30/12/2010, 13:54

efectivamente, deseo cargar un nuevo excel ( el cual elijo con un openfiledialog) yme deje hacer lo mismo que hacia al principio de cargar el form... ese es el problema ,que con el nuevo excel lo cargo, lo veo todos los registros , pero no puedo hacerle consultas

Aquaventus · #4 (**permalink**) 30/12/2010, 14:40

Haber aqui te mando esto, creas 2 sub y ejecuta en tu load el cargarExcel :

Metodo Reintenta

Código vb:

Ver originalPublic Sub reintenta(ByVal x As String, ByVal y As String, ByVal q As String, ByVal d As DataGridView)
Try
OpenFileDialog1.Title = "Abrir Archivos *.xls"
OpenFileDialog1.DefaultExt = "rpt"
OpenFileDialog1.Filter = "Excel Files|*.xls"
OpenFileDialog1.FilterIndex = 1
OpenFileDialog1.FileName = String.Empty
 
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
 
If OpenFileDialog1.FileName = "" Then
Return
End If
cargarExcel(OpenFileDialog1.FileName, y, z, d)
End If
Catch ex As Exception
MessageBox.Show(ex.Message.ToString(), "Error")
End Try
 
End Sub

Metodo cargarExcel :

Código vb:

Ver originalPublic Sub cargarExcel(ByVal sFileName As String, ByVal sSheetName As String, ByVal sRange As String, ByVal dv As DataGridView)
Dim d As String
d = Me.COMBOMOLDE.Text
Try
 
' // Comprobar que el archivo Excel existe 
If System.IO.File.Exists(sFileName) Then
 
Dim objDataSet2 As System.Data.DataSet
Dim objDataAdapter2 As System.Data.OleDb.OleDbDataAdapter
' // Declarar la Cadena de conexión 
Dim sCs As String = "provider=Microsoft.Jet.OLEDB.4.0; " & "data source=" & sFileName & "; Extended Properties=Excel 8.0;"
Dim objOleConnection2 As System.Data.OleDb.OleDbConnection
objOleConnection2 = New System.Data.OleDb.OleDbConnection(sCs)
 
 
 
' // Declarar la consulta SQL que indica el libro y el rango de la hoja 
Dim sSql2 As String = "select * from " & "[" & sSheetName & "$" & sRange & "]" & "WHERE MOLDE= '" & d & " '"
 
' // Obtener los datos 
objDataAdapter2 = New System.Data.OleDb.OleDbDataAdapter(sSql2, objOleConnection2)
 
' // Crear DataSet y llenarlo 
objDataSet2 = New System.Data.DataSet
 
objDataAdapter2.Fill(objDataSet2)
' // Cerrar la conexión 
objOleConnection2.Close()
 
' // Enlazar DataGrid al Dataset 
With dv
.DataSource = objDataSet2
.DataMember = objDataSet2.Tables(0).TableName
End With
Else
MsgBox("No se ha encontrado el archivo:\n" & sFileName & "\nPor Favor Eliga la Nueva Ruta", MsgBoxStyle.Exclamation)
reintenta(sFileName, sSheetName, sRange, dv)
End If
 
'Exit Sub
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
 
End Sub

Espero haberte ayudado. Saludos!.

ruboma · #5 (**permalink**) 30/12/2010, 15:25

hecho ........... gracias

Aquaventus · #6 (**permalink**) 30/12/2010, 15:35

De nada ! para eso estamos! para ayudarnos!. Saludos!.