Use connection string variável dentro de DoCmd.Transferirbancodedados

Eu tenho 2 módulos (um contém uma seqüência de conexão DSN de ODBC (FoxPro) de banco de dados e o outro contém algum código para obter o dat). Meu objetivo é usar uma seqüência de caracteres de conexão (com base em uma conexão DSN armazenado dentro do Windows) para todas as ligações que precisa, em vez de codificação a mesma seqüência e outra vez.

Aqui está o que eu tenho até agora:

primeiro módulo

Option Compare Database
Public Const ConnectionStringEasyProd As String = """ODBC;DSN=EasyProd PPS;DataDirectory=M:\;SERVER=NotTheServer;Compression= ;DefaultType=FoxPro;Rows=False;Language=OEM;AdvantageLocking=ON;Locking=Record;MemoBlockSize=64;MaxTableCloseCache=5;ServerTypes=6;TrimTrailingSpaces=False;EncryptionType=RC4;FIPS=False"""

segundo módulo

DoCmd.TransferDatabase acImport, ConnectionStringEasyProd, acTable, "BEL_PLZ", "Belegungsplaetze_Temp", False

Depois de iniciar o sub recebo um erro 13. Acho que definir a string de conexão como uma seqüência de caracteres é errado, porque eu preciso de uma variante, certo?

+1
2019-09-17 10:24:14
origem
0 respostas

Veja mais perguntas por marcas