EXCEL VB.NETRésolu

Question

Bonjour,

j'aimerais importer un fichier excel dans un datagrid.
J'ai cherch&#233; toute la journ&#233;e. En essayant de mettre mes donn&#233;es du fichier excel dans un dataset mais en vain. Apparement il y aurai une erreur au niveau de la requete puisqu'il s'occupe d'executenonrequery et sors.
Voici mon code:


Dim DataSet 
As 
New System.Data.DataSet



Dim requete_excel 
As 
New System.Data.OleDb.OleDbCommand



Dim adapter_excel 
As 
New System.Data.OleDb.OleDbDataAdapter



Dim excel_connexion 
As 
New System.Data.OleDb.OleDbConnection


............



Me.grille.Visible =  
True


 excel_connexion.ConnectionString = ("provider=Microsoft.Jet.OLEDB.4.0;data source=D:\Docs\JL-Performance\Torques.xls;Extended Properties=Excel 8.0") 


excel_connexion.Open()


adapter_excel.SelectCommand  = requete_excel


requete_excel.CommandText =  "SELECT * FROM [Sheet1$]"


 requete_excel.Connection = excel_connexion 


requete_excel.ExecuteNonQuery()



Me.grille.DataSource  = DataSet.Tables("[Sheet1$]")


adapter_excel.Fill(DataSet, "[Sheet1$]")


grille.SetDataBinding(DataSet, "[Sheet1$]")



Suis-je dans la bonne direction ou faut il que je fasse autrement?

Merci d'avance.

spike

cs_lim · Accepted Answer

Salut,

j'ai trouv&#233; quelquechose   

Une feuille avec un bouton et une liste box
'D&#233;claration du DataSet
Dim DS1 
As 
New Data.DataSet()
'D&#233;claration de la Table &#224; mettre dans le dataset

Dim DT_Excel 
As 
New Data.DataTable("ExcelTable")
'Connecxion &#224; excel

Dim ExcelConn 
As 
New System.Data.OleDb.OleDbConnection()
'DataAdapter pour recevoir les donn&#233;es

Dim ExcelDA 
As 
New System.Data.OleDb.OleDbDataAdapter()
'Objet command pour les requ&#234;tes

Dim ExcelCom 
As 
New System.Data.OleDb.OleDbCommand()



Private 
Sub Button1_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles btnCharger.Click



   Try


      'On vide la dataset
      DS1.Tables.Clear()
      'On ajoute la table au dataset
      DS1.Tables.Add(DT_Excel)
      'On vide la table du dataset
      DS1.Tables("ExcelTable").Clear()

      'Chaine de connexion
      ExcelConn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source=C:\Essai\Essai.xls;Extended Properties=Excel 8.0"
      'Ouverture de la connexion
      ExcelConn.Open()

   'Affectation de la connexion &#224; l'objet command
     ExcelCom.Connection = ExcelConn
      'Cr&#233;ation de la requ&#234;te
      'la premi&#232;re feuille de mon classeur s'appelle Feuil1
      ExcelCom.CommandText = "SELECT * FROM [Feuil1$]"

   'Affectation au DataAdapter de la requ&#234;te
   ExcelDA.SelectCommand = ExcelCom
   'Execution de la requ&#234;te
   ExcelDA.SelectCommand.ExecuteNonQuery()
   'Remplissage du dataset
   ExcelDA.Fill(DS1.Tables("ExcelTable"))



   Dim i 
As 
Integer
   'Affichage dans une listbox des &#233;l&#233;ments du dataset
   For i = 0 
To DS1.Tables("ExcelTable").Rows.Count - 1
      ListBox1.Items.Add(
CStr(DS1.Tables("ExcelTable").Rows(i).Item(0)))
      ListBox1.Items.Add(
CStr(DS1.Tables("ExcelTable").Rows(i).Item(1)))

   Next



Catch ex 
As Exception
MsgBox(ex.ToString)

End 
Try
End 
Sub

Par contre si tu as un fichier excel du type sur deux colonnes
   1        6   
   2        7
   3        8
   4        9
   5        10
la requ&#234;te ne prend pas le premi&#232;re ligne 
Et l&#224; j'ai pas trouv&#233; &#224; mon de rajout&#233; une ligne bidon avant
@+
LIM

cs_lim · Answer

Essaye &#231;&#224;

excel_connexion.Open()
requete_excel.CommandText =  "SELECT * FROM [Sheet1$]"
requete_excel.Connection = excel_connexion


'C'est ton dataadpater qui re&#231;oit la requete
adapter_excel.SelectCommand = requete_excel
'C'est ton dataadpter qui doit &#234;tre executer
adapter_excel.SelectCommand.executenonquery()
 adapter_excel.Fill(DataSet, "[Sheet1$]") 


Me.grille.DataSource  = DataSet.Tables("[Sheet1$]")


grille.SetDataBinding(DataSet, "[Sheet1$]")



@+
LIM

spike62300 · Answer

Merci de m'avoir repondu et de m'avoir aid&#233; 

mais le probleme est toujours le meme 

J'ai mi un point d'arret. Des qu'il fait executeNonRequery, ca ne Fill pas le dataset. Ca va directement &#224; end sub.

Peut etre est ce du &#224; une version de mon document excel?

Merci

spike

spike62300 · Answer

Merci j'ai bien avanc&#233; grace a toi 

Mais le probleme maitenant se pose au niveau de mon


adapter_excel.SelectCommand.ExecuteNonQuery()

Avant il all&#233; au end sub et maintenant il fait une erreur dessus

Avec ton code, j'ai pu voir grace a ton msgbox que le chemin ou le nom sont a v&#233;rifier

Pourtant tout est bon theoriquement

Spike

spike62300 · Answer

C'EST BON

merci de ton aide. J'ai pu voir en fait que l'erreur que je faisais etait bien dans le nom de la premiere feuille:

C'etait: Torques Y$
d'abord j'ai mi TorquesY
ensuite j'ai mi Torques Y

C'etait tou con jte remerci encore de m'avoir aid&#233;

A bientot

spike

EXCEL VB.NET

5 réponses

Discussions similaires