VBScript によるデータベースアクセス

以下は、.udl ファイルによって定義されたデータベース接続を利用して、データベースにアクセスするサンプルです。

Dim conn : Set conn = WScript.CreateObject("ADODB.Connection")
conn.Open("FILE NAME=" + strUdlPath + ";")

Dim rs : Set rs = conn.Execute("SELECT IMAGE_PATH FROM IMAGE_TBL WHERE IMAGE_CODE = '" + strKeyImage + "'")
If rs.EOF = True Then
	Quit() ' 対象レコードが見つからない
End If

Dim strPathImage : strPathImage = rs("IMAGE_PATH")

rs.Close()
Set rs = Nothing
conn.Close()
Set conn = Nothing

・strUdlPath に .udl ファイルのパス名を設定し、strKeyImage にキー項目を設定して、データベースを検索しています。