投稿日 | : 2002/10/04(Fri) 12:35 |
投稿者 | : A221 |
Eメール | : |
URL | : |
タイトル | : Re^3: SQLについて |
> ・DAOで接続しています。
> ・SQL文は文字型配列に格納しております。
下記、一番シンプルなかたちです。
変数mySQLの中身をリストボックスから読んだデータによって変更すれば
できます。
-----------------------------------------------------
Private Sub Form_Load()
Dim ws As DAO.Workspace, db As DAO.Database
Dim rs As DAO.Recordset
Dim mysql As String
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("C:\db1.mdb")
mysql = "Select * From Table1"
Set rs = db.OpenRecordset(mysql, dbOpenDynaset)
End Sub