Bonsoir,
Je cherche à rendre mes requêtes ainsi que mon programme plus 'intelligent', c'est a dire que les données entrées dans mes 'TextBox' qui interrogent ma base de données soient vérifiées si elles existent bien dans ma base de données.
Pour cela je cherche donc à ce que la valeur entrée dans la 'TextBox1' par exemple soit vérifiée si elle est présente ou non. Et en ressort une 'erreur' ou un 'succès'.
Voici une idée qui ne marche pas :/ (au point de vue syntaxe/code) :
Conn = New SqlConnection("Server='" & TextIp.Text & "';Database=PS_UserData;User Id='" & TextUser.Text & "';Password='" & TextPassword.Text & "'") Try Conn.Open() Dim query As New SqlCommand("Select * from Ps_UserData.dbo.Users_master where UserUID='" & TextUID.Text & "'") Dim reader As New SqlDataReader reader = query.ExecuteReader() If IsDBNull(reader.GetString(0)) Then MessageBox.Show("Erreur!") Else
Dim query2 As New SqlCommand("Update PS_UserData.dbo.Users_Master SET blabla (passons les détails)") End If ResultApSuccess.Text = "[Success!] -" & TextAp.Text & " AP removed to UserUID=" & TextUID.Text & "" ResultApError.Text = "" TextAp.Text = "" TextUID.Text = "" Conn.Close()
Catch ex As Exception ResultApError.Text = "[Error!] Can not add " & TextAp.Text & " AP to UserUID=" & TextUID.Text & "" ResultApSuccess.Text = "" Finally Conn.Dispose() End Try
De ce faites ma query 'check' l'existence de l'userUID entré.
Mais cette syntaxe/code pourrai me servir pour 'interroger' d'autre colonnes de ma bdd.
Si quelqu'un aurait un tuto (ou corriger mes erreur) ou bien un code plus propre et plus fonctionnel je suis preneur!
Elle ne marche pas car l'ensemble ne correspond pas ?
query2' utilise la même connexion string que 'query'
mais où est le reader = query.ExecuteReader()
Command = New SqlCommand(query2, conn) SQlREADER = Command.ExecuteReader
On me dit :
Erreur 1 Impossible de convertir une valeur de type 'System.Data.SqlClient.SqlCommand' en 'String'. C:\Users\Baptiste\Desktop\SQL\SQL\panel.vb 84 42 SQL
Private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click Conn = New SqlConnection("Server='" & TextIp.Text & "';Database=PS_UserData;User Id='" & TextUser.Text & "';Password='" & TextPassword.Text & "'") Dim SQlREADER As SqlDataReader Try Conn.Open() Dim query As New SqlCommand("Select * from Ps_UserData.dbo.Users_master where UserUID='" & TextID.Text & "'") SQlREADER = query.ExecuteReader() If IsDBNull(SQlREADER.GetString(0)) Then MessageBox.Show("Erreur!") Else
Dim query2 As New SqlCommand("Update PS_UserData.dbo.Users_Master SET blabla (passons les détails)") Command = New SqlCommand(query2, Conn) SQlREADER = Command.ExecuteReader End If ResultApSuccess.Text = "[Success!] -" & TextAp.Text & " AP removed to UserUID=" & TextID.Text & "" ResultApError.Text = "" TextAp.Text = "" TextID.Text = "" Conn.Close()
Catch ex As Exception ResultApError.Text = "[Error!] Can not add " & TextAp.Text & " AP to UserUID=" & TextID.Text & "" ResultApSuccess.Text = "" Finally Conn.Dispose() End Try End Sub
Même en ayant fait ce que vous avez dit, toujours ce message
Erreur 1 Impossible de convertir une valeur de type 'System.Data.SqlClient.SqlCommand' en 'String'. C:\Users\Baptiste\Desktop\SQL\SQL\panel.vb 83 42 SQL
