iurilino

Alguém?

Boa tarde! Eu desenvolvi uma aplicação, em que uso qualquer uma dessas conexões, para acessar ao BD que fica no servidor: cnn.ConnectionString = "Provider=SQLOLEDB;Data Source=MEU IP;Initial Catalog=**;uid=**;pwd=**;port:1433" cnn.ConnectionString = "driver={SQL Server};server=MEU IP;uid=**;pwd=**;database=**;port:1433" No meu computador, eu consigo utilizar qualquer uma dessas conexões tranquilamente. O que está acontecendo é o seguinte, apenas meu computador consegue fazer essa conexão (além do servidor), nenhum outro aqui da empresa está conseguindo, alguém sabe me dizer o porque? Se eu fiz algo especifico para poder fazer essa conexão, eu não consigo me lembrar, pois já faz algum tempo. Desde já agradeço.

Bom dia pessoa do forum! Então, vou descrever um pouco minha situação, trabalho em um escritório de uma fazenda, que fica na cidade com qualidade de internet razoavel, o servidor com o banco de dados fica aqui no escritório. A fazenda, fica a 160km daqui, com uma internet bastante instável. O que acontece, esse sistema ele é preenchido por um usuário na fazenda, que envia as informações para o BD aqui no escritório, mas como lá a internet é instável, pode ocorrer um erro de pacote, e acabar dando problemas no banco e na planilha. O sistema ele funciona assim, a pessoa preenche uma requisição com os produtos que ela quer, e depois eu abro a conexão com o banco de dados e envio essas informações. Eu queria a opinião de vocês, para saber se estou abrindo a conexão com o banco de dados de forma correta, para o preenchimento dessa informação, porque eu utilizo um loop, e se a conexão cair no meio desse loop, acredito que vai acarretar bastante problema, vou mandar o trecho do código: Sub conectBD() On Error GoTo erro Set cnn = New ADODB.Connection Set rs = New ADODB.Recordset cnn.ConnectionString = "Provider=SQLOLEDB;Data Source="my IP"\SAGE;Initial Catalog=Compras;***;pwd=***" cnn.Open Exit Sub erro: MsgBox "Não foi possível conectar a basse de dados, por favor verifique sua internet", vbInformation, "Erro" Set cnn = Nothing Set rs = Nothing End Sub conectBD rs.Open "Select * FROM tb_requi", cnn, 3, 3 Do While linha <= UltCel.Row rs.AddNew rs!nu_requisicao = w.Cells(linha, Col).Value rs!data_requisicao = Format(Date, "mm/dd/yyyy") rs!Item = w.Cells(linha, Col + 2).Value rs!atividade = w.Cells(linha, Col + 3).Value rs!cod_produto = w.Cells(linha, Col + 4).Value rs!descricao = w.Cells(linha, Col + 5).Value rs!Unidade = w.Cells(linha, Col + 6).Value rs!centro = w.Cells(linha, Col + 7).Value rs!quantidade_pedida = w.Cells(linha, Col + 8).Value rs!status = 1 linha = linha + 1 Col = 7 rs.Update Loop desconectDB Então, basicamente é isso, queria saber se tem uma tratativa melhor para o envio dessa informação. Qualquer duvida me avisa, não sei se o problema em que eu descrevi ficou mt claro, mas agradeço desde já, obrigado.

Alguém?

Bom dia galera! Então, eu trabalho para uma fazenda, que tem um provedor local que fornece internet para a gente. O que acontece é o seguinte, de vez em quando caí uns raios na fazenda e a energia é desligada, quando a energia caí, o roteador ele continua com a configuração normal, mas a internet só volta a funcionar depois que configuramos ele igualzinho como estava antes. A configuração que fazemos no roteador é PPoE. Já testamos 2 roteadores diferentes e acontece sempre a mesma coisa, segue o modelo dos dois: - Intelbras IWR 3000N - D-Link DIR-809 Alguém sabe dizer como posso solucionar isso, ou se são os roteadores que não prestam? Ou algum meio de contornar. Agradeço desde já.

@osvaldomp Cara, é exatamente isso que eu precisava, mt obrigado mesmo, você é *****

@osvaldomp Não é importante, so preciso que toda COLOR igual fique no mesmo PED, pode ficar embaralhado

Boa tarde pessoal! Mais uma vez venho pedir a ajuda vocês aqui para o seguinte problema: Eu tenho uma lista que tem REQ, INDEX e COLOR como coluna. O REQ é um código que é gerado automaticamente quando a pessoa preenche a lista, INDEX é a ordem de como ele vai inserindo a lista, COLOR é onde ele vai preencher a cor, que pode variar. Então, uma REQ pode ter várias COLOR. O que eu gostaria, em uma nova lista, fosse acrescentada uma nova coluna (PED), em que, para cada COLOR diferente, fosse acrescentado um novo número nessa coluna e as iguais ficariam no mesmo PED. Sei que não ficou muito claro, mas estou enviando um exemplo como anexo, se vocês puderem dar uma olhada, ficaria muito agradecido. Pois já tentei de tudo e não acho algo que possa me auxiliar. desde já agradeço. EXEMPLO.xlsx

@Francislei Oliveira É só você selecionar as células que você quer que tenham a lista suspensa, depois ir em Dados - Validação de Dados, depois em Permitir, seleciona 'Lista'. Embaixo vai ter Fonte, nela você seleciona as células que você deixou preenchidas. No arquivo que te enviei de volta, em qualquer uma das células que eu deixei com lista suspensa, em 'Fonte' você verá que está assim "=$A$3:$A$5", que são as células de forma de pagamento, que você deixou preenchidas. Ficou um pouco confuso, mas acho que deu pre entender.

@osvaldomp É isso mesmo cara, mt obrigado, salvou minha pele

@osvaldomp É literalmente isso que eu quero, mas só que invertendo os modelos que você fez, eu quero que o da direita se transforme no da esquerda. Eu tentei editar o seu código, mas ainda sou iniciante e não consegui trazer para minha realidade :/, se puder me ajudar mais uma vez. Eu acho que expliquei mt mal, porque você dois entenderam do jeito contrario

Já tentou utilizar a validação de dados? Fica assim. RECEBIMENTOS.xlsx

Bom dia! Então pessoal, minha tabela está com a parte de quantidade por mês, em coluna, eu queria uma forma de transpor para linha, mas repetindo o codigo, estou enviando pra vocês um arquivo para exemplificar o que eu quero, a tabela cinza é como a informação vem, a azul é como eu queria transformar. Lembrando que são muitos produtos que vem da fonte. Desde já agradeço, obrigado. Exemplo 2.xlsx

Processador AMD FX-6300 3.5Ghz AM3+ Placa mãe GigaByte para AMD GA-78LMT-USB3 Placa de vídeo VGA Nvidia PNY GeForce GTX 760 2GB Memória Corsair 4096 MB (4GB) 1333MHZ DDR3 HD Seagate SATA III Barracuda 7200 1TB valeu

Boa tarde, gostaria de saber entre essas duas fontes: Fonte EVGA 600W 80 Plus Bronze (R$ 277,01) Fonte Corsair 600W CX600M ATX Power Supply - 80 Plus Bronze - CP-9020060 (R$ 372,21) levando em consideração o preço, qual das duas vocês pegariam? mesmo se escolherem a corsair, poderia responder se essa EVGA é boa? muito obrigado.

Muito obrigado cara, mas agora que vi também que a placa ta errada, eu gostaria de saber era sobre essa: xfx radeon R9 270x 2gb GDDR 5 256bits. se puder me responder agradeço.

Boa noite, gostaria de saber se minha fonte: Fonte Corsair 500W CX500M ATX Power Supply - 80 Plus Bronze - CP-9020059. segura um processador: fx 6300 e uma placa de video: Placa Video Xfx R7 270x 2 Gb Ddr5 256bits R9-270x-cdj4 270 X. e já aproveitando o tópico, se puderem me responder, a placa de vídeo pode não ser compatível com uma placa mãe? editando: minha placa mãe é uma: GigaByte p/ AMD GA-78LMT-S2 AM3+.

Galera, gostaria de saber qual seria a melhor fonte para essa minha configuração: Processador AMD FX-6300 3.5Ghz AM3+ FD6300WMHKBOX HD WD SATA3 500.0GB 7200RPM Caviar Blue 6Gb/s WD5000AAKX MB GigaByte p/ AMD GA-78LMT-S2 AM3+ Box Memória Corsair 4096 MB (4GB) 1333MHZ DDR3 - CMV4GX3M1A1333C9 Placa de vídeo VGA Sapphire Radeon HD 7750 1024MB (1GB) DDR5 PCI-Express 11202-00-20G mas eu também queria uma fonte que desse pra fazer um upgrade futuro. grato