MIGRAR BANCO ACCESS PARA SQL SERVER 2008

MILTONSILVA94 15/05/2016 21:00:32
#462103
Amigos,

Meu banco era access porém quero migrar para SQL Server 2008.

No meu módulo tenho a variável:
Public gBDSistemaIntegrado As Database

No main estava assim:
Set gBDSistemaIntegrado = OpenDatabase(App.Path & [Ô]/BDSistemaIntegrado.mdb[Ô], False, False, [Ô];pwd=SISTEMAINTEGRADO[Ô]) [ô]Para colocar senha no BD

Daí preciso substituir para algo parecido tipo assim:
Set gBDSistemaIntegrado = OpenDatabase([Ô][Ô], dbDriverNoPrompt, False, “driver={SQL Server};server=localhost; Integrated Security=SSPI;Trusted_Connection=No;APP=Visual Basic;databse=nome_do_banco”)

Porém ocorre esse erro...

Alguém pode dar alguma dica?
KERPLUNK 15/05/2016 22:32:01
#462106
Tenho boas e más notícias pra você:
A boa é que você está usando um banco de dados de verdade e não mais um simples repositório.
A ruim é que se você está usando um método chamado DAO para conexão com banco de dados e se está assim no resto da aplicação será muito melhor mudar tudo para ADO.
OMAR2011 15/05/2016 23:03:34
#462108
Resposta escolhida
Já testei abrir banco Mysql com DAO e obtive exito,
mas com ele mostrou acredito que não vai dar certo.
MILTONSILVA94 23/05/2016 19:49:48
#462468
Sim, com o SQL Server pra mim é muito melhor que o access..

Set gBDSistemaIntegrado = OpenDatabase([Ô][Ô], dbDriverNoPrompt, False, [Ô]driver={SQL Server};server=localhost; Integrated Security=SSPI;Trusted_Connection=No;APP=Visual Basic;databse=nome_do_banco[Ô])

Tentei colocar a síntaxe acima pra fazer a conexão e apresenta a tela de logon quando executo o sistema...
Alguém?
MILTONSILVA94 23/05/2016 20:14:43
#462471
Basicamente declarei as variáveis:

[ô] Variável de conexão com o BD
Dim cn As New ADODB.Connection
[ô] Variável de acesso a Tabela do BD
Dim Rs As New ADODB.Recordset

E no main coloco os comandos abaixo:

cn.Provider = [Ô]SQLOLEDB[Ô] [ô] Provedor de acesso ao SQL Server
cn.Properties([Ô]Data Source[Ô]).Value = [Ô]LOCALHOST[Ô]
cn.Properties([Ô]Initial Catalog[Ô]).Value = [Ô]BDSistemaIntegrado[Ô]
cn.Properties([Ô]User ID[Ô]).Value = [Ô]SA[Ô]
cn.Properties([Ô]Password[Ô]).Value = [Ô]ERPM[Ô]
cn.Open [ô] Abrindo a conexão

Set Rs = New ADODB.Recordset
Set Rs.ActiveConnection = cn

MsgBox [Ô]Bem-vindo ao sistema![Ô]
MILTONSILVA94 23/05/2016 20:19:44
#462472
Agora a questão é outra, com o access sempre quando ia salvar algum registro tinha o seguinte comando em uma linha apenas:
gBDSistemaIntegrado.Execute lsql

Agora preciso saber como fica com o SQl, declaro em cada formulário aquela conexão?
Se alguém souber algo coloca aí!
FABRICIOWEB 23/05/2016 21:25:04
#462473
Isso me lembra quando eu migrei do mdb acess uma bosta para o mysql melhor coisa que fiz na vida nem erro não da mais o sistema esta uma belezura kk
Tópico encerrado , respostas não são mais permitidas