Alexandre Janot

Alguém tem alguma referencia para acesar um servidor mais rápido do que usando hostexcplorer??

alguém tem alguma fonde de send keys para pesquisar?

html

usa o seguinte Load data infile 'caminho' into table nome tabela; o caminho coloca \\ quando tiver \ poq o mysql identifica \\ como \ o default e tabulacao

qual o comando devo usar? mysql -h hostname -u username -p não tinha o signifcado do que e o que .. alguém pode me passar? e dar um exemplpo??

vALEU JÁ Ajudaou mas ainda falta algo.. por exemplo excuto a consulta pelo vb e quero trazela para o excel... depois de executar a consulta tenho os dados no banco visualizados do jeito que eu quero como trago para o banco?

Não a minha intenção é fazer uma consulta dentro do mysql e depois trazer esses dados para uma oplanilha excel para trabalhar com eles lá dentro.. então precisaria deum código que buscasse esses dados da consulta feita nomysql. Ex fiz a consulta select...... tenho um resultado isso no mysql agora quero trazer os dados para dentro de uma planilha excel.

não. eu queia por exemplo deixar um botao la que executasse a macro na hora que a pessoa clicasse é possível? por exemplo ela clica lá e aparece um msgbox "oi" só que isso no ambiente excel

já sei tem que configurar a driver odbc em ferramentas administrativas ok

valeu !

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

bom dia pessoal criei um arquivo txt e dou o camando obj.writeline(varivavel) , mas esse comando esta em um loop.. como faco para mudar de linha ex... writeline depois um comando que muda de linha

Estou utilizando VBA Excel e estou com esse código: Sub Macro1() Dim teste As String teste = "16/2/2006" Sql = "select a,b from terste where b >= '" & teste & "'" Acontece que trás todos os registros se eu colocar b= teste ele traz apenas esse registro o que está acontecendo:? No banco de dados o campo não está configurado como data isso tem problema? o que faço?? urgente""

Gostaria de saber o seguinte : se eu fizer uma consulta procurando o valor "Procedente" e estiver escrito procedente ele identifica e traz ou não? como resolvo isso:? Utilizando Vb excel ele faz essa distinção entre maiúscula e minúscula na hora de uma procura?

É possível criar uma macro no excel e disponibilizar isso em uma página da internet para que o usuário da Net utilize? onde posso consultar se tiver a possibilidade??

Bom dia pessoal estou com um problema, ou melhor não sei como fazer isso... Tenho um banco de dados em mysql e já consigo conectar porém gostaria de saber o que devo fazer para criar uma consulta que vai no banco de dados mysql e retira dados com codigo maior que 20 por exemplo .... e retorna esses dados para o excel

Gostaria de saber como se faz e como se grava uma consulta atraves do vb utilizando um banco mysql.. A conexao já consegui porem como gravo a consulta que eu quero?

Bom, estava com uma dúvida de como especificar a partir de qual linha do txt que quero importar para acess?

Como faço para dividir um txt sendo que não consigo abri-lo. o TXT tem 300 MB gostaria de dividi-lo em 2 para ler separadamente e alimentar um banco em MYSQL

