Conectar banco de dados no VB

SKYBLACK · 18-10-2004, 9:43

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

bytamer · 18-10-2004, 13:57

calma... combo list?

vc já conseguiu exibir algo em um outro objeto como o textbox?

é iniciante com conexões à base?

SKYBLACK · 19-10-2004, 5:38

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?

RoadKill · 19-10-2004, 6:05

Se a conexão já tá ok eu costumo adicionar no combo list com um loop, while ou do, é isso que vc quer fazer?

SKYBLACK · 19-10-2004, 9:58

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.

RoadKill · 19-10-2004, 11:10

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.

SKYBLACK · 21-10-2004, 10:08

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.

RoadKill · 21-10-2004, 11:45

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.

fdbelo · 21-10-2004, 12:19

Só cuidado ao usar rs.movefirst, se a recordset estiver vazia vai resultar em erro. O melhor é usar rs.filter = 0

RoadKill · 21-10-2004, 12:23

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?

fdbelo · 21-10-2004, 12:28

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.

18-10-2004, 9:43	#1 (permalink)
SKYBLACK Membro Senior Registrado em: Feb 2002 Localização: Rio de janeiro Mensagens: 208 Reputação: 21	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 __________________ MSX sharp Hotbit 3Mhz 64 kb ram 16 kb de vídeo Drive de diskete 5 1/4 360 kb Msxdos 1.0 "Computers in future may weigh no more than 1.5 tons." Revista Popular Mechanics, 1949

18-10-2004, 13:57	#2 (permalink)
bytamer Super Participante Registrado em: Oct 2002 Localização: São Paulo/SP - 05304-010 Mensagens: 580 Reputação: 19	a calma... combo list? vc já conseguiu exibir algo em um outro objeto como o textbox? é iniciante com conexões à base? __________________ Afastado do fórum por um tempo.

19-10-2004, 6:05	#4 (permalink)
RoadKill Zumbi Registrado em: Feb 2003 Localização: Mogidas Cruzes - SP Mensagens: 8.860 Reputação: 32	Se a conexão já tá ok eu costumo adicionar no combo list com um loop, while ou do, é isso que vc quer fazer? __________________ Não sei como é que foi... Só sei que foi assim. Sou a favor da netiqueta http://octopusland.com http://www.ogimp.com.br/

21-10-2004, 11:45	#8 (permalink)
RoadKill Zumbi Registrado em: Feb 2003 Localização: Mogidas Cruzes - SP Mensagens: 8.860 Reputação: 32	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. __________________ Não sei como é que foi... Só sei que foi assim. Sou a favor da netiqueta http://octopusland.com http://www.ogimp.com.br/

21-10-2004, 12:19	#9 (permalink)
fdbelo Tô em todas Registrado em: Jul 2001 Localização: Ludwigsburg - Alemanha Mensagens: 1.927 Reputação: 24	Só cuidado ao usar rs.movefirst, se a recordset estiver vazia vai resultar em erro. O melhor é usar rs.filter = 0 __________________ \|Dell Inspiron 6400\|Intel Core 2 Duo T7200 (2GHz) \|2GB DDR-2 RAM\|120GB HD (5.400)\|15.4" Wide True Life (1280x800)\|Bluetooth integrado, bateria 9 células e mais umas coisinhas \| Folding@Home Member!

		FórumGdH > Profissional > Programação, scripts, web e banco de dados
Conectar banco de dados no VB

1. Conexão delphi 7 a Banco de Dados SQL Server 2000 2. [Resolvido] Conectar ao banco de dados de outro host 3. openoffice-base com mysql	4. Banco De Dados - Db Forge 5. Conectar a um BD no localhost
Mais resultados? Use nossa pesquisa.

Opções do Tópico
Exibir Versão para Impressão Envie essa página por e-mail