<%@ controle Language= " VB " AutoEventWireup= " valse " CodeFile= " ContactGrid.ascx.vb " Inherits= " Sitefinity_UserControls_ContactGrid_ContactGrid " %>
The is erachter:
1:
2:
3:
4:
5:
6:
7:
|
Gedeeltelijke Klasse Sitefinity_UserControls_ContactGrid_ContactGrid
Erft System.Web.UI.UserControl
Beschermde SubGridView1_SelectedIndexChanged (ByVal afzender als Voorwerp, ByVal e als System.EventArgs) behandelt GridView1.SelectedIndexChanged
Response.Redirect („EmailForm.aspx? id=“ & GridView1.SelectedDataKey.Value.ToString)
Sub van het eind
Het eind Class |
I heeft de volgende verwijzing naar het project toegevoegd: Interop.Microsoft.Office.Core.dll
I is gegeven het volgende, maar ik weet niet het waar te om het te zetten of hoe te om tot het work. Imports Microsoft.Office.Interop Imports System.Data.OleDb
'< br/>'be te maken zeker die een verwijzing van Com „Microsoft Excel 12.0 wordt genoemd de Bibliotheek van Objecten“ aan project '< br/> Public Schemerige xlsConnString van de Handvatten/> het Privé SubButton1_Click van de Klasse toe te voegen Form1 als/> Schemerige xlsConn String Schemerige xlsReader OleDbConnection als/> Schemerige xlscmd OleDbDataReader
Schemerige FileName OleDbCommand als Koord =“ \ \ newcowboy \ AllTDRA \ AllTDRA \ Website Contacteert het Contact List.xlsx " „J:\AllTDRA\Website Contacts Schemerige SheetName van de \- Website als String
Schemerige FirstName als String Schemerige LastName als String Schemerige EmailAddress als String Schemerige JobTitle als/> Schemerige Telefoon String Schemerige DivisionCode als String Schemerige Division_name aangezien String
“ dit is voor 2007 (.xlsx) xlsConnString = „Provider=Microsoft.ACE.OLEDB.12.0 uitblinkt; Data Source=“ & FileName &“; Uitgebreide Properties= "" Excel 12.0 Xml; Open HDR=YES """
„blinken dossier zoals een gegevensbestandlijst xlsConn.ConnectionString = xlsConnString xlsConn.Open () xlscmd. De verbinding = xlsConn
“ krijgt de naam van het eerste aantekenvel in dossier Schemerige dt als Nieuwe System.Data.DataTable () dt = xlsConn.GetOleDbSchemaTable (OleDbSchemaGuid.Tables, niets) SheetName = dt. Rijen (0) („table_name“). ToString ()
xlscmd.CommandText = „selecteert * van [“ & SheetName & „]“ „selecteert alle kolommen en alle rijen van het eerste aantekenvel
xlsReader = xlscmd.ExecuteReader () “ xlsReader.Read () „verwerpen het eerste verslag (kolomrubrieken) (maar niet als de eerste rij) bevroren is
“ las elke row terwijl xlsReader.Read () FirstName = xlsReader (0) .ToString LastName = xlsReader (1) .ToString EmailAddress = xlsReader (2) .ToString JobTitle = xlsReader (/> Telefoon 3) .ToString DivisionCode = xlsReader (5) .ToString Division_name = xlsReader (6) .ToString 'als u ongeldig of spaties, gebruik moet controleren iets in die aard: Als ((niet IsDBNull (xlsReader (3) .ToString)) En (xlsReader (3) .ToString <> "")) Het Eind
Sub End Class
I van While
xlsReader.Close () xlsConn.Close van het Eind van Then () het dossier vastgemaakt van Excel waarvan de informatie zal worden getrokken. de hulp
Your en het geduld zijn zeer appreciated.
Thanks, Jerald
|