Bom pessoal estou com o seguinte problema tenho muitos campos para inserir em um banco mysql o comando conexao.execute("Insert into tabela_(campos)values("' & valor & '") causa erros quando essse valor é uma string que contém um caracter por exemplo " ou . ou , ou () o que devo fazer para eliminar erros e continuar com . , no valor?

Como posso abir um arquivo excel usando um código dentro de uma outra pasta pelo VBA excel. Por exemplo estou na Pasta 1 do arquivo a..... quero abrir um arquivo b como faco?

Set txtob = CreateObject("Scripting.FileSystemObject") Set txtop = txtob.opentextfile("D:\NovosProdutos\fcl4\CONTESTACAO_D1906.BA.GERAL.MENOSTIPOS7E8.txt", ForReading, False) contador = 0 Do While txtop.AtEndOfStream <> True contador = contador +1 variavel = txtop.ReadLine B = Mid(variavel, 1, 5) 'Pega o CODGERENCIANEGOCIOS C = Mid(variavel, 6, 5) 'Pega o CODLOCALIDADE. D = Mid(variavel, 11, 10) 'Pega o MEIOACESSO. E = Mid(variavel, 21, 1) 'Pega o NUMCONJUNTA. F = Mid(variavel, 22, 1) 'Pega o SEQUTILIZACAOTERMINAL. G = Mid(variavel, 23, 6) 'Pega o DTCONTA. H = Mid(variavel, 29, 2) I = Mid(variavel, 31, 5) J = Mid(variavel, 36, 2) K = Mid(variavel, 38, 8) L = Mid(variavel, 46, 8) M = Mid(variavel, 54, 11) N = Mid(variavel, 65, 11) O = Mid(variavel, 76, 1) P = Mid(variavel, 77, 6) que = Mid(variavel, 83, 6) R = Mid(variavel, 89, 1) S = Mid(variavel, 90, 3) T = Mid(variavel, 93, 2) U = Mid(variavel, 95, 2) V = Mid(variavel, 97, 4) X = Mid(variavel, 101, 8) W = Mid(variavel, 109, 8) Y = Mid(variavel, 117, 6) Z = Mid(variavel, 123, 8) AA = Mid(variavel, 131, 150) AB = Mid(variavel, 411, 2) AC = Mid(variavel, 413, 2) AD = Mid(variavel, 415, 4) aí = Mid(variavel, 419, 3) AF = Mid(variavel, 422, 3) AG = Mid(variavel, 425, 2) AH = Mid(variavel, 427, 2) AI = Mid(variavel, 429, 1) AJ = Mid(variavel, 430, 5) AK = Mid(variavel, 435, 8) AL = Mid(variavel, 443, 60) AM = Mid(variavel, 503, 8) AN = Mid(variavel, 511, 6) AO = Mid(variavel, 517, 1) AP = Mid(variavel, 518, 14) AQ = Mid(variavel, 532, 54) AR = Mid(variavel, 586, 14) ASS = Mid(variavel, 600, 13) AT = Mid(variavel, 613, 15) AU = Mid(variavel, 628, 30) AV = Mid(variavel, 658, 6) AX = Mid(variavel, 664, 30) AW = Mid(variavel, 694, 5) AY = Mid(variavel, 699, 15) AZ = Mid(variavel, 714, 13) BA = Mid(variavel, 727, 8) BB = Mid(variavel, 735, 8) BC = Mid(variavel, 743, 20) BD = Mid(variavel, 763, 5) BE = Mid(variavel, 768, 8) BF = Mid(variavel, 776, 55) BG = Mid(variavel, 831, 1) BH = Mid(variavel, 831, 20) BI = Mid(variavel, 851, 2) BJ = Mid(variavel, 853, 20) BK = Mid(variavel, 873, 5) BL = Mid(variavel, 878, 1) a1 = "COD_GERENCIA_NEGOCIOS,COD_LOCALIDADE ,MEIO_ACESSO,NUM_CONJUNTA,SEQ_UTILIZACAO_TERMINAL,DT_CONTA,COD_MODALIDADE_SERVICO,COD_SERVICO,COD_RESULTADO,DT_CONTESTACAO,DT_RESULTADO,VALOR_SERVICO_INT,VALOR_SERVICO_FRAC,SINAL,IDENT_RESP_RESULTADO,SIGLA_ORGAO_OFENSOR,COD_TIPO_CONTESTACAO,COD_DDD,NUM_EMISSAO,COD_NATUREZA_CONTESTACAO,ESTACAO,DATA_PROXIMA_SELECAO,DATA_PROX_VENCIMENTO,IDENT_RESP_CREDITO,DATA_APURACAO," a2 = "DESCRICAO_CONCLUSAO,COD_NATUREZA_ERRO,SIGLA_UF,LOCALIDADE_FUNCIONAL,GRA,GRAM,TIPO_LINHA,SUB_TIPO_LINHA,CLASSE,CPA_MAE,DT_INSTALACAO_TERMINAL , DESC_COD_TARIFARIO, DT_SERVICO, IDENT_VENDEDOR, PROCEDE, NUM_PROTOCOLO, NOME_ASSINANTE, CNPJ_CPF, NRC, TIPO_CONTA, SEGMENTO_MERCADO,SIGLA_UNIDADE_NEGOCIO, RELACIONAMENTO_CLIENTE, COD_LOCAL_TEL_CHAMADO, TELEFONE_CHAMADO, TIPO_REGISTRO" a3 = "DATA_INI_COBR, DATA_VENDA_SERV, CANAL_VENDA,COD_LOGRADOURO, COD_CEP, COD_CDD, SEP41,ID_CONTRATUAL,CATEGORIA_NUM,CATEGORIA_LITE,COD_MOD_INDICADOR,IND_ALUGUEL" a4 = a1 & a2 & a3 v1 = "Insert into dados_anterior ( " & a4 & " ) values('" & B & "','" & C & "','" & D & "','" & E & "','" & F & "','" & G & "','" & H & "','" & I & "','" & J & "','" & K & "','" & L & "','" & M & "','" & N & "','" & O & "','" & P & "','" & que & "','" & R & "','" & S & "','" & T & "','" & U & "','" & V & "','" & X & "','" & W & "','" & Y & "', '" & Z & "'," v2 = "'" & AA & "','" & AB & "','" & AC & "','" & AD & "','" & aí & "','" & AF & "','" & AG & "','" & AH & "','" & AI & "','" & AJ & "','" & AK & "','" & AL & "','" & AM & "','" & AN & "','" & AO & "','" & AP & "','" & AQ & "','" & AR & "','" & ASS & "','" & AT & "','" & AU & "','" & AV & "','" & AX & "','" & AW & "','" & AY & "','" & AZ & "','" & BA & "','" & BB & "','" & BC & "','" & BD & "','" & BE & "','" & BF & "','" & BG & "','" & BH & "','" & BI & "','" & BJ & "','" & BK & "','" & BL & "')" v3 = v1 & v2 conexao.Execute (v3) Loop conexao.Close QUando utilizo esse código ele executa durante um bom tempo a macro porém em determinadas linhas ele gera um erro alguém tem alguma ideia poq? só em algumas linhas que ele le o txt que aparece o erro.... Ai aparece que é erro de Sql syntax mas ele executa um bom tempo sempre na linha 4895 gera um erro na linha 8888 gera outro... o que pode ser???

Pessoal tenho que abrir um arquivo txt que fica em uma página da internet..... quando clico no arquivo ele abre na própria página. Como acesso a página? como especifico posicoes dentro dessa pagina por exemplo 30 ALexandre Belo horizonte quero pegar a cidade como erspecifico o cursor em Belo Horizonte.. e como acesso a página e abro o arquivo?

o comando "insert tabela( campos) values ( valores) fica muito extenso em uma linha de código de vba e acaba embaralhando as letras e o vb não le eu consegui fazer uma string para campos mas valores ele não aceita.. algéuem pode me dizer o que devo fazer ... existe algum jeito de mudar de linha dentro do codigo sql?

Por favor pessoal.. QUando escrevo uma linha de comando muito grande no vba para excel as letras todas ficam embaralhadas .. isso interfere na leitura do código? o que devo fazer? não consigo dividir o código pois é dentro de uma sql....