[VB6] Search em Base de Dados

[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  😄

P.S.

A base de dados é em Access

Cumps

[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 😛

[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

[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

[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"

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