Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Caulfield

[Resolvido] Consulta no SQL Server 2005

Recommended Posts

Bom dia Galera,

Estou criando um programa que vai roubar os dados de tabelas do SQL Server 2005 que faz parte do banco de dados do local onde trabalho. Eu criei um textbox que quando o user digitar o número da OS ele verifica se já a OS já existe. Caso ela já exista, o programa completa os outros textbox com os dados. Isso eu consigo fazer na boa.

 

Mas quando a OS não existe eu não sei como fazer pra ele reconhecer e exibir uma mensagem dizendo que a OS não existe. Eu não sei como é o código pra isso.

 

O ero é "Não há linha na posição 0."

 

Se puderem me ajudar.

 

Valeu.

 

Bom dia Galera,

Estou criando um programa que vai roubar os dados de tabelas do SQL Server 2005 que faz parte do banco de dados do local onde trabalho. Eu criei um textbox que quando o user digitar o número da OS ele verifica se já a OS já existe. Caso ela já exista, o programa completa os outros textbox com os dados. Isso eu consigo fazer na boa.

 

Mas quando a OS não existe eu não sei como fazer pra ele reconhecer e exibir uma mensagem dizendo que a OS não existe. Eu não sei como é o código pra isso.

 

O ero é "Não há linha na posição 0."

 

Se puderem me ajudar.

 

Valeu.

 

Putz... consegui.

 

Dim myConnection As New SqlConnection("Data Source=192.168.0.30;Initial Catalog=BSJobs;User Id=sa;Password=Drupa2000;")
        Dim myCommand As New SqlCommand("SELECT OrderID, Name, Customer FROM admin.jobs Where OrderID  like '" & txtOrderId.Text & "'", myConnection)
        myConnection.Open()
        Dim myDataAdapter As New SqlDataAdapter(myCommand)
        Dim myDataSet As New DataSet
        myDataAdapter.Fill(myDataSet, "jobs")

        
        Try
            txtName.Text = myDataSet.Tables("jobs").Rows(0)("Name").ToString()
        Catch ex As Exception
            MsgBox("Não há OS cadastrada", MsgBoxStyle.Exclamation)
        End Try

Mas eu queria saber de vocês se esse código pode melhorar.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Você pode trabalhar com parâmetros que a tendência à erros é menor..

 

Procure por SQLParameters

 

além disso para verificar se não existem registros você pode fazer assim

 

 



if mydataset.tables("jobs").rows.count <> 0  then
txtName.text = mydataset.tables("jobs").rows(0)("name").toStrinf
else
msgbox ("não há POS cadastrada")
end if

Compartilhar este post


Link para o post
Compartilhar em outros sites

Você pode trabalhar com parâmetros que a tendência à erros é menor..

 

Procure por SQLParameters

 

além disso para verificar se não existem registros você pode fazer assim

 

 



if mydataset.tables("jobs").rows.count <> 0  then
txtName.text = mydataset.tables("jobs").rows(0)("name").toStrinf
else
msgbox ("não há POS cadastrada")
end if

 

Legal... vou procurar sobre isso. Valeu.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.