APLICACAO COMERCIAL DE

USUARIO.EXCLUIDOS 17/05/2004 16:11:15
#25095
Alguém sabe onde posso pegar uma aplicação comercial, utilizando DE (Data Environments)?
VB6MASTER 18/05/2004 08:51:07
#25180 Resposta escolhida
D4RK
Em meus aplicativos relacionados a BD eu utilizo apena DataEnvironment para conexão.
Eu particularmente gosto muito, pois as referências são bem fáceis. Eu recomendo.

Caso você queira saber como utilizar o objeto, visite:
http://www.macoratti.net/dataenv.htm

Boa sorte e t+
VB6MASTER 21/05/2004 20:38:15
#26070
D4RK
Partindo do pressuposto que você já saiba configurar o DE (qq. dúvida, visite o endereço fornecido), não há mistério.
Faça um comando SQL, p.ex. uma consulta
cSQL = "SELECT * FROM SuaTabela"
With DE.rsSuaTabela
      .Open cSQL, , adOpen..., adLock...    'Ponteiro e Travamento
      Text1.Text = !CampodaTabela             'Preencher cx de texto com o campo
      ...
      ...
      .Close
End With

No evento Initialize do DE
DE.BancodeDados.Open App.Path & "\SeuBancodeDados.mdb"

No evento Terminate do DE
DE.BancodeDados.Close

Para gravar dados, você pode utilizar a instrução SQL INSERT INTO ... VALUE
ou ainda, utilziando o código acima
cSQL = "SELECT * FROM SuaTabela"
With DE.rsSuaTabela
      .Open cSQL, , adOpen..., adLock...    'Ponteiro e Travamento
      .AddNew
       !CampodaTabela = Text1.Text     'Preencher campo c/  conteúdo da cx de texto
      ...
      ...
      .Update
      .Close
End With

Utilizando a instrução INSERT INTO
cSQL = "INSERT INTO SuaTabela (Campo1, Campo2, Campo3) VALUE (Dado1, Dado2, Dado3)"
DE.BancodeDados.Execute cSQL, , adCmdText

Para deletar, utilize a instrução DELETE - do mesmo jeito
cSQL = "DELETE * SuaTabela"
DE.BancodeDados.Execute cSQL, , adCmdText

Bem.
Não sei se é bem isso que você precisa, mas, pelo menos, já é um bom começo.

Boa sorte e t+
Tópico encerrado , respostas não são mais permitidas
Voltar