• 0
Sign in to follow this  
alexandremanowar

Estrutura De Controle E Consultas

Question

E a pessoal beleza!

Estou trabalhando com winform e estou montando a entrada do programa da seguinte forma, assim que o programa é executado ele pede o usuário e a senha.

Até aí está beleza, a segunda etapa é ver se o usuário e senha conferem fazendo a consulta no banco de dados. A consulta também está ok!

O problema esta na hora de fazer a condição. Seria assim se não existir o DataSet vai ficar vazio, logo se estiver vazio tem que dar a mensagem de senha e usuário não encontrado, e essa é a parte que está dando errado. Como eu faço para minha isntrução IF saber se o DataSer está vazio?

AS demais partes estão funcionando.

O meu código esta assim:

 Dim usuario As String = InputBox$("Digite abaixo seu Usuário", "Login", , , )
        Dim senha As String = InputBox("Digite abaixo sua Senha", "Senha", , , )
        Dim cmd As New SqlCommand("select * from senhadeals where senha='" & Trim(senha) & "' and usuario='" & Trim(usuario) & "'", sqlcon)
        Dim da As New SqlDataAdapter(cmd)
        Dim ds As New DataSet
        Dim tb As New DataTable
        da.Fill(ds)
        ds.Tables.Add(tb)

        If ds.Tables(0).Rows(0).Item("nivel") = "Administrador" Then
            mdiFilho = New Principal
            mdiFilho.MdiParent = Me
            mdiFilho.Show()
        Else
            MsgBox("Ainda não foram criados os demais níveis", MsgBoxStyle.Information, "Atenção")
        End If

Aguém pode me explicar como fazer a parte que está faltando?

Share this post


Link to post
Share on other sites

3 answers to this question

Recommended Posts

  • 0

Acredito que seria algo assim (estou sem o VS aqui para confirmar):

If ds.Tables(0).Rows.Count = 0 Then
  MessageBox.Show("Vazio!")
Else
  MessageBox.Show("Não-Vazio!")
End If

Certo? wink.gif

Graymalkin

Share this post


Link to post
Share on other sites
  • 0

Valeu Graymalkin o esquema era esse mesmo. Eu estava errando porque estava colocando assim:

...
If ds.Tables(0).Rows.Length = 0 Then
..

que mancada rsrsrsrs

Ainda confundo algumas funções e comandos, mas estou aprendendo legal aqui no forum.

At+ valeu

Share this post


Link to post
Share on other sites
  • 0

Sem problemas. Length e Count servem ao mesmo propósito, porém o primeiro é utilizado no lugar de comprimento ou extensão e o segundo no sentido de contagem ou quantidade (isso no idioma Inglês, obviamente).

Abraços,

Graymalkin

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this