Question : Comment est-ce que je peuple une table exprès de SQL à partir de dossier d'Excel ?

Bonjour le besoin d'Experts.

I de peupler une table dans une table exprès de serveur de SQL à partir d'un dossier d'Excel, mais moi ne savent pas l'obtenir fait.  Actuellement, j'ai une commande avec un datagrid qui montre le contenu de la table, il est une liste d'employés et de leur information de contact : class= " lineNumbers " >

1 de >
Commande Language= " VB " AutoEventWireup= CodeFile= " faux " " ContactGrid.ascx.vb " Inherits= " Sitefinity_UserControls_ContactGrid_ContactGrid " %> de <%@
        
            
            
                
                
                
                
            
             " blanc "
            
            
             " blanc "
            
            
        
        


The de class= de SqlDataSource>
1 de >
Classe partielle Sitefinity_UserControls_ContactGrid_ContactGrid
    Hérite de System.Web.UI.UserControl
    GridView1_SelectedIndexChanged secondaire protégé (expéditeur de ByVal comme objet, ByVal e comme System.EventArgs) manipule GridView1.SelectedIndexChanged
        Response.Redirect (« EmailForm.aspx ? id= » et GridView1.SelectedDataKey.Value.ToString)
    Sous-marin d'extrémité
Le class= >


I de l'extrémité Class
Interop.Microsoft.Office.Core.dll

I ont été donnés le suivant, mais je ne sais pas où le mettre ou assurer lui le Br/>'be de work.
Imports Microsoft.Office.Interop
Imports System.Data.OleDb

'< pour ajouter COM mettre en référence « la bibliothèque des programmes résultants de Microsoft Excel 12.0 » appelée aux poignées privées du sous-marin Button1_Click (expéditeur de la classe Form1

 du Br/>
Public du project
'< de ByVal comme System.Object, ByVal e comme System.EventArgs) que Button1.Click
 obscurcissent xlsConnString comme faible xlsConn de String
 en tant que nouveau xlsReader du 
 d'OleDbConnection () faible comme faible xlscmd d'OleDbDataReader
 en tant que nouveau nom de fichier du 

 d'OleDbCommand () faible comme corde = » \ \ newcowboy \ AllTDRA \ AllTDRA \ Website \ contact List.xlsx " « J:\AllTDRA\Website Contacts
 faible SheetName de site Web comme String

 faible FirstName comme String
 faible LastName comme String
 faible EmailAddress comme String
 faible JobTitle comme faible téléphone de String
 comme String
 faible DivisionCode comme String
 faible Division_name comme String

 » que c'est pour excellent 2007 
 xlsConnString = « Provider=Microsoft.ACE.OLEDB.12.0 ; Data Source= » et nom de fichier et » ; "" Prolongé Excel de Properties= Xml 12.0 ; Le 

 de """ de HDR=YES « ouvert excellent le dossier comme un 
 de table de base de données xlsConn.ConnectionString = xlscmd du 
 du xlsConnString
 xlsConn.Open (). Le raccordement = le xlsConn

 » obtiennent le nom de la première feuille de travail dans décollement du 
 de dossier le faible en tant que nouveau 
 de System.Data.DataTable () décollement = 
 SheetName = décollement de xlsConn.GetOleDbSchemaTable (OleDbSchemaGuid.Tables, rien). Rangées (0) (« table_name »). Le 

 de ToString () xlscmd.CommandText = « choisissent * à partir [ » et SheetName et « ] » « choisir toutes les colonnes et toutes les rangées du premier xlsReader du 

 de feuille de travail = du 
 » xlsReader.Read () « écart de xlscmd.ExecuteReader () le premier 

 de disque (en-têtes de colonne) (mais pas si la première rangée est gelée) » ont lu chaque row
 tandis que le 
 FirstName = xlsReader (0) .ToString
 LastName = xlsReader (1).ToString
 EmailAddress = xlsReader (2).ToString
 JobTitle = xlsReader (téléphone de 3).ToString
 = xlsReader (4).ToString
 DivisionCode = xlsReader (5).ToString
 Division_name de xlsReader.Read () = xlsReader (6).ToString
 'si vous devez vérifier la nulle ou les blancs, emploient n'importe quoi de pareil :  Si ((pas IsDBNull (xlsReader (3).ToString)) Et (xlsReader ("" de <> 3).ToString)) L'extrémité Sub
End Class

I du 

 du 
 xlsConn.Close de While

 xlsReader.Close de fin de Then
 () () ont attaché le dossier d'Excel dont l'information sera tirée.  l'aide et la patience du 

Your est considérablement appreciated.

Thanks, le 
Jerald









  
  class= " lastRow de 

    >Attachments de " nom " de class= de 

    class= " valeur " de 

>