スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

スポンサードリンク

SQL SERVER その② ユーザーテーブルの一覧を取得する方法

風邪を拗らせ熱でうなされる事2日間。
予定していた確定申告をしなければと、ダルイ体を騙し騙し確定申告を済ませてきました。
会場の下の階がハローワークさんなので、例年にない凄い混雑になっており、
やはり不況の波が襲ってきているのがここでも感じることができました。

前回のつづき。。。
今回は指定されたデータベース内のユーザーテーブルを配列にして返す関数です。
Listクラスが.NET Framework 2.0 で追加されたArrayListクラスです。
配列を返すにはどうしたらよいのか?って色々調べていたら見つけたものなのですが、
OF Stringだけで、型指定ができ、違う型の値を代入するとコンパイルエラーと
なってくれるので、助かります。


'//*****************************************************************
'// 指定されたSQL SERVER データベースからユーザーテーブル名の一覧を取得する。
'//*****************************************************************
Public Function pFncGetTableNameList(ByVal con As System.Data.SqlClient.SqlConnection, ByVal sLogicalDBNAME As String) As List(Of String)

Dim _Command As New System.Data.SqlClient.SqlCommand
Dim _Reader As System.Data.SqlClient.SqlDataReader
Dim _SQL As String = ""
Dim _List As List(Of String) = New List(Of String)()

_List.Clear()

Try
     _SQL = "USE [" & sLogicalDBNAME & "] " & vbCrLf
     _SQL = _SQL & "SELECT A.NAME, A.TYPE " & vbCrLf
     _SQL = _SQL & "FROM sysobjects A JOIN sysusers B ON A.UID = B.UID " & vbCrLf
     _SQL = _SQL & "WHERE A.TYPE IN('U', 'IF', 'TF', 'V', 'P') AND A.STATUS >= 0 " & vbCrLf
     _SQL = _SQL & "ORDER BY A.TYPE, A.NAME " & vbCrLf
     _Command.Connection = con
     _Command.CommandText = _SQL
     _Reader = _Command.ExecuteReader
     While _Reader.Read()
       _List.Add(_Reader("NAME").ToString)
     End While
    Catch ex As Exception
     '例外が発生した時の処理
     MsgBox(ex.ToString)
     Return _List
     Exit Function
    Finally
     _Reader.Close()
     _Command.Connection = Nothing
    End Try
    Return _List

End Function

スポンサードリンク

テーマ:プログラミング - ジャンル:コンピュータ

コメントの投稿

非公開コメント

スポンサードリンク
最新記事
カテゴリ
カレンダー
09 | 2017/10 | 11
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31 - - - -
最新トラックバック
ブロとも申請フォーム

この人とブロともになる

月別アーカイブ
激安特価情報
Amazonタイムセール
楽天市場タイムセール
Yahoo出店記念セール
NTT-X Store 激安特価!
激安家電のGENO PLUS
コストコ・イケアの通販
つけたまま眠れるファンデ
家電品を安値で買うならこちら!
ケーズデンキ
ベルメゾンアウトレット
激安ブランドコスメ 週末セール
モバコレ SALE
au Brand Garden
アウトレットモール BRANDELI
ブックオフオンラインのオトナ買い
ビッグカメラ◆週末特別セール
ソフマップ 中古・アウトレット
【宿代全額ポイントバック】夏休み早期予約キャンペーン
ネットプライス 送料294円
イオンモールオンライン
EDIONネットショップ
最新コメント
天気予報

-天気予報コム- -FC2-
カウンター
検索フォーム
リンクに表示されるテキスト
ランキング参加中
クリックしていただけると、 こまつもとは大変嬉しいです。



人気ブログランキングへ

ランキングに参加しています。 クリックのご協力をお願い致します。 いつもありがとうございます。 にほんブログ村 通販ブログへ
ブログランキング・にほんブログ村へ
にほんブログ村 IT技術ブログ ソフトウェアへ
にほんブログ村 ゲームブログへ
にほんブログ村 IT技術ブログへ



人気ブログをblogramで分析

趣味・個人

ランキング

リンクリックブログランキング

私を登録 by BlogPeople



RSSリンクの表示
リンク
QRコード
QRコード
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。