如何运行在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

回答

相关问题