У меня возникли проблемы с моей формой входа в систему с журналом данных он продолжает оштукатуриваться нужна помощь пожалуйста спасибо
у меня возникли проблемы с моей формой входа в систему с журналом данных он продолжает застревать нужна помощь пожалуйста спасибо
Что я уже пробовал:
Private Sub loginbtn_Click(sender As System.Object, e As System.EventArgs) Handles loginbtn.Click sqlconn = New MySqlConnection sqlconn.ConnectionString = "server=localhost;user id=root;password=;database=issa" Dim reread As MySqlDataReader Try sqlconn.Open() Dim query As String query = "SELECT * from usersetup where Username='" & usernametxtbx.Text & "'and Password = '" & passtxbx.Text & "'" commando = New MySqlCommand(query, sqlconn) reread = commando.ExecuteReader Dim coount As Integer = 0 While reread.Read coount = coount + 1 End While strSQL = "Insert into datalogin (Username, Date, Time) values ('" & usernametxtbx.Text & "','" & date1.Text & "', '" & time1.Text & "')" Dim dd As New MySqlDataAdapter(strSQL, CONNECTION) dd.Fill(dss) usernametxtbx.Text = "" passtxbx.Text = "" If coount = 1 Then If (reread.Item("Restriction").ToString()) = "Admin" Then MessageBox.Show(" Login Successfull as ADMIN. . . ") officialpage.Show() Me.Hide() Else MessageBox.Show(" Login Successfull as GUEST. . . ") guestpublic.Show() Me.Hide() End If ElseIf coount = 1 Then MessageBox.Show("Record Duplicated...") Else MessageBox.Show("Log in failed... Either Username or Password is not correct...") End If sqlconn.Close() Catch ex As Exception End Try End Sub
RickZeeland
И как вы определили поля Дата и время в вашей таблице datalogin ?