Lucbar
|
CÁCERES
MT - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 08/03/2005 22:51 hs
Boa noite.. Olá pessoal.. Tenho desenvolvido usando o Access 97, mas por diversos problemas, gostaria de ausar o Access 2000 ou 2003. Como faço para atualizar a biblioteca do VB 6 para usar o 2000 ou 2003? Desde já agradeço. Luciano. |
|
|
|
|
|
|
|
Postada em 09/03/2005 08:52 hs
Luciano, vc usa DAO ou ADO em seu projeto? sem mais, |
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 09/03/2005 09:13 hs
No ADO voce nao faz nada, basta converter o arquivo se for no DAO acho que voce tem que usar a versao 3.5 ou superior. Faca teste mais salve os dados antes. 
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
|
|
Postada em 09/03/2005 10:08 hs
Então é assim: - Em DAO utilize o DAO 3.6 nas referências (tudo o resto fica como antes - Em ADO utilize o JET4, e então a sua conexão ficará algo parecido com isto: Public Function ConexaoDados() As Connection base = PstrCamDados & "mvdoctab.mdb" Set dbDados = New ADODB.Connection With dbDados .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Data Source") = base .Properties("Jet OLEDB:Database Password") = "password" .Open End With End Function Se usa controles vinculados(DataControl, etc) terá que actualizar o VB com o SP6. Acho que disse tudo mas, se tiver alguma dúvida, pode visitar a minha página pois tem lá varios exemplos de VB com ACCESS2000.
João Mateus Se precisar de ajuda extra, visite: http://joaomateus.planetaclix.pt
|
|
|
|
Lucbar
|
CÁCERES
MT - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 13/03/2005 14:48 hs
Uso o DAO. Atulizei o DAO para o 3.6, porém ainda não está dando certo, para inclusão de dados ficou ok. Mas quanto a consultas usando o data, aí o bicho pegou, não consegue encontrar a tabela.. E dá esta mensagem unrecognized database - format (C:arquivos de programassgpDados) Caso alguêm possa me ajudar, ficarei grato. Luciano. |
|
|
|
|
|
Postada em 14/03/2005 01:59 hs
Usando dao dá pra inicializar um controle DATA via código: Dim rs As Recordset, banco As Database
Private Sub Form_Load()
Set banco = DBEngine.OpenDatabase(Data1.DatabaseName)
Set rs = banco.OpenRecordset("Tabela")
Set Data1.Recordset = rs.OpenRecordset
End Sub veja se é isso q vc quer t+ obs.: usando DAO 3.6 |
|
|
|
