whats wrong with my codes, i cant connect to my database...pls help!
ERROR CONNECTING TO DATABASE
Imports System.Data.SqlClient
Imports System.Data
Public Class LoginForm1
' TODO: Insert code to perform custom authentication using the provided username and password
' (See http://go.microsoft.com/fwlink/?LinkId=35339).
' The custom principal can then be attached to the current thread's principal as follows:
' My.User.CurrentPrincipal = CustomPrincipal
' where CustomPrincipal is the IPrincipal implementation used to perform authentication.
' Subsequently, My.User will return identity information encapsulated in the CustomPrincipal object
' such as the username, display name, etc.
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click
Dim conn As SqlConnection
conn = New SqlConnection()
conn.ConnectionString = "Data Source=JING2; Initial Catalog=AFJIS"
Try
conn.Open()
Catch myerror As SqlException
MsgBox("Error Connecting to Database")
End Try
Dim MyAdapter As New SqlDataAdapter
Dim Sqlquery = "Select * From syscontrol Where username = '" + txtuser.Text + "' And
password = '" + txtpass.Text + "'"
Dim MyCommand As New MySqlCommand()
MyCommand.Connection.conn()
MyCommand.Commandtext = Sqlquery
Dim MyData As SqlDataReader
MyData = MyCommand.ExecuteReader()
If MyData.HasRows = 0 Then
MsgBox("Invalid Login")
Else
MsgBox("Login Accepted")
Me.Hide()
End If
Me.Close()
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub
End Class
