投稿日 | : 2005/05/31(Tue) 07:21 |
投稿者 | : kara |
Eメール | : |
URL | : |
タイトル | : Re^3: SQLエラー |
おはようございます
お世話になっております、karaです
やってみているのですが、勉強不足で分かりません。。。。
ご指示いただければありがたいです。
Private Sub Command1_Click()
Dim strSQL As String
' データベース接続を確立する
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\db1.mdb"
' SQLクエリーの設定
' レコードセットを取得
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "テーブル1", cn, adOpenStatic
strSQL = "SELECT テーブル1.住所, テーブル1.名前, テーブル1.役職 From テーブル1 WHERE テ
ーブル
1.住所='東京'"
' レコードセットを取得する
Set rs = cn.Recordset(strSQL)
' レポートのデータソースを指定(レコードセットから情報を取得する)
Set DataReport1.DataSource = rs
' レポートを表示(プレビュー)する
DataReport1.Show
End Sub