1.將excel上傳到服務(wù)器
武都網(wǎng)站建設(shè)公司成都創(chuàng)新互聯(lián),武都網(wǎng)站設(shè)計制作,有大型網(wǎng)站制作公司豐富經(jīng)驗。已為武都成百上千家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設(shè)公司要多少錢,請找那個售后服務(wù)好的武都做網(wǎng)站的公司定做!
/// summary
/// 上傳文件到指定服務(wù)器文件
/// /summary
/// param name="fileUpload".Net_FileUpload控件/param
/// param name="mag"out 返回上傳是否成功/param
/// param name="fileName"out 返回上傳到服務(wù)器上的文件名/param
/// returns返回布爾類型。 上傳成功返回true 失敗false/returns
public static bool UpLoad(FileUpload fileUpload, out string mag, out string fileName)
{
mag = null;
fileName = null;
bool flag = false;
//是否允許上載
bool fileAllow = false;
//設(shè)定允許上載的擴展文件名類型
string[] allowExtensions = { ".xls", ".xlsx" };
//檢查是否有(是否包含)文件案
if (fileUpload.HasFile)
{
//取得上傳文件之?dāng)U展文件名,并轉(zhuǎn)換成小寫字母
string fileExtension = System.IO.Path.GetExtension(fileUpload.FileName).ToLower();
//檢查擴展文件名是否符合限定類型
for (int i = 0; i allowExtensions.Length; i++)
{
if (fileExtension == allowExtensions[i])
{
fileAllow = true;
}
}
//符合上傳文件類型
if (fileAllow)
{
try
{
//重命名文件名
fileName = DateTime.Now.ToString("yyyyMMddhhmmss") + fileUpload.FileName;
//存儲文件到文件夾
fileUpload.SaveAs(GetServerPath(fileName));
fileUpload.Dispose();
mag = "文件導(dǎo)入成功";
flag = true;
}
catch (Exception ex)
{
mag += ex.Message;
flag = false;
}
}
else
{
mag = "不允許上載:" + fileUpload.PostedFile.FileName + ",只能上傳xls和xlsx的文件,請檢查!";
flag = false;
}
}
else
{
mag = "請選擇要導(dǎo)入的Excel文件!";
flag = false;
}
return flag;
}
調(diào)用 bool ft = ExcelImport.UpLoad(FileUpload1, out mag, out filePath);
FileUpload1為。net的上傳控件
二,查詢出Excel里面的所有工作薄名,根據(jù)OUT出來的存放excel的路徑
/// summary
/// 獲取EXCEL文件中的所有表名(模板類型)(SheetName)
/// /summary
/// param name="filepath"文件絕對路徑/param
/// returnsArrayList集合/returns
public static ArrayList ExcelSheetName(string filepath)
{
ArrayList al = new ArrayList();
string strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filepath + ";Extended Properties=Excel 8.0;";
OleDbConnection conn = new OleDbConnection(strConn);
try
{
conn.Open();
DataTable sheetNames = conn.GetOleDbSchemaTable
(System.Data.OleDb.OleDbSchemaGuid.Tables, new object[] { null, null, null, "TABLE" });
conn.Close();
foreach (DataRow dr in sheetNames.Rows)
{
al.Add(dr[2]);
}
}
catch (Exception e)
{
Logger.Error("ExcelImport.cs 頁面 ExcelSheetName", e);
}
finally
{
conn.Close();
}
return al;
}
調(diào)用 //獲取導(dǎo)入模板所有的模板表名
ArrayList al = ExcelImport.ExcelSheetName(UpPath);
3.進行工作薄名稱的對比
string sheet = null;
//進行判斷是否取到想要的sheet1
bool isExists = false;
for (int i = 0; i al.Count; i++)
{
//獲取模板表名
sheet = al[i].ToString();
if (sheet.Equals("sheet1"))
{
//EXCELsheet名是sheet1
isExists = true;
}
}
搜一下:VB.NET操作SQLCE數(shù)據(jù)庫,如何獲取SQLCE數(shù)據(jù)庫中所有表的表名
?
呵呵,剛剛做這個,就借花獻佛了
/// summary
/// 獲得當(dāng)前Access數(shù)據(jù)庫的表
/// /summary
/// param name="Source"/param
/// returns/returns
public ArrayList DataScoreTableName(string Source)
{
ArrayList TableName = new ArrayList();
string ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Source;
OleDbConnection conn = new OleDbConnection(ConnectionString);
conn.Open();
DataTable schemaTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables,new object[] { null, null, null, "TABLE"});
foreach (DataRow dr in schemaTable.Rows)
{
TableName.Add(dr["TABLE_NAME"]);
}
conn.Close();
return TableName;
}
Public conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public db As String
Private sSQL As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
db = "C:\Documents and Settings\ws01\デスクトップ\新しいフォルダ\WindowsApplication1\db1.mdb"
db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" db
conn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
conn.Open(db)
Rs = conn.OpenSchema()
End Sub
access數(shù)據(jù)庫中所有的表名都存在一個叫做MSysObjects的表中了,所以在這個表中查詢就可以了。以下是代碼:
Dim L_dadap As New OleDb.OleDbDataAdapter("select * from MSysObjects ", L_conn)
Dim L_dtable As New DataTable
L_dadap.Fill(L_dtable)
Dim TabName(L_dtable.Rows.Count - 1)
For i = 0 To L_dtable.Rows.Count - 1
TabName(i) = L_dtable.Rows(i).Item("name")
Next
本文題目:vb.net獲取表名的簡單介紹
標題路徑:http://muchs.cn/article0/hgsiio.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站營銷、網(wǎng)站制作、App開發(fā)、外貿(mào)網(wǎng)站建設(shè)、自適應(yīng)網(wǎng)站、營銷型網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)