Visual Basic Tips

Ｊｅｔデータベース（ＤＡＯ）クエリーの作成と削除

Ｊｅｔデータベースの中にクエリーを作成します。
ここの例ではFieldIntegerという項目が1 or 2 のレコ−ドを抽出するクエリーを作成します。

※このサンプルを動かすにはVisual Basic Tipsの
　Ｊｅｔデータデース（ＤＡＯ）データベースの作成と削除
　Ｊｅｔデータベース（ＤＡＯ）テーブルの作成と削除
　を行ってデータベースとテーブルを作成してください。

Private Sub Form_Load()
　　Call CreateQuery(App.Path & "\work.mdb")
End Sub


Sub CreateQuery(strDbPath As String)
　　Dim db As Database
　　Dim ws As Workspace
　　Dim qdf As QueryDef
　　Dim strSql As String
　　Dim intRet As Integer

　　On Error GoTo ErrHandler

　　Set ws = DBEngine.Workspaces(0)
　　Set db = ws.OpenDatabase(strDbPath)

　　On Error GoTo ErrHandler

　　strSql = "SELECT FieldText, FieldInteger, FieldLong From 新規テーブル "
　　strSql = strSql & "WHERE FieldInteger=1 Or FieldInteger=2;"

　　Set qdf = db.CreateQueryDef("新規クエリー", strSql)

　　db.Close
　　ws.Close
　　Exit Sub
ErrHandler:
　　If Err = 3012 Then 'クエリーが既に存在
　　　　db.QueryDefs.Delete "新規クエリー"
　　　　Resume
　　End If
　　intRet = MsgBox("<" & Err & ">" & Error(Err), vbOKOnly, "CreateQuery")
End Sub



DownLoad vbtips015.lzh 6KB (VB6.0)