[Resolvido]Importar tabela do sql server para o access

Viva
Precisava de importar uma tabela do sql server para o access via vba.
Agradecia a vossa ajuda.

Cumprimentos
Rui Sérgio

Boa noite veja nesse topico.
http://maximoaccess.forumeiros.com/t10264-access-sql-server

Obrigado pela resposta
O código que você publicou é para ficar a tabela vinculada, ou fica como tabela local?
Eu pretendo ficar com a tabela local.
Um Abraço

Voce quer exportar tabela do Sql Server com os dados ou sem dados,se voce pertende so exportar as tabelas do sql server basta usar o SQLManagementStudio, para exportar a sua tabela.
Veja de tutorial tens duas maneira de trabalhar com a tabela do sql server pode importar as tabelas ou ligar ao access usado o assistente do access http://maximoaccess.forumeiros.com/t9645-tutorial-conexao-odbc-access-com-sql-server

Viva Avelino

Eu tenho formularios continuos só de consulta vinculados a uma view do sql server.
Mas cada vez que é preciso aplicar um filtro ou remover filtro demora sempre o tempo de fazer a ligação com o servidor.
O que eu pretendo é que o formulario ao abrir crie uma tabela local com os dados de uma view do sql server ficando muito mais rapido a aplicação de filtros e consulta dos dados

Pra que essa "gambiarra"??

Talvez seja melhor estabelecer uma conexão ADO com o SQL Server e associar o recordset do formulário a um recordset ADO.
No evento Ao abrir do formulário:

Código:

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConn As String

strConn = "Provider=sqloledb;Data Source=xxx.xxx.xxx.xxx,1433;Initial Catalog=banco;User ID=sa;Password=xxxxx;"

Set cn = New ADODB.Connection
cn.Open strConn

Set rs = New ADODB.Recordset
With rs
    Set .ActiveConnection = cn
    .Source = "SELECT * FROM Tabela"
    .LockType = adLockOptimistic
    .CursorType = adOpenKeyset
    .Open
End With

Set Me.Recordset = rs

Set rs = Nothing
Set cn = Nothing

Obrigado cláudio, excelente dica.
Testei este método mas tem o inconveniente, que os filtros do access tais como "Começa com", "termina com", "contém", não funcionam, só funciona "igual a", você sabe como resolver isso?

Cumprimentos
Rui Sérgio

Rui Sérgio, desculpe mas eu não sabia desse inconveniente.
Assim que eu puder fazer uns testes, informo o resultado.

Ok, obrigado pela ajuda

De nada.

Boa noite RuiSergio se voce ja tem um view vinculada ao access basta criar tabela temporaria em tempo de execução para extrair os dados da view o Avelino Sampaio tem um artigo que mostra isso, agora se queis importar ou exportar dado direitamente do sql server para uma tabela local veja esse topico.
http://maximoaccess.forumeiros.com/t10413-resolvidocomo-importar-dados-de-uma-tabela-do-mysql-para-uma-tabela-no-access

Obrigado pelas dicas Avelino.
Vi o seu exemplo, e parece-me que ficará um pouco mais lento a atualização dos dados (tenho consultas que chegam a ter 15000 registos) e iria dar-me muito trabalho pois tenho cerca de 150 formulários nesta situação na minha aplicação para alterar, vou ver se encontro o exemplo do Avelino Sampaio para criação de tabela temporária, gostei bastante do exemplo do Cláudio Más porque não necessita ter tabelas ligadas nem criar outras tabelas, tem é o inconveniente de os filtros não funcionarem todos, desconfio que seja pelo facto de o access na função like utilizar o * e o sql server na função like utilizar o %.
Agradeço sua ajuda você colabora na resolução dos problemas.
Um Abraço
Rui Sérgio

Bom dia RuiSergio ola a melhor maneira de usar um DNS é não vincular os formularios as tabelas, eu notei que win 7 codigo fica muito lento ao carregar os dados, mesma usado metodo do Cláudio Más, acredito que o problema não está no codigo mais sim win7, teste com banco Mysql e Prostgres mesmo assim sempre lento os dois metodos já no vista e xp funciona muito bem apesar que temos habilitar aporta no Firewall do Windows. Deixo para ti um site do Juan Soto especialista em Ms Access e Sql Serve.
http://accessexperts.net/blog/2011/03/24/sql-server-connections-strings-for-microsoft-access/

Viva Avelino
Olha este seu exemplo http://maximoaccess.forumeiros.com/t10264-access-sql-server é para criar tabela local?

Estou experimentando com o código abaixo mas dá erro
DoCmd.TransferDatabase acImport, "ODBC Database", "Provider=sqloledb;Data Source=SERVER\SQLEXPRESS;Initial Catalog=BaseDados;Integrated Security=SSPI", acTable, "ViewProcessosEmCurso", "LocalViewProcessosEmCurso"

Esta é a ligação que eu utilizo para aceder via ADO e funciona
"Provider=sqloledb;Data Source=SERVER\SQLEXPRESS;Initial Catalog=NomeBaseDados;Integrated Security=SSPI"

RuiSergio esse codigo não é pra criar tabela local mais para vincular tabela em tempo de execução veja que vinculação uso drive SQL Native Client mais se voce não tiver a drive instalada pode usar assim SQL Server se continuar com dificuldade posta o seu banco de dado para nós analizamos.

Option Compare Database
'/ / Nome: AttachDSNLessTable
'/ / Objetivo: Criar uma tabela vinculada ao SQL Server sem usar um DSN
'/ / Parâmetros
'/ StLocalTableName /: Nome da tabela que você está criando no banco de dados atual
'/ StRemoteTableName /: Nome da tabela que você está ligando para o banco de dados SQL Server
'/ StServer /: Nome do SQL Server que você está ligando
'/ StDatabase /: Nome do banco de dados SQL Server que você está ligando
'/ / StUsername: Nome do usuário do SQL Server que pode se conectar ao SQL Server, deixe em branco para usar uma conexão confiável
'/ / StPassword: senha do usuário SQL Servidor

Function AttachDSNLessTable(stLocalTableName As String, stRemoteTableName As String, stServer As String, stDatabase As String, Optional stUserName As String, Optional stPassword As String)
On Error GoTo AttachDSNLessTable_Err
Dim td As TableDef
Dim stConnect As String

For Each td In CurrentDb.TableDefs
If td.Name = stLocalTableName Then
' deletar as tabelas local ao sair do sistema
CurrentDb.TableDefs.Delete stLocalTableName
End If
Next

If Len(stUserName) = 0 Then
'/ / Use autenticação confiável se stUsername não é fornecido.
stConnect = "ODBC; DRIVER ={SQL Native Client};SERVER=" & stServer & ";DATABASE=" & stDatabase & ";Trusted_Connection=Yes"
Else
'/ / AVISO: Isto irá poupar o nome de usuário e a senha com as informações da tabela vinculada.
stConnect = "ODBC;DRIVER={SQL Native Client};SERVER=" & stServer & ";DATABASE=" & stDatabase & ";UID=" & stUserName & ";PWD=" & stPassword & ";Option=3;"
End If
Set td = CurrentDb.CreateTableDef(stLocalTableName, dbAttachSavePWD, stRemoteTableName, stConnect)
CurrentDb.TableDefs.Append td
AttachDSNLessTable = True
Exit Function

AttachDSNLessTable_Err:

AttachDSNLessTable = False
MsgBox "AttachDSNLessTable encontrou um erro inesperado: " & Err.Description

End Function

Function CreateConnection()
Dim strPasswd As String
Dim strServer As String
Dim strUser As String
Dim strDB As String
Dim strPort As String
strPasswd = "007"' Senha do servidor
strUser = "sa"' Usuario do servidor
strServer = "127.32.9.11\SQLEXPRESS" 'IP do servidor
strDB = "teste"'Banco de Dado
strPort = "1433"'Porta do servidor
Rem error
On Error Resume Next 'Tratamento de erro

'Essa tabela devem ser ligados

