Ir para o conteúdo
NuGuN

[VB6] Search em Base de Dados

Mensagens Recomendadas

NuGuN    2
NuGuN

Andei a procura deste tema mas não encontrei em lado nenhum aqui no forum, se por acaso ja hover um igual, peço desculpa  :-[

A duvida é a seguinte:

Por exemplo, tenho uma tabela com a data da chegada de um determinado objecto de uma marca. Depois tenho outra tabela com a data em que chegou o objecto e o nome do objecto.

E o que eu queria saber era como posso fazer em VB6 um programa que ao colocar uma data numa textbox, carrega-se num botão e e ele ia a base de dados buscar todos os valores com aquela data.

Agora.... eu não sei trabalhar com bases de dados, e tambem gostava de saber o que tenho de fazer na base de dados para que istu funcione. Possivelmente ate tenho de fazer alguma consulta ou alguma relação....  :-[

Se alguem me poder ajudar agradecia  :D

P.S.

A base de dados é em Access

Cumps

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
cientistamaluco    0
cientistamaluco

Creio que basta executar umas query's na base-de-dados para aparecerem apenas os objectos com determinada data. Imaginemos que o campo da data é "c_data", o nome da tabela é "t_marcas" e o objecto da BD no VB6 chama-se bd_marcas. Tu fazias uma coisa deste género:

bd_marcas.open "SELECT * FROM t_marcas WHERE c_data='" & txt_data.text & "'"

Depois diz se valeu de alguma coisa :P

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
NuGuN    2
NuGuN

Boas...

bem.. já tinha pedido ajuda à um ano atraz  ;) . Depois resolvi o problema, mas isso que ai colocas-te é para SQL ou estou enganado, e eu precisava era para Access

Cumps

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
cientistamaluco    0
cientistamaluco

Eu experimentei no VB6 executar query's SQL em base-de-dados em Acess pelo "Visual Data Manager" e não tive quaisquer problemas

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
programadorvb6    1
programadorvb6

para instruções em sql :

    Data1.RecordSource = sql

    'Data1.Recordset.MoveFirst

    Data1.Refresh

    sql = "SELECT NSerial.Aplicacao,NSerial.Serial FROM NSerial WHERE "

    sql = sql & "Aplicacao LIKE '*" & alfa & "*' ORDER BY "

    '*********IMPRIMIR POR LETRAS******************************

    'SQL = SQL & "MATRICULA LIKE  'A*' OR MATRICULA LIKE '*A?' ORDER BY "

    '**********************************************************

    sql = sql & "NSerial.Aplicacao"

    '************************

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade