タイトル : Re^3: EXCEL2003ファイルをMDBファイルへのインストール方法 投稿日 : 2015/07/28(Tue) 17:43 投稿者 : 魔界の仮面弁士
> Using conn As New OleDbConnection(cb.ConnectionString) > conn.Open() > Dim tbl As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing) > conn.Close() > Return (From r In tbl Select r.Field(Of String)("TABLE_NAME")).ToList() > End Using 失礼しました。VB2005 という点を見落としていました…。 修正版はこちら。(折角書いたので、元のコードは残しておきます) Dim sheets as New List(Of String)() Using conn As New OleDbConnection(cb.ConnectionString) conn.Open() Dim tbl As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing) For Each row As DataRow in tbl.Rows sheets.Add(row("TABLE_NAME").ToString()) Next conn.Close() End Using Return sheets |