Back to Top

プログラムの覚書

VB.NET ADO.NETでDBに接続する

ADO.NETで、SQL Serverへの接続する方法を説明します。

ADO.NETでDBへの接続する場合、基本はSQL Serverでも、Oracleでもほとんど違いはありません。

他のデータべス接続の参考になると思います。

ADO.NETでSQL Serverへの接続する

Dim builder As SqlConnectionStringBuilder = New SqlConnectionStringBuilder()
builder.DataSource = ".\SQLEXPRESS"
builder.AttachDBFilename = "D:\DB\TestDB.mdf"
builder.IntegratedSecurity = True
builder.UserInstance = True
builder.MultipleActiveResultSets = True
'builder.UserID = 
'builder.Password =
'builder.InitialCatalog = "pubs"

Dim ConnectString As String = builder.ToString()

Dim sqlConnect As New SqlConnection(ConnectString)

sqlConnect.Open()

MessageBox.Show("Microsoft SQL Server に接続されました")

' データベース接続を閉じる
sqlConnect.Close()
sqlConnect.Dispose()

※必ずしもSqlConnectionStringBuilderを使用する必要はありません。

 

VB.NET フォルダ内のフォルダ・ファイル名を取得する

指定ドライブまたはフォルダ内の指定ファイルおよびフォルダを取得します。

フォルダ内のファイルを取得する

Dim dir As String = "C:\work"

'全てのファイルを取得
For Each filename As String In System.IO.Directory.GetFiles(dir)
    MessageBox.Show(filename)
Next
  
'ワイルドカード指定でファイルを取得
For Each filename As String In System.IO.Directory.GetFiles(dir, "*.txt")
    MessageBox.Show(filename)
Next

 

フォルダ内のフォルダを取得する

Dim sDirPath As String = "C:\work\"

For Each spath As String In System.IO.Directory.GetDirectories(sDirPath, "*")
    MessageBox.Show(spath)
Next

 

フォルダ内のディレクトリとファイルを取得する

Dim sDirPath As String = "C:\work\"

For Each spath As String In System.IO.Directory.GetFileSystemEntries(sDirPath, "*")
    MessageBox.Show(spath)
Next