Ciao
non capisco cosa sbaglio
ho questa connessione a db sql contente gli utenti e pw per il login al mio programma, ho voluto miglirarlo impendendo l'accesso ad alcune funzioni a chi non avesse gli accessi di amministratore.
Tutto funziona, ma per prova ho messo una Msbox che mi restituisce il contenuto di "selectadministrator", ma invece di restituirmi SI o NO (come memorizzato all'interno del DB, nel campo administrator), mi scrive:
"SELECT Administrator FROM [User] WHERE ID = '" &1 (2 .. 3 .. in base al login inserito)
li DB è
ID Username Password Administrator
1 Mario Rossi SI
2 Marco Bianchi NO
3 Gianni Verdi SI
Private Sub ButtonOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOK.Click
Dim connection As New SqlClient.SqlConnection
Dim command As New SqlClient.SqlCommand
Dim adaptor As New SqlClient.SqlDataAdapter
Dim dataset As New DataSet
Dim selectadministratorsql As New SqlClient.SqlCommand
Dim selectadministrator As String
connection.ConnectionString = ("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Members.mdf;Integrated Security=True;User Instance=True")
command.CommandText = "SELECT * FROM [User] WHERE Username= '" & TextBoxUtente.Text & "'AND Password='" & TextBoxPassword.Text & "';"
connection.Open()
command.Connection = connection
adaptor.SelectCommand = command
adaptor.Fill(dataset, "0")
Dim count = dataset.Tables(0).Rows.Count
selectadministratorsql.CommandText = "SELECT Administrator FROM [User] WHERE ID = '" & count
.
.
.
.
Sapete aiutarmi
Ciao
Rispondi quotando