'A primeira tabela venda é aqui vai ser criada no access a outra dbo. venda é aqui esta no servidor
Set dummy = AttachDSNLessTable("Venda", "dbo.Venda", strServer, strDB, strUser, strPasswd)

End Function

Viva Avelino
Mais uma vez obrigado pela colaboração.

O código que você colocou não dava para criar também tabela local?

Utilizei este código ao clicar no botão atualizar do formulário e já funciona:
DoCmd.SetWarnings False
Me.Form.RecordSource = ""
DoCmd.DeleteObject acTable, "LocalViewProcessosHistoricoCP"
DoCmd.TransferDatabase acImport, "ODBC Database", "ODBC;Driver={SQL Server};Server=SERVIDOR\SQLEXPRESS;Database=BASEDADOS;Trusted_Connection=Yes", acTable, "ViewProcessosHistoricoCP", "LocalViewProcessosHistoricoCP"
Me.Form.RecordSource = "LocalViewProcessosHistoricoCP"

Tem é inconveniente que depois de aplicar o comando seguinte
DoCmd.DeleteObject acTable, "LocalViewProcessosHistoricoCP"
Aparece nos campos do formulário Nome?, será que dá para alterar temporariamente a origem dos dados para independente e depois de executar o comando
Me.Form.RecordSource = "LocalViewProcessosHistoricoCP"
Voltar a por a origem dos campos predefinidos no formulário?

Cumprimentos
Rui Sérgio

Viva
Finalizei utilizando este código:

Function FuncFormContODBC(SelAcaoORC As String)
DoCmd.SetWarnings False
Dim SelForm As Object
Set SelForm = Screen.ActiveForm
Dim LocalTableName As String
LocalTableName = "Local" & Forms(SelForm.Name).SelOrigem

Select Case SelAcaoORC
Case "O"
DoCmd.Maximize
Dim TD As TableDef
For Each TD In CurrentDb.TableDefs
If TD.Name = LocalTableName Then
CurrentDb.TableDefs.Delete LocalTableName
End If
Next
DoCmd.TransferDatabase acImport, "ODBC Database", "ODBC;Driver={SQL Server};Server=SERVIDOR\SQLEXPRESS;Database=BASEDADOS;Trusted_Connection=Yes", acTable, Forms(SelForm.Name).SelOrigem, LocalTableName
Forms(SelForm.Name).RecordSource = LocalTableName
Forms(SelForm.Name).TimerInterval = 0
Case "R"
Forms(SelForm.Name).RecordSource = ""
DoCmd.DeleteObject acTable, LocalTableName
DoCmd.TransferDatabase acImport, "ODBC Database", "ODBC;Driver={SQL Server};Server=SERVIDOR\SQLEXPRESS;Database=BASEDADOS;Trusted_Connection=Yes", acTable, Forms(SelForm.Name).SelOrigem, LocalTableName
Forms(SelForm.Name).RecordSource = LocalTableName
'DoCmd.Maximize
Case "C"
Forms(SelForm.Name).RecordSource = ""
DoCmd.DeleteObject acTable, LocalTableName
End Select
End Function

Ao abrir o formulário utilizo a Função FuncFormContODBC("O")
A actualizar os dados FuncFormContODBC("R")
Ao Fechar FuncFormContODBC("C")

Constatei é que quando falha a rede aparece no ecrã dos utilizadores o menu em anexo.
Tem como aparecer a menssagem "Falha de rede" em vez do menu referido?

Mais uma vez obrigado pela colaboração

Utilizei o codigo abaixo para verificar a conexão:
Function ConServer()
Set CON = New ADODB.Connection
CON.ConnectionString = "Provider=sqloledb;Data Source=SERVIDOR\SQLEXPRESS;Initial Catalog=BASEDEDADOS;Integrated Security=SSPI"
CON.CursorLocation = adUseClient
CON.Open
If CON.State = 1 Then
MsgBox "Conexão ativa"
else
MsgBox "Falha de rede"
End If
End Function

