rubenmsoares
Power Member
Boas pessoal,
Precisava da vossa ajuda pare resolver este problema.
Estou a criar um botão de pesquisa, para já estou a tentar fazer o despiste devolvendo a informação para uma Label (Label8.Text), o objectivo é devolver a informação contida na tabela para dentro das textbox.text, que ai também não sei que comando colocar.
No entanto tenho este código que da sempre erro no Dim rs As SqlDataReader = dCmd.ExecuteReader()
Podem ajudar-me a perceber o erro?
Try
strConnection = ConnectionStrings("GESCOMERCIALConnectionString").ConnectionString
dbConn = New SqlClient.SqlConnection(strConnection)
dbConn.Open()
strSQL = "SELECT nif AND sfid FROM sfid_nif " & "WHERE fidnif=@fidnif AND " & "WHERE fidsfid=@fisfid "
dCmd = New SqlCommand(strSQL, dbConn)
dCmd.Parameters.Add(New SqlParameter("fidnif", pesquisanifbox.Text))
dCmd.Parameters.Add(New SqlParameter("fidsfid", Label1.Text))
Dim rs As SqlDataReader = dCmd.ExecuteReader()
If rs.Read() Then
'existem valores?
Label8.Text = pesquisanifbox.Text
Else
'não existem valores
Label8.Text = "Não existe o Nif indicado"
'pesquisanifbox.Text = ""
End If
Finally
End Try
Precisava da vossa ajuda pare resolver este problema.
Estou a criar um botão de pesquisa, para já estou a tentar fazer o despiste devolvendo a informação para uma Label (Label8.Text), o objectivo é devolver a informação contida na tabela para dentro das textbox.text, que ai também não sei que comando colocar.
No entanto tenho este código que da sempre erro no Dim rs As SqlDataReader = dCmd.ExecuteReader()
Podem ajudar-me a perceber o erro?
Try
strConnection = ConnectionStrings("GESCOMERCIALConnectionString").ConnectionString
dbConn = New SqlClient.SqlConnection(strConnection)
dbConn.Open()
strSQL = "SELECT nif AND sfid FROM sfid_nif " & "WHERE fidnif=@fidnif AND " & "WHERE fidsfid=@fisfid "
dCmd = New SqlCommand(strSQL, dbConn)
dCmd.Parameters.Add(New SqlParameter("fidnif", pesquisanifbox.Text))
dCmd.Parameters.Add(New SqlParameter("fidsfid", Label1.Text))
Dim rs As SqlDataReader = dCmd.ExecuteReader()
If rs.Read() Then
'existem valores?
Label8.Text = pesquisanifbox.Text
Else
'não existem valores
Label8.Text = "Não existe o Nif indicado"
'pesquisanifbox.Text = ""
End If
Finally
End Try