ACESSO A BANCO DE DADOS ACCESS

USUARIO.EXCLUIDOS 03/04/2004 21:51:24
#18745
Gostaria de saber se há como acessar um banco de dados do Access, sendo que o banco possui acesso em nivel de usuário.

Usamos um programa que acessa um banco access, e precisamos extrair informações que o referido programa não nos fornece; tenho acesso a todos os recursos do programa (possuo senha master). Porém, gostaria de acessar o banco via código vb.

ERIVH JOHMIC.
USUARIO.EXCLUIDOS 03/04/2004 21:58:20
#18746 Resposta escolhida
cole isso no form, não se esqueça de habilitar a DAO em referências (3.5 ou posterior)

dim wks as workspace
dim db as database
dim qd as querydef
dim rs as recordset

private sub form_load()
dim sql as string
sql = "SELECT * FROM SUA TABELA"
set wks = createworkspace("","admin","")
set db = wks.opendatabase("NOME DO SEU DATABASE")
set qd = db.createquerydef("")
qd.SQL = SQL
set rs = qd.openrecordset

'PRONTO!! TEMOS UM DATASOURSE


AGORA é SÓ“ ATUALIZAR SEUS TXT FIELDS COM OS FIELDS DA VARIàVEL RS

QUALQUER COISA ME MANDA UM E-MAIL Q EU TE MANDO O EX COMPLETO
Tópico encerrado , respostas não são mais permitidas
Voltar