投稿日 | : 2005/05/27(Fri) 08:12 |
投稿者 | : kara |
Eメール | : |
URL | : |
タイトル | : SQLエラー |
おはようございます
お世話になっておりますkaraです
SQL文をくんだのですが、下記のエラーがでます
色々調べてのですが今一つ分かりません。
ご指示ください。
よろしくお願いいたします。
ACCESS 2002 SP3
VB6.0 SP6
エラー
引数が間違った型、許容範囲外、または競合しています。
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クエリーの設定
strSQL = "SELECT テーブル1.住所, テーブル1.名前, テーブル1.役職 From テーブル1 WHERE
テー
ブル1.住所='東京'"
' レコードセットを取得する
Set rs = cn.Execute(strSQL)
' レポートのデータソースを指定(レコードセットから情報を取得する)
Set DataReport1.DataSource = rs
' レポートを表示(プレビュー)する
DataReport1.Show