<%@ Steuerung Language= " VB " AutoEventWireup= " falsches " CodeFile= " ContactGrid.ascx.vb " Inherits= " Sitefinity_UserControls_ContactGrid_ContactGrid " %>
The Code nach ist:
1:
2:
3:
4:
5:
6:
7:
|
Teilweise Kategorie Sitefinity_UserControls_ContactGrid_ContactGrid
Übernimmt System.Web.UI.UserControl
Geschütztes VorGridView1_SelectedIndexChanged (ByVal Absender als Gegenstand, ByVal e als System.EventArgs) behandelt GridView1.SelectedIndexChanged
Response.Redirect („EmailForm.aspx? id=“ u. GridView1.SelectedDataKey.Value.ToString)
Enden-Unterseeboot
Ende Class |
I haben den folgenden Hinweis auf dem Projekt hinzugefügt: Interop.Microsoft.Office.Core.dll
I sind das folgende gegeben worden, aber ich kann nicht, wo man es setzt, oder sich es work. Imports Microsoft.Office.Interop Imports System.Data.OleDb
'< Br/>'be versichern, COM zu addieren benannte „Objekt-Bibliothek Microsoft Excel-12.0“ zu den project '< beziehen Br/> Public privaten Handgriffen der Kategorien-Form1
des Unterseeboot-Button1_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs), die Button1.Click das xlsConnString als String schwaches xlsConn als neues OleDbConnection () schwaches xlsReader als OleDbDataReader schwaches xlscmd als neuer OleDbCommand ()
schwacher Dateiname als Schnur =“ \ \ newcowboy \ AllTDRA \ AllTDRA \ Website Kontakte \ site-Kontakt List.xlsx " „J:\AllTDRA\Website Contacts schwaches SheetName als String
schwaches FirstName als String schwaches LastName als String schwaches EmailAddress als String schwaches JobTitle als String schwaches Telefon als String schwaches DivisionCode als String schwaches Division_name als String
“, das dieser für ist, übertreffen 2007 xlsConnString = „Provider=Microsoft.ACE.OLEDB.12.0; Data Source=“ u. Dateiname u.“; Ausgedehntes Properties= "" Excel Xml 12.0; Das HDR=YES """
„geöffnet übertreffen Akte wie ein Datenbanktabelle xlsConn.ConnectionString = xlsConnString xlsConn.Open () xlscmd. Anschluss = xlsConn
“ erhalten den Namen des ersten Arbeitsblattes im Akte schwachen Papierlösekorotron als neues System.Data.DataTable () Papierlösekorotron = xlsConn.GetOleDbSchemaTable (OleDbSchemaGuid.Tables, nichts) SheetName = Papierlösekorotron. Reihen (0) („table_name“). ToString ()
xlscmd.CommandText = „wählen vor * von [“ u. SheetName u. „]“ „alle Spalten vorwählen und alle Reihen vom ersten Arbeitsblatt
xlsReader = xlscmd.ExecuteReader () vom “ xlsReader.Read () „Ausschuss das erste Aufzeichnung (Spaltenüberschriften) (aber, nicht wenn erste Reihe eingefroren wird),
“ lasen jedes row während xlsReader.Read () FirstName = xlsReader (0) .ToString LastName = xlsReader (1).ToString EmailAddress = xlsReader (2).ToString JobTitle = xlsReader (3).ToString Telefon = xlsReader (4).ToString DivisionCode = xlsReader (5).ToString Division_name = xlsReader (6).ToString ', wenn Sie auf Null oder freien Räumen überprüfen müssen, verwenden etwas Ähnliches: Wenn ((nicht IsDBNull (xlsReader (3).ToString)) Und (xlsReader (<> 3).ToString "")) Then Ende While
xlsReader.Close () xlsConn.Close ()
Ende Sub End Class
I haben die Excel-Akte angebracht, von der die Informationen gezogen werden.
Your Hilfe und Geduld ist groß appreciated.
Thanks, Jerald
|