2012-01-14 20 views
0

yugalと同じですが、エラーが発生します。3704 - オブジェクトが閉じられているときに操作が許可されません。 ..私は私のシステムでこの問題を解決する助けてください、これは私のコードです:どのようにvb6.0でランタイムエラー3704を解決するには?

Private Sub cmdLog_Click() 
txtUser.SetFocus 
frmChange.txtusern = txtUser 
If txtUser <> "" And txtpass <> "" Then 
    **Set rsenrol = cnenrol.Execute("Select * from tblUsers where username = '" & txtUser & "'and password='" & txtpass & "'")**[this is where the error occur] 
    If csenrol.EOF = False Then 
    MsgBox "Welcome " & txtUser & "!!", vbInformation, "Welcome User" 
      txtUser = "" 
      txtpass = "" 
      Unload Me 
      MDIfrm.Show 
     Else 
     MDIfrm.Visible = False 
      MsgBox "Incorrect Username and/or Password. Please verify and Click Retry.", vbRetryCancel, "Log in Error" 
      txtpass = "" 
      txtUser.SetFocus 
      Exit Sub 
     End If 
Else 
    MsgBox "Sorry, I cannot identify you.", vbExclamation, "Intruder Alert" 
    MDIfrm.Visible = False 
    Exit Sub 
End If 
End Sub 

おかげで、 アレックス。

+4

ようこそStackOverflow。あなたの質問は非常に混乱しています。まず、質問ヘッダーにVB6とVBコードを記述しますが、タグには 'android'と表示されます。 VB6とAndroidは混在しないので意味がありません。第二に、あなたは「yugalのように」と言いますが、あなたが何を言及しているかに関係なく、それが何であるかを知っています。第三に、実際の質問を投稿するのではなく、単なるコードとエラーの参照だけです。それを編集してより多くの情報を追加し、質問された質問に関連する適切なタグでタグ付けしてください。ありがとう。 –

+0

エラーが発生した行を教えてください。 Unload.Meは私に疑わしいと思う。 – Dabblernl

+0

エラーは星とライン上にある**? – MarkJ

答えて

4

"INSERT、UPDATE"などのアクションクエリに使用されるexecuteコマンドで "SELECT"レコードセットを開くときにエラーが発生しました。この場合、.openコマンドを使用する必要がありますADOレコードセットを使用します。

+0

+1。はい、よく目撃されました!私の答えを削除しています。 – MarkJ

関連する問題