投稿日 | : 2002/09/04(Wed) 10:29 |
投稿者 | : コロン |
Eメール | : |
URL | : |
タイトル | : データベースを照合してNAMEを表示させる方法。 |
[OSのVER]:WinXP
[VBのVER]:VB 6.0
物件NOを入力してエンターを押したときに、データベースと照らし合わせ、
一致していたら物件名をラベルに表示させるプログラムを作っりたいんです。
Private Sub txt物件NO_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Exit Sub
Call check物件NO
End Sub
Private Function check物件NO() As Boolean
Dim SQL As String, RS As New ADODB.Recordset
SQL = "Select count (*) From KZBUKKEN"
SQL = SQL & " Where 物件番号=" & STR2Q(txt物件NO)
RS.Open SQL, cn, adOpenStatic, adLockReadOnly
If RS(0) = 0 Then
check物件NO = False
txt物件NO.SetFocus
MsgBox "物件NOの入力が正しくありません。", vbCritical
Exit Function
Else
check物件NO = True
lbl物件NO = GET物件名(RS("物件名"), RS("品種コード"))
End If
End Function
という風に組んでみたのですが、
”要求された名前、または序数に対応する項目がコレクションでみつかりません”
というエラーが出てしまいます。
どこが間違っているのか分かりません。
この組み方で合っているのかもよくわからない状態になってしまいました。
どなたか教えてください。