VB6 COM BANCO DE DADOS EM ACCESS ACCDB

DANIELMARCOS17 30/05/2017 01:30:56
#474257
Pessoal, boa madrugada..
Estou criando uma aplicação em VB6 com banco de dados em ACCESS....
Nesse banco de dados estou usando varios campos calculados.
O codigo que uso para fazer a conexao do banco de dados com o VB , ele so aceita o banco no formato mdb...
e nesse formato nao consigo criar os campos calculados.

existe alguma maneira de fazer a conexao do VB6 com um banco de dados em ACCESS no formato ACCDB?
OMAR2011 30/05/2017 07:19:38
#474258 Resposta escolhida
Sim.
Verifica.
https://www.connectionstrings.com/access-2010/
JCM0867 30/05/2017 11:14:50
#474262
Não daria pra pegar os dados do Banco e executar o cálculo fora do banco?
DANIELMARCOS17 30/05/2017 17:15:16
#474269
Citação:

:
Não daria pra pegar os dados do Banco e executar o cálculo fora do banco?


daria muito trabalho....e utilizando o campo calculado do access seria beeeeeeeeeeeeeem melhor
DANIELMARCOS17 30/05/2017 17:18:31
#474270
Citação:

:
Sim.
Verifica.
https://www.connectionstrings.com/access-2010/


Boa tarde amigo....eu ja entrei nesse site, porem nao consegui colocar a string correta no codigo, n sei como alterar.
sera que voce pode me ajudar....so falta isso para encerrar meu projeto...
eu fiz o projeto todo em EXCEL + VBA, porém quero colocar em VB6 + ACCESS porque fica mais facil varias pessoas acessarem ao mesmo tempo...
e sem falar que aqui na empresa usam muitas planilhas, por isso n queria criar no EXCEL, pelo fato de oculta-lo e tal...entende
OMAR2011 30/05/2017 22:26:52
#474275
Olhe.
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
cn.CursorLocation = adUseClient
[ô]cn.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\User\Desktop\Todos\Financa\Banco.accdb;Persist Security Info=False[Ô]
[ô]cn.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0; Data Source=[Ô] & App.Path & [Ô]\banco.accdb;Persist Security Info=False[Ô]
[ô]cn.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0; Data Source=Banco.accdb;Persist Security Info=False[Ô]
cn.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0; Data Source=financa.mdb;Persist Security Info=False[Ô]
rs.Open [Ô]Select * From teste[Ô], cn, adOpenStatic, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
End Sub
DANIELMARCOS17 31/05/2017 09:49:23
#474279
Citação:

:
Olhe.
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
cn.CursorLocation = adUseClient
[ô]cn.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:UsersUserDesktopTodosFinancaBanco.accdb;Persist Security Info=False[Ô]
[ô]cn.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0; Data Source=[Ô] & App.Path & [Ô]anco.accdb;Persist Security Info=False[Ô]
[ô]cn.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0; Data Source=Banco.accdb;Persist Security Info=False[Ô]
cn.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0; Data Source=financa.mdb;Persist Security Info=False[Ô]
rs.Open [Ô]Select * From teste[Ô], cn, adOpenStatic, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
End Sub



bom dia amigo, e obrigado por responde.
é o seguinte....eu uso esse codigo para me conectar ao bando de dados:
Option Explicit
[ô]Criação das variáveis globais para utilização em todos os módulos
Global banco As Database
Global consulta As Recordset
Global consulta_2 As Recordset
Global consulta_3 As Recordset
Global consulta_4 As Recordset

Sub Conecta()

[ô]Rotina para fazer a conexão com o Banco de Dados em Access
Set banco = OpenDatabase(App.Path & [Ô]\contratos.mdb[Ô], False, False)


End Sub

Sub Desconecta()

[ô]Faz a liberação das variáveis objeto do Banco de dados
Set banco = Nothing

Set consulta = Nothing
Set consulta_2 = Nothing
Set consulta_3 = Nothing
Set consulta_4 = Nothing

End Sub


CODIGO PARA INSERIR OS DADOS NA LISTVIEW
[ô]Cria variável que armazena os comandos SQL
Dim ComandoSQL As String

[ô]Armazena na variável o comando que fará a consulta SQL no BD Access
ComandoSQL = [Ô]select * from Contratos[Ô]

[ô]Chama a rotina que faz a conexão com o BD
Call Conecta

[ô]Atribui a variável objeto de BD a execução dos comandos SQL
Set consulta = banco.OpenRecordset(ComandoSQL)

[ô]Tratamento de erro de acesso aos dados. Se houver erro, desvia o comando para o rótulo Sai
On Error Resume Next

[ô]Populando o Listview1
ListView1.ListItems.Clear

While Not consulta.EOF
Set List = ListView1.ListItems.Add(Text:=consulta(0)) [ô]id
List.SubItems(1) = consulta(1)
List.SubItems(2) = consulta(2)
List.SubItems(3) = consulta(3)
List.SubItems(4) = consulta(4)
List.SubItems(5) = consulta(5)
List.SubItems(6) = consulta(6)
List.SubItems(7) = consulta(7)
List.SubItems(8) = consulta(8)
List.SubItems(9) = consulta(9)

consulta.MoveNext
Wend


nao estou sabendo como alterar para esse codigo que me mandou..


se puder alterar nessas linhas de codigo o resto eu creio que consigo fazer....obg
DANIELMARCOS17 31/05/2017 10:03:22
#474280
pessoal estou enviando o link com o meu projeto, quem puder me ajudar serei muito grato...falta somente isso para concluir...e dar um grande passo em meus estudos.
https://drive.google.com/file/d/0B08KqYi8FEnVR3lqaElfZG5OVDQ/view?usp=sharing
OMAR2011 31/05/2017 13:54:07
#474286
O meu código está em Ado.
O seu é [txt-color=#e80000]Dao.[/txt-color]
Antigo demais.Não vai conseguir abri com Dao, Banco.accdb.
Use Ado no Vb6, Vbnet ou C#.
DANIELMARCOS17 31/05/2017 14:05:40
#474287
Citação:

:
O meu código está em Ado.
O seu é [txt-color=#e80000]Dao.[/txt-color]
Antigo demais.Não vai conseguir abri com Dao, Banco.accdb.
Use Ado no Vb6, Vbnet ou C#.


obrigado por responder...isso ai eu sei.
O que queria saber é como ficaria as linhas de codigo que enviei no padrão Ado..
Tem como me ajudar?
Tópico encerrado , respostas não são mais permitidas
Voltar