Ruben_Barbosa
Power Member
Da-me este Erro
E o Codigo é
Código:
E o Codigo é
Código:
Código:
Dim daSql As New SqlDataAdapter
daSql = New SqlDataAdapter("select * from utilizador where utilizador='" & txtUtilizador.Text & "' and password='" & txtPassword.Text & "'", Connection.ConnectionString)
daSql.Fill(dsSQL, "utilizador")
If dsSQL.Tables.Item(0).Rows(0).Item(0) = 1 Then
Utilizador = txtUtilizador.Text
Main_Renamed.Show()
Else
MsgBox("Utilizador ou password incorrectas.", MsgBoxStyle.Critical)
txtUtilizador.Text = ""
txtPassword.Text = ""
txtUtilizador.Focus()
End If
daSql = Nothing
dsSQL = Nothing
Última edição pelo moderador: