rubenmsoares
Power Member
Boas,
Pessoal ajudem-me a resolver esta situação, pois não sei que procedimento tomar.
Este código, na fase inicial manda seleccionar o o valor introduzido na textbox.tex,
No primeiro If esta a perguntar se existir valores então vai seleccionar os dados em outra tabela e coloca os dados pretendidos nas textbox.text indicadas.
Se não existir os valor no primeiro select então ele diz na label8.tex que os valores não existem.
Acontecem que ele esta a executar logo o final, sabendo eu que o valor a procurar existe, o que eu estou a fazer mal?
strConnection = ConnectionStrings("GESCOMERCIALConnectionString").ConnectionString
dbConn = New SqlClient.SqlConnection(strConnection)
dbConn.Open()
strSQL = "SELECT fidnif, fidsfid FROM sfid_nif WHERE fidnif=@fidnif AND fidsfid=@fidsfid "
dCmd = New SqlCommand(strSQL, dbConn)
dCmd.Parameters.Add(New SqlParameter("fidnif", pesquisanifbox.Text))
dCmd.Parameters.Add(New SqlParameter("fidsfid", Label8.Text))
'dCmd = New SqlCommand(strSQL, dbConn)
Dim rs As SqlDataReader = dCmd.ExecuteReader
If rs.Read() Then
'existem valores??
strConnection = ConnectionStrings("GESCOMERCIALConnectionString").ConnectionString
dbConn = New SqlClient.SqlConnection(strConnection)
dbConn.Open()
strSQL = "SELECT nif, nome FROM cliente WHERE nif=@nif AND nome=@nome "
dCmd = New SqlCommand(strSQL, dbConn)
Dim rs1 As SqlDataReader = dCmd.ExecuteReader
If rs1.Read() Then
nifbox.Text = rs1("nif")
nomebox.Text = rs1("nome")
End If
dbConn.Close()
Else
'não existem valores
Label8.Text = "Não existe o Nif indicado"
pesquisanifbox.Text = ""
End If
dbConn.Close()
Pessoal ajudem-me a resolver esta situação, pois não sei que procedimento tomar.
Este código, na fase inicial manda seleccionar o o valor introduzido na textbox.tex,
No primeiro If esta a perguntar se existir valores então vai seleccionar os dados em outra tabela e coloca os dados pretendidos nas textbox.text indicadas.
Se não existir os valor no primeiro select então ele diz na label8.tex que os valores não existem.
Acontecem que ele esta a executar logo o final, sabendo eu que o valor a procurar existe, o que eu estou a fazer mal?
strConnection = ConnectionStrings("GESCOMERCIALConnectionString").ConnectionString
dbConn = New SqlClient.SqlConnection(strConnection)
dbConn.Open()
strSQL = "SELECT fidnif, fidsfid FROM sfid_nif WHERE fidnif=@fidnif AND fidsfid=@fidsfid "
dCmd = New SqlCommand(strSQL, dbConn)
dCmd.Parameters.Add(New SqlParameter("fidnif", pesquisanifbox.Text))
dCmd.Parameters.Add(New SqlParameter("fidsfid", Label8.Text))
'dCmd = New SqlCommand(strSQL, dbConn)
Dim rs As SqlDataReader = dCmd.ExecuteReader
If rs.Read() Then
'existem valores??
strConnection = ConnectionStrings("GESCOMERCIALConnectionString").ConnectionString
dbConn = New SqlClient.SqlConnection(strConnection)
dbConn.Open()
strSQL = "SELECT nif, nome FROM cliente WHERE nif=@nif AND nome=@nome "
dCmd = New SqlCommand(strSQL, dbConn)
Dim rs1 As SqlDataReader = dCmd.ExecuteReader
If rs1.Read() Then
nifbox.Text = rs1("nif")
nomebox.Text = rs1("nome")
End If
dbConn.Close()
Else
'não existem valores
Label8.Text = "Não existe o Nif indicado"
pesquisanifbox.Text = ""
End If
dbConn.Close()