どのようにvb.net

私は別のユーザーでプログラムを開始したい

で別のユーザーを実行するために私のコードはどのようにvb.net

プライベートサブBtn_login_Click（オブジェクトとして送信者、EventArgsのようe）のハンドル Btn_login.Click

が動作していません

konek() 
    cmd = New SqlCommand("select User_id, Username, Password from [dbo].[User] where Username = '" & Txtusername.Text & "' and Password ='" & Txtpassword.Text & "'", conn) 
    baca = cmd.ExecuteReader() 
    baca.Read() 
    If baca.HasRows Then 
     baca.Close() 
     cmd = New SqlCommand("insert into [Login].[dbo].[Login_log] (User_id,Date_jam_in,Pc_short,ip) VALUES ('" & Txtusername.Text & "','" & DateAndTime.Now & "','" & Txtnamakom.Text & "','" & TxtIPAddress.Text & "')", conn) 
     baca = cmd.ExecuteReader() 
     MsgBox("Login Berhasil", MsgBoxStyle.OkOnly, "Sucses") 
     Process.Start("cmd.exe" + Txtusername.Text + "Notepad.exe" + Txtpassword.Text) 

    Else 
     MsgBox("Sorry, username or password ora ene", MsgBoxStyle.OkOnly, "Invalid") 
    End If 
    Txtpassword.Text = "" 
    Txtusername.Text = "" 

    Txtusername.Focus() 
End Sub

出典

2017-07-27 panji anom Wicaksono

を別のものを読んで、あなたのリーダーを閉じますbあなたはbaca.Read（）を呼び出すのを忘れてロックし、それを閉じて何か質問をしてください。 – muffi

ユーザー名がボブの場合はどうなりますか？パラメータを使用してください！接続をできるだけ早く開閉してください。最短時間で開く必要があります。また、「使用する」を見始める。あなたの質問については、 "私のコードは仕事ではありません"はあまり具体的ではありませんが、うまくいかないのですか？エラーがありますか？ –

IF-で（「バカ」の読者である）あなたは、プロセスの終了時に、それに入れ、別のクエリが再びREADERを閉じて、そのために再び

Private Sub Btn_login_Click(sender As Object, e As EventArgs) Handles Btn_login.Click 

    konek() 
    cmd = New SqlCommand("SELECT User_id, Username, Password from [dbo].[User] WHERE Username = '" & Txtusername.Text & "' and Password ='" & Txtpassword.Text & "'", conn) 

    baca = cmd.ExecuteReader() 
    baca.Read() 


    If baca.HasRows Then 
     baca.Close() 

     cmd = New SqlCommand("insert into [Login].[dbo].[Login_log] (User_id,Date_jam_in,Pc_short,ip) VALUES ('" & Txtusername.Text & "','" & DateAndTime.Now & "','" & Txtnamakom.Text & "','" & TxtIPAddress.Text & "')", conn) 

     baca = cmd.ExecuteReader() 
     baca.read() 

     MsgBox("Login Berhasil", MsgBoxStyle.OkOnly, "Sucses") 
     Process.Start("cmd.exe" + Txtusername.Text + "Notepad.exe" + Txtpassword.Text) 

     baca.close() 
    Else 
     MsgBox("Sorry, username or password ora ene", MsgBoxStyle.OkOnly, "Invalid") 

    End If 
     Txtpassword.Text = "" 
     Txtusername.Text = "" 
     Txtusername.Focus() 

End Sub

出典

2017-10-23 02:00:11 Primitive

答えて

関連する問題