エラーについて (ID:125753)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

すいません。今作っているのが

Public Sub Command1_Click()
   '**  レコードの検索、もし検索した名前がなければメッセージボックスにより
   '**  「一致する名前がありません」と出力
    
    Dim address As New ADODB.Connection
    Dim rs As New ADODB.Recordset 'データベースの内容を出力するレコードセット
    Dim SQL As String 'SQL文を保持
     
        'SQLを使い、データベースにあるデータを取りに行きます
        SQL = "SELECT * FROM address Where firstname = '"
        SQL = SQL & Text1.Text
        SQL = SQL & "'"
    
        Set address = New ADODB.Connection
        address.Open ("AddressBookConnection")
    
        Set rs = New ADODB.Recordset
        With rs
            .ActiveConnection = address
            .Source = SQL
            .CursorType = adOpenStatic
            .LockType = adLockOptimistic
            .Open
        End With
        Text1.Text = rs(1).Value
        Text2.Text = rs(3).Value
        Text3.Text = rs(4).Value
        Text4.Text = rs(5).Value
        
        On Error GoTo Error00
            rs.Close: Set rs = Nothing
            address.Close: Set address = Nothing
        Exit Sub
        
Error00:
    rs.Close: Set rs = Nothing
    address.Close: Set address = Nothing
    MsgBox（”一致するデータがありません”）
End Sub

なんですが・・・主にどこをなおしたいいのですか？

←解決時は質問者本人がここをチェックしてください。

戻る