投稿日 | : 2002/10/04(Fri) 14:21 |
投稿者 | : Honda |
Eメール | : |
URL | : |
タイトル | : Re^5: SQLについて |
> 自分なりにもその方法でやってはいたのですが、
> 「パラメータが少なすぎます」と言われます。
> 以下にソースを展開しますので、間違いを指摘してもらえませんか?
>
> Private Sub DBList1_DblClick()
> Dim DB As Database 'データベース
> Dim TB As Recordset 'レコードセット
> Dim strSQL As String 'SQL文
>
> 'SQL文の作成
> strSQL = "SELECT * "
> strSQL = strSQL & "FROM 名簿 "
> strSQL = strSQL & "WHERE "
> strSQL = strSQL & "[氏名] = "
> strSQL = strSQL & DBList1.Text
>
> Set DB = DBEngine.OpenDatabase("C:\My Documents\名簿データ.mdb")
> Set TB = DB.OpenRecordset(strSQL, dbOpenDynaset)
>
> Text1(0).Text = TB!ID
> Text1(1).Text = TB!氏名
> Text1(2).Text = TB!電話番号
> Text1(3).Text = TB!都道府県
> Text1(4).Text = TB!住所
> Text1(5).Text = TB!趣味
>
> TB.Close
> DB.Close
>
> End Sub
strSQLが違います。
フィールドが文字型なら'で囲み日付型なら#で囲みます
strSQL = "SELECT * "
strSQL = strSQL & "FROM 名簿 "
strSQL = strSQL & "WHERE "
strSQL = strSQL & "[氏名] = '"
strSQL = strSQL & DBList1.Text & "'"