LOCALIZAR REGISTO....
Boa tarde,
Estou a tentar fazer um localizar registo. Estou usando o seguinte codigo:
Dim myConnectionString As String = My.Settings.Contas_correntesConnectionString [ô][Ô]Data Source=PEDRO_ESTAGIARI;Initial Catalog=Contas_correntes;Integrated Security=True[Ô]
Dim connection As New SqlConnection(myConnectionString)
Dim sair As Integer
Dim da As SqlDataAdapter
Dim ds As DataSet
Dim dr As DataRow
Dim num As String
Try
Do
num = CStr(InputBox([Ô]Banco que deseja pesquisar[Ô], [Ô]Procurar[Ô]))
Loop While num = [Ô][Ô]
Dim sql_contador As String = [Ô]SELECT * FROM t_banco where cod_banco=[Ô] & num
Dim da_contador = New SqlCommand(sql_contador, connection)
Dim ds_contador = New DataSet
[ô]Dim encontrado As Integer = da_contador.ExecuteScalar
If num... Then
MsgBox([Ô]Banco não encontrado! [Ô], MsgBoxStyle.Information)
Else
For Each dr In ds.Tables(0).Rows
Cod_bancoTextBox.Text = dr.Item(0)
Desgn_bancoTextBox.Text = dr.Item(1)
Next
End If
Catch ex As Exception
MsgBox([Ô]ImpossÃvel realizar a operação! [Ô], MsgBoxStyle.Critical)
End Try
Eu consego localizar o registo caso este exista mas caso o registo não exista queria listar uma msgbox a dizer que não existe. Sou novato em vb.net. Alguem me pode ajudar?
Estou a tentar fazer um localizar registo. Estou usando o seguinte codigo:
Dim myConnectionString As String = My.Settings.Contas_correntesConnectionString [ô][Ô]Data Source=PEDRO_ESTAGIARI;Initial Catalog=Contas_correntes;Integrated Security=True[Ô]
Dim connection As New SqlConnection(myConnectionString)
Dim sair As Integer
Dim da As SqlDataAdapter
Dim ds As DataSet
Dim dr As DataRow
Dim num As String
Try
Do
num = CStr(InputBox([Ô]Banco que deseja pesquisar[Ô], [Ô]Procurar[Ô]))
Loop While num = [Ô][Ô]
Dim sql_contador As String = [Ô]SELECT * FROM t_banco where cod_banco=[Ô] & num
Dim da_contador = New SqlCommand(sql_contador, connection)
Dim ds_contador = New DataSet
[ô]Dim encontrado As Integer = da_contador.ExecuteScalar
If num... Then
MsgBox([Ô]Banco não encontrado! [Ô], MsgBoxStyle.Information)
Else
For Each dr In ds.Tables(0).Rows
Cod_bancoTextBox.Text = dr.Item(0)
Desgn_bancoTextBox.Text = dr.Item(1)
Next
End If
Catch ex As Exception
MsgBox([Ô]ImpossÃvel realizar a operação! [Ô], MsgBoxStyle.Critical)
End Try
Eu consego localizar o registo caso este exista mas caso o registo não exista queria listar uma msgbox a dizer que não existe. Sou novato em vb.net. Alguem me pode ajudar?
Se entendi, basta vc fazer um if
tem uma linha comentada que vc declara a variavel encontrado do tipo integer e coloca um executeScalar.
mas so se vc quiser um registro apenas.
e vc teria que converter o vaor para o tipo da variavel.
ou então um
if (DataTable.Rows.Count < 1) then
escreve - Nada econtrado
mas a ideia do ExecuteScalar para validar se existe o registro é a melhor ideia
T+
tem uma linha comentada que vc declara a variavel encontrado do tipo integer e coloca um executeScalar.
mas so se vc quiser um registro apenas.
e vc teria que converter o vaor para o tipo da variavel.
ou então um
if (DataTable.Rows.Count < 1) then
escreve - Nada econtrado
mas a ideia do ExecuteScalar para validar se existe o registro é a melhor ideia
T+
Pois eu tentei usar executeScalar mas da-me erro nessa linha e desisti de fazer assim.
Qual é o problema dessa linha??
[ô]Dim encontrado As Integer = da_contador.ExecuteScalar
desculpe a minha ingnorancia, sou novato em vb.net.
Cumprometos,
Pedro Freire
Qual é o problema dessa linha??
[ô]Dim encontrado As Integer = da_contador.ExecuteScalar
desculpe a minha ingnorancia, sou novato em vb.net.
Cumprometos,
Pedro Freire
Tópico encerrado , respostas não são mais permitidas