烧录ic
vbnet连接mysql数据库登录_vb连接SQL数据库登录代码我的代码是连接到SQL数据库,输⼊⽤户密码,点登录,然后打开下⼀个界⾯,现在数据库是连上了,但IF语句⽆效,直接⾛ELSE,菜鸟⼀个,⾼⼿帮我改改~(这段代码原来连的是ACCESS数据源...平面
涡卷弹簧
加热膜我的代码是连接到SQL数据库,输⼊⽤户密码,点登录,然后打开下⼀个界⾯,现在数据库是连上了,但IF语句⽆效,直接⾛ELSE,菜鸟⼀个,⾼⼿帮我改改~(这段代码原来连的是ACCESS数据源库) Dim sConnString As String = _ "Data Source =(local);Initial Catalog =LiMin SuperMarket Manage System;Integrated Security=SSPI" Dim myCn As New SqlConnection Private Sub三维打印
OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click Try myCn.ConnectionString = sConnString myCn.Open() Dim mySQL As String = "Select PersonnelID From Users Where Account='" & Me.boxname.Text & "' And Code='" & Me.PasswordTextBox.Text & "'" Dim sComm As New SqlCommand(mySQL, myCn) Dim s As Object = sComm.ExecuteScalar If sComm.ExecuteScalar Then Dim User_MainForm As New form1 User_MainForm.Show() Else MsgBox("⽤户名或密码不正确,请重试!") End If Catch ex As OleDbException MsgBox(ex.Message) Finally myCn.Close() '关闭连接 End Try End Sub教学扩音器
展开
停车场闸机