投稿日 | : 2004/01/29(Thu) 16:09 |
投稿者 | : おじん |
URL | : |
タイトル | : MDBデータベースの表示 |
Dataコントロールでデータベースに連結しDBgridに表示し様としています。
この時、MDBファイルは複数のFieldがあり、その一部をだけを抽出します。
その方法がわかりません。次ぎのソースでは「全項目Field」を抽出して
しまいます。よろしくお願いいたします。
Dim DBfile As String 'DBファイル名
Dim db As Database
Dim ds As Recordset
DBfile="c:\MDBfile.mdb"
Set db = DBEngine.Workspaces(0).OpenDatabase(DBfile)
Set ds = db.OpenRecordset("Table", dbOpenDynaset)
' ds.Filter = "Name Like '" & txtKey & "*' "
' Set ds = ds.OpenRecordset
Set Data1.Recordset = ds
書籍で見つけたのですが、
Dim sql as String
sql="SELECT field1,field3 From Table"
Data1.RecordSource = sql
のような記述があったのですが、これをどのように使うのかわかりません。
上(ソース)の方法では関係ないことなのか?も知れません。