投稿日 | : 2002/10/04(Fri) 13:29 |
投稿者 | : たま |
Eメール | : |
URL | : |
タイトル | : Re^4: 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