问题描述
Imports System.Data.SqlClient
Imports System.Data.DataTable
Imports MySql.Data.MySqlClient
Public Class Form1
  Private Sub Label1_Click(发件人为对象,e为EventArgs)处理Label1.Click
 结束分
  Private Sub Button2_Click(发件人为对象,e为EventArgs)处理Button2.Click
 结束分
  Private Sub Button1_Click(发件人为对象,e为EventArgs)处理Button1.Click
      Dim connection As New SqlConnection("Server = localhost; user = root; password = msrp; Database = hotel")
      Dim命令As New SqlCommand("select * from guest,其中username = @username和密码= @ password",连接)
      command.Parameters.Add(" @ username",SqlDbType.VarChar).Value = TextBoxUsername.Text
      command.Parameters.Add(" @ password",SqlDbType.VarChar).Value = TextBoxPassword.Text
      Dim adapter As New SqlDataAdapter(命令)
      Dim table As New DataTable()
      adapter.Fill(table)
&NBSP; &NBSP; &NBSP;如果table.Rows.Count()< = 0然后
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; MessageBox.Show("用户名或密码不正确")
&NBSP; &NBSP; &NBSP;否则
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; MessageBox.Show("登录成功")
&NBSP; &NBSP; &NBSP;结束如果
&NBSP;结束分
&NBSP; Private Sub TextBoxUsername_TextChanged(sender As Object,e As EventArgs)Handles TextBoxUsername.TextChanged
&NBSP;结束点
结束等级
Imports System.Data.SqlClient
Imports System.Data.DataTable
Imports MySql.Data.MySqlClient
Public Class Form1
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim connection As New SqlConnection("Server = localhost;user=root;password=msrp;Database = hotel")
Dim command As New SqlCommand("select * from guest where username = @username and password = @password", connection)
command.Parameters.Add("@username", SqlDbType.VarChar).Value = TextBoxUsername.Text
command.Parameters.Add("@password", SqlDbType.VarChar).Value = TextBoxPassword.Text
Dim adapter As New SqlDataAdapter(command)
Dim table As New DataTable()
adapter.Fill(table)
If table.Rows.Count() <= 0 Then
MessageBox.Show("Username or password not correct")
Else
MessageBox.Show("Login Successful")
End If
End Sub
Private Sub TextBoxUsername_TextChanged(sender As Object, e As EventArgs) Handles TextBoxUsername.TextChanged
End Sub
End Class
错误说明:
推荐答案
根据您的描述,请先确认用户名和密码是否正确,然后尝试重新启动MSSQLSERVER服务,看看它是否可以正常工作。
According to your description, please confirm that the username and password are correct firstly, and then try to restart your MSSQLSERVER service and look if it can work fine.
详细信息步骤是:
1.转到控制面板。
2.搜索服务。
3.从搜索结果中打开本地服务窗口
4.重新启动MSSQLSERVER服务。
The detailed step is:
1.Go to control panel.
2.search for services.
3.Open Local services window from your search results
4.Restart your MSSQLSERVER service.
最好的问候,
Cherry
这篇关于错误代码-2146232060的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!