テーブルを検索するには、ODBCConnection、ODBCQuery、ODBCResultSet の各オブジェクトが必要です。ODBCQuery の Connection プロパティ と ODBCResultSet の Query プロパティを次のように設定して、オブジェクトを明示的に関連付ける必要があります。

• queryObject.Connection = connectionObject は、接続を検索に関連付けます。
• resultSetObject.Query = queryObject は、検索を結果セットに関連付けます。

• resultSetObject.Connection = connectionObject は、接続を結果セットに関連付けます。

ODBCQuery の SQL プロパティ は、検索で実行する SQL ステートメントを指定します。SELECT、CREATE TABLE、DROP TABLE、INSERT、UPDATE、DELETE などのステートメントを含めて、あらゆる有効な SQL 構文が SQL プロパティです。たとえば、次の SQL ステートメントは、STUDENTS テーブル内のすべてのデータを選択します。

"SELECT * FROM STUDENTS"

"SELECT * FROM STUDENTS ORDER BY LASTNAME"

"SELECT LASTNAME, FIRSTNAME FROM STUDENTS ORDER BY LASTNAME"

SQL 検索にはパラメータを含めることができます。次の検索には、studentNo という名のパラメータが 1 つ含まれます。

qry.SQL = "SELECT * FROM STUDENTS WHERE STUDENT_NO = ?studentNo?"

Dim inputNo As String
inputNo = Inputbox$("Enter ID number", "Student ID?")
Call result.SetParameter("studentNo", inputNo)
REM Alternatively, the following could be used:
REM Call result.SetParameter(1, inputNo)

Dim inputName as String
qry.SQL = "SELECT * FROM STUDENTS WHERE LASTNAME = _
?lastName?"
inputName = Inputbox$("Enter last name", _
"Student last name?")
Call result.SetParameter("studentName", "'" _
& inputName & "'")

For i = 1 To result.NumParameters
 inputParameter = _
 Inputbox$(result.GetParameterName(i), _
 "Parameter " & i)
 Call result.SetParameter(i, "'" & inputParameter & "'")
Next

ODBCResultSet オブジェクトの Execute および ExecProcedure の各メソッドは、検索を実行し、選択されたデータを取り出します。ODBCQuery の QueryExecuteTimeOut プロパティを設定することにより、検索を完了するまでの時間を制限できます。

選択されたデータは結果セットとして利用できるようになります。結果セットには、テーブルから選択した各行に対して 1 行、テーブルから選択された各フィールドに対して 1 列が含まれます。データにアクセスするには ODBCResultSet オブジェクトを使用します。

検索によってデータが返されたかどうかを判断するには、ODBCResultSet オブジェクトの IsResultSetAvailable メソッドを使用します。

結果セットが必要でなくなったら、ODBCResultSet の Close メソッドで閉じます。

例

用語集