1

Como e que posso declarar o @NIF como uma string

Dim sqlConString As String = "Server=localhost\TESTE;Database=tempTest;User Id=sa;Password=123"
    Dim conn = New SqlConnection(sqlConString)
    Try
        Conn.Open()
        Dim strSQL As String = "SELECT * From Computador Where Nifcliente = @NIF"
        conn.Close()
        Dim da As New SqlDataAdapter(strSQL, Conn)
        Dim ds As New DataSet
        da.Fill(ds, "Computador")
        DataGrid.DataSource = ds.Tables(0)
    Catch ex As SqlException
        MsgBox(ex.Message, MsgBoxStyle.Critical, "SQL Error")
    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")
    End Try
1
  • Como é um único valor não seria mais simples fazer assim: "SELECT * From Computador Where Nifcliente = '" + nif + "'", sendo nif a variável string com o valor? Commented 9/05/2018 às 11:34

2 Respostas 2

0

Você pode fazer o seguinte:

Dim strSQL As String = string.format("SELECT * From Computador Where Nifcliente = {0)",NIF)

Melhor mesmo seria:

        Dim sqlConString As String = "Server=localhost\TESTE;Database=tempTest;User Id=sa;Password=123"
        Dim conn = New SqlConnection(sqlConString)

        Try
            Conn.Open()

            Dim strSQL As String = "SELECT * From Computador Where Nifcliente = @NIF"
            Dim cmd As New SqlClient.SqlCommand(strSQL, Conn)

            cmd.Parameters.Add(New SqlClient.SqlParameter("@NIF", ValorDeNIF))

            Dim da As New SqlDataAdapter(cmd)
            Dim ds As New DataSet

            da.Fill(ds, "Computador")

            conn.Close()

            DataGrid.DataSource = ds.Tables(0)

        Catch ex As SqlException
            MsgBox(ex.Message, MsgBoxStyle.Critical, "SQL Error")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")
        End Try
0
Dim sqlConString As String = "Server=localhost\TESTE;Database=tempTest;User Id=sa;Password=123"
    Dim conn = New SqlConnection(sqlConString)
    Try
        conn.Open()
        Dim strSQL As String = "SELECT * From Computador Where Nifcliente = '" + clientNIF + "'"
        conn.Close()
        Dim da As New SqlDataAdapter(strSQL, conn)
        Dim ds As New DataSet
        da.Fill(ds, "Computador")
        DataGrid.DataSource = ds.Tables(0)
    Catch ex As SqlException
        MsgBox(ex.Message, MsgBoxStyle.Critical, "SQL Error")
    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")
    End Try

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .