vb.net獲取表名的簡單介紹

vb.net excel導入sql如何自動獲取excel的sheet名？

1.將excel上傳到服務器

武都網站建設公司成都創新互聯,武都網站設計制作，有大型網站制作公司豐富經驗。已為武都成百上千家提供企業網站建設服務。企業網站搭建\成都外貿網站建設公司要多少錢，請找那個售后服務好的武都做網站的公司定做！

/// summary

/// 上傳文件到指定服務器文件

/// /summary

/// param name="fileUpload".Net_FileUpload控件/param

/// param name="mag"out 返回上傳是否成功/param

/// param name="fileName"out 返回上傳到服務器上的文件名/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;

//設定允許上載的擴展文件名類型

string[] allowExtensions = { ".xls", ".xlsx" };

//檢查是否有(是否包含)文件案

if (fileUpload.HasFile)

{

//取得上傳文件之擴展文件名，并轉換成小寫字母

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 = "文件導入成功";

flag = true;

}

catch (Exception ex)

{

mag += ex.Message;

flag = false;

}

}

else

{

mag = "不允許上載：" + fileUpload.PostedFile.FileName + "，只能上傳xls和xlsx的文件，請檢查！";

flag = false;

}

}

else

{

mag = "請選擇要導入的Excel文件!";

flag = false;

}

return flag;

}

調用 bool ft = ExcelImport.UpLoad(FileUpload1, out mag, out filePath);

FileUpload1為。net的上傳控件

二，查詢出Excel里面的所有工作薄名，根據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;

}

調用 //獲取導入模板所有的模板表名

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數據庫，如何獲取SQLCE數據庫中所有表的表名 ？

搜一下：VB.NET操作SQLCE數據庫，如何獲取SQLCE數據庫中所有表的表名

？

VB.Net 如何獲取Access數據庫中的表名稱

呵呵，剛剛做這個，就借花獻佛了

/// summary

/// 獲得當前Access數據庫的表

/// /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;

}

用VB.NET連接ACCESS取出ACCESS中的所有表名和字段名

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數據庫里面有幾張表，如何在vb.net里獲取表的名字？

access數據庫中所有的表名都存在一個叫做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://m.kartarina.com/article0/hgsiio.html

成都網站建設公司_創新互聯，為您提供網站營銷、網站制作、App開發、外貿網站建設、自適應網站、營銷型網站建設

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