Alexandre Janot Postado Julho 21, 2006 Denunciar Share Postado Julho 21, 2006 Bom dia pessoal estou com um probleminha.. existe um banco de dados mysql em outra maquina como faco para acessar esse banco sendo que esta em outra maquina usando esser comando?existe algum outro tipo? With ActiveSheet.QueryTables.Add(Connection:= _ "ODBC;DATABASE=reincidentes;DSN=teste;OPTION=0;PWD=masterkey;PORT=0;SERVER=localhost;UID=root" _ , Destination:=Range("A1")) .CommandText = Array(Sql) .Name = "Consulta de teste" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = True .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .Refresh BackgroundQuery:=False End WithEnd Sub Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Alexandre Janot Postado Julho 21, 2006 Autor Denunciar Share Postado Julho 21, 2006 já sei tem que configurar a driver odbc em ferramentas administrativas ok Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 kuroi Postado Julho 21, 2006 Denunciar Share Postado Julho 21, 2006 já fez isso? se não consegui montar a conexao da uma olhada aqui:http://www.connectionstrings.com/ Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Alexandre Janot
Bom dia pessoal estou com um probleminha.. existe um banco de dados mysql em outra maquina como faco para acessar esse banco sendo que esta em outra maquina usando esser comando?
existe algum outro tipo?
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DATABASE=reincidentes;DSN=teste;OPTION=0;PWD=masterkey;PORT=0;SERVER=localhost;UID=root" _
, Destination:=Range("A1"))
.CommandText = Array(Sql)
.Name = "Consulta de teste"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.