如何運行在vb.net

我要開始不同的用戶程序不同的用戶，但我的代碼是不行的如何運行在vb.net

私人小組Btn_login_Click（發送者爲對象，E作爲EventArgs的）把手 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

如果我的用戶名是bob's怎麼辦？使用參數！儘可能快地打開/關閉連接，您需要打開時間最短。另外，開始看「使用」。至於你的問題，「我的代碼不工作」不是很具體，什麼不工作？你有錯誤嗎？ –

收盤價，那麼你的讀者再讀另一個爲你放它，然後在過程結束另一個查詢關閉讀者再次（「巴卡」是你的讀者）

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

回答

相關問題