LISTBOX HELP

ZIMIRO 21/09/2012 13:05:50
#410170
bom tenho banco de dados com vários campos e um deles fica sempre 0 ou 1
quero e listbox exiba apenas os nomes que o campo estiver 1
algum pode me ajudar?
ALTAIR148 21/09/2012 13:14:32
#410172 Resposta escolhida
Boa tarde,

Bota na query a condição se o campo for 1 ele seleciona.
ZIMIRO 21/09/2012 13:22:45
#410173
sim mais problema e exbir
que estou com problema

  Private Sub frmConta_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        [ô]conect sql
        Dim oSQLConn As SqlConnection = New SqlConnection()
        Dim recebeipporta As String = Form1.recebeconnect1
        Dim recebesenhaeuser As String = Form1.recebeconnect3
        oSQLConn.ConnectionString = recebeipporta + [Ô]Initial Catalog=account;[Ô] + recebesenhaeuser
        oSQLConn.Open()

        [ô]busca sql
        Dim SQL As String = [Ô]Select * from cabal_auth_table ORDER BY Login=1[Ô]

        [ô]tras consulta com conexao
        da = New SqlDataAdapter(SQL, oSQLConn)
        ds = New DataSet

        [ô]tras resultado para grid
        da.Fill(ds, [Ô]Login[Ô])
        listbLogados.Items.Add([Ô]ID[Ô])

        With listbLogados

        End With
        oSQLConn.Close()

    End Sub
ALTAIR148 21/09/2012 13:31:12
#410174
Mas de olhar assim aparente tem erro mesmo, tente com o codigo abaixo


Private Sub frmConta_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        [ô]conect sql
        Dim oSQLConn As SqlConnection = New SqlConnection()
        Dim recebeipporta As String = Form1.recebeconnect1
        Dim recebesenhaeuser As String = Form1.recebeconnect3
        oSQLConn.ConnectionString = recebeipporta + [Ô]Initial Catalog=account;[Ô] + recebesenhaeuser
        oSQLConn.Open()

        [ô]busca sql
        Dim SQL As String = [Ô]Select * from cabal_auth_table where Login=1 ORDER BY Login[Ô]
 Dim cmd As New OleDb.OleDbCommand(SQL, oSQLConn)
 Dim db_reader As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.Default)
         While db_reader.Read

listbLogados.Items.Add(db_reader([Ô]ID[Ô]))

End While 
oSQLConn.close
    End Sub
ZIMIRO 21/09/2012 13:37:57
#410175
Dim SQL As String = [Ô]Select * from cabal_auth_table where Login=1 ORDER BY Login[Ô]
Dim cmd As New OleDb.OleDbCommand(SQL, oSQLConn)
Dim db_reader As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.Default)
While db_reader.Read


nao funciona som sqlconnect
ALTAIR148 21/09/2012 13:40:17
#410176
é só adaptar a lógica é essa aí.
ZIMIRO 21/09/2012 13:53:30
#410177
obrigado so mias uma duvida
como coloco 2 campos a ser exibido

sem ser assim

listbLogados.Items.Add(db_reader([Ô]ID[Ô]))
listbLogados.Items.Add(db_reader([Ô]Nome[Ô]))

exemplo algo assim
listbLogados.Items.Add(db_reader([Ô]ID[Ô],[Ô]Nome[Ô])) com separação porque de sima não separa
ALTAIR148 21/09/2012 13:56:05
#410178
Não sei se dá certo, mas tente assim:

  listbLogados.Items.Add(db_reader([Ô]ID[Ô]) & db_reader([Ô]Nome[Ô])  )
ZIMIRO 21/09/2012 13:57:43
#410179
mais tipo nao da para saber qual e id e nome quando exibe

como coloco tipo
ID Nome
1 test

+- assim
ALTAIR148 21/09/2012 13:58:17
#410180
Você também pode concatenar na própria sql, nesse LINK mostra como fazer isso.
Tópico encerrado , respostas não são mais permitidas
Voltar