Com esta conexão consigo aceder ao servidor
Mas se desligar o cabo de rede também me dá a menssagem de conexão ativa
Qual será o erro?
Mais uma vez agradeço vossa ajuda

Viva
Utilizei o tratamento de erro e já dá a informação correta.
Existe forma de quando falha a rede e aparece a mensagem "Falha de rede, por favor tente novamente", calcelar a execução do codigo seguinte?
Já experimentei em colocar docmd.cancelevente mas não funciona

Function ConServer()
On Error GoTo ConServer_Err

Set CON = New ADODB.Connection

CON.ConnectionString = "Provider=sqloledb;Data Source=SERVIDOR\SQLEXPRESS;Initial Catalog=BASEDEDADOS;Integrated Security=SSPI"
CON.CursorLocation = adUseClient
CON.Open

ConServer_Exit:
Exit Function

ConServer_Err:
MsgBox "Falha de rede, por favor tente novamente", , "Informação"
docmd.cancelevent
Resume ConServer_Exit
End Function

Viva
Resolvi colocando End a seguir à menssagem.
Obrigado a todos pela colaboração
Um Abraço
Rui Sérgio

Viva
Acontece algo muito estranho, quando falha a rede as vezes aparece a mensagem que eu coloquei, outras vezes aparece o menu, o que poderá estar a acontecer?
Existe outra forma de detetar se a ligaçõa foi estabelecida?
Cumprimentos
Rui Sérgio

Boa Tarde RuiSergio voce estas a conectar o banco de dado localmente é que sempre que há falha no sistema vai te pedir a senha e usuario de acesso primeiro tenta atribuir um IP no SQL Server ou veja na net sobre configuração do SQL Server em rede.
Por outra veja o exemplo como atribuir a permissão de acesso a partir vb.


Private Sub cmd_Salvar_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Open "ODBC;DRIVER={SQL Native Client};Server=127.0.0.1;PORT=3306;" & "database=bd_finanças;UID=root;Password=002;Option=3;"
rs.Open "tbl_usuario", cn, adOpenStatic, adLockOptimistic
rs.AddNew
rs("Usuario") = Me.txt_User
rs("Senha") = Me.txt_Senha
rs("Bloqueado") = Me.grp_Situacao
rs.Update

Me.txt_User = Null
Me.txt_Senha = Null
Me.grp_Situacao = Null

Set cn = Nothing
Set rs = Nothing


MsgBox ("Registro salvo com sucesso."), vbInformation, "Salvo com Sucesso"
End Sub

Viva Avelino
Eu estou a fazer conexão a um servidor sql server em rede.
O teste que eu faço é o seguinte:
Quando clico no botão do formulario para atualizar os dados ele atualiza a informação.
De seguida desligo o cabo da rede e às vezes dá a mensagem que eu criei outras vezes aparece o menu que anexei na mensagem anterior.
O que eu pretendia que que cada vez que não tivesse ligação de rede mostra-se a mensagem que eu programei.

RuiSergio bom dia posta aqui o teu bd para nós analizamos
veja no site do Avelino Sampaio como trabalhar com Mysql em rede não há diferença no procedimento usado entre Mysql e SQL Server para se trabalhar em rede http://www.usandoaccess.com.br/tutoriais/tuto40.asp?id=1#inicio.

Via Avelino
Talvez eu não me tenha explicado bem.
Todo o meu sistema funciona, visualizo os dados de servidor, edito, etc.
Só tem o inconveniente que quando falha a rede aparece o menu que anexei em menssagem anterior.
O que eu queria evitar é que aparece-se exxe menu quando falha a rede.
Pretendia que ouvesse forma de monitorizar os erros do sql server com VBA que aparecem no ecra erro1.
Ou seja quando falha a rede aperece o menu erro1 e depois o menu erro2.

Menu erro2

Viva
Criei novo topico especifico para filtro em fromulario continuo desacoplado com ADO onde anexei a bd como exemplo.
http://maximoaccess.forumeiros.com/t11484-formulario-continuo-desvinculado-com-recordset-ado#90210
Agreço os vossos comentários/sugestões
Um Abraço
Rui Sérgio