18-10-2004 por SKYBLACK
Conectar banco de dados no VB
Senhores,
Qual seria o comando correta para conectar um combo list ao banco de dados?, pois eu tentei este daqui:
With minha_con
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\users.mdb"
.Open
End With
With rs
meusql = "select * from tlbusuario " & _
"order by usuario"
.Open meusql, minha_con, adOpenDynamic
End With
mas não consigo fazer visualizar o conteúdo das colunas
18-10-2004 por bytamer
a
calma... combo list?
vc já conseguiu exibir algo em um outro objeto como o textbox?
é iniciante com conexões à base?
19-10-2004 por SKYBLACK
Re: a
Citação:
|
Postado Originalmente por bytamer
calma... combo list?
vc já conseguiu exibir algo em um outro objeto como o textbox?
é iniciante com conexões à ...
|
sim, como eu poderia fazer a conexão com uma combo list?
19-10-2004 por RoadKill
Se a conexão já tá ok eu costumo adicionar no combo list com um loop, while ou do, é isso que vc quer fazer?
19-10-2004 por SKYBLACK
Citação:
|
Postado Originalmente por RoadKill
Se a conexão já tá ok eu costumo adicionar no combo list com um loop, while ou do, é isso que vc quer fazer?
|
Na verdade o que eu quero fazer é criar uma tabela para adicionar e remover usuários e senhas em uma tela de login, pois no banco de dados seria mais flexível para colocar quantos usuários for necessário.
19-10-2004 por RoadKill
Citação:
|
Postado Originalmente por SKYBLACK
Na verdade o que eu quero fazer é criar uma tabela para adicionar e remover usuários e senhas em uma tela de login, p...
|
Nesse caso eu usaria o combo só para selecionar usuário existente. Faria um pequeno form com text só pra inclusão, ou estenderia o form de login com controles pra inclusão. Acho que assim ficaria mais organizado. Usar o combo pra inclusão e seleção fica complicado pra separar quando o usuário selecionou ou está incluindo um novo login.
Vamos ver se os colegas tem uma solução mais adequada.
21-10-2004 por SKYBLACK
Citação:
|
Postado Originalmente por RoadKill
Nesse caso eu usaria o combo só para selecionar usuário existente. Faria um pequeno form com text só pra inclusão, ou...
|
Eu inseri alguns dados na minha tabela, mas não consigo visualizar no combo list, eu criei uma opção para cadastrar os usuários na tabela, porém eu gostaria de saber se existe algum comando em vb para que eu possa visualizar no combo list.
21-10-2004 por RoadKill
Cara, eu só tô meio perdido com a sintaxe da conectividade, mas tendo a conexão pronta vc faz o ponteiro ir do começo ao fim do Recordset até incluir todos os itens no combo, algo como no exemplo.
Código:
rs.movefirst 'move pro primeiro registro do recordset
Do
Combo1.AddItem RS("usuario") 'inclui o dado do campo usuário do recordset
rs.MoveNext 'move para o próximo registro
Loop While Not rs.EOF 'loop enquanto não encontrar o final do recordset.
21-10-2004 por fdbelo
Só cuidado ao usar rs.movefirst, se a recordset estiver vazia vai resultar em erro. O melhor é usar rs.filter = 0
21-10-2004 por RoadKill
Citação:
|
Postado Originalmente por fdbelo
Só cuidado ao usar rs.movefirst, se a recordset estiver vazia vai resultar em erro. O melhor é usar rs.filter = 0
|
Bem lembrado, faz tempo que não mexo com BD, lembro que tinha outro esquema pra ver se o banco estava vazio, mas nem lembro mais. Tenho certeza que não era esse que passou, como funicona esse filter?
21-10-2004 por fdbelo
Citação:
|
Postado Originalmente por RoadKill
Bem lembrado, faz tempo que não mexo com BD, lembro que tinha outro esquema pra ver se o banco estava vazio, mas nem ...
|
Esse filter aplica filtros na recordset, como se fosse o WHERE da query.
Outra forma de evitar o erro é testar com o .recordcount, se não for zero, pode fazer o .movefirst. Porém amplicando o .filter fica mais simples, numa só instrução ele faz tudo.
