ToPronto N'Area

Muito obrigado dr... Valeu mesmo! inton vamos ao mysql!!! Abraços!

Ola pessoal, bem eu to pensando eu hospedar o bco de dados de um cliente meu, em um provedor. Quero saber se tem como eu no vb, escrever pra ele buscar o bco de dados no endereço ftp do provedor! Será que dá! eu trabalho assim com os meu codigos Em uma module Dim Banco as string No form de login e senha banco = "z:\meubcodedados.mdb" nos forms data1.databasaname = banco data1.recordsource = "Clientes" data1.refresh Geralmente é isto que eu faço! Será que tem como la no form de login e senha colocar pra ele buscar de um ftp!!??? Bom agradeço desde já a ajuda de v6! Abraços!

Pessoal é o seguinte, consegui resolver o caso depois de alguns dias pesquisando! è o seguinte: Primeiramente temos de fazer a referencia lá em project - references - microsoft word 11.0 Object Library *pra quem usa o office 2003 Depois você vai declarar em Declarations Public objword As Word.Application Depois você coloca este codigo! Private Sub CmdWord() Dim temp As String On Error GoTo trata_erro Set objword = New Word.Application ' Desabilita o botao de comando CmdWord(0).Enabled = False ' nome do relatorio pré montado objword.Documents.Open ("caminho do arquivo do word\nomedoarquivodoword.doc") objword.Visible = True 'se você quiser que apareça enquanto executa a ação ' chama rotina para substituicao Call Substitui_Var("@datadodia", Format(Now, "Long Date")) Call Substitui_Var("@rscontratante", Label1(0)) 'Call Substitui_Var("@cidade1", txtcidade) 'Call Substitui_Var("@contratante", Data1.Recordset("nomeresp")) 'Call Substitui_Var("@endereco2", Data1.Recordset("endereco")) 'Call Substitui_Var("@documento", Data1.Recordset("cidade")) 'Call Substitui_Var("@aluno", Data1.Recordset("nome")) ' Salva o documento com um novo nome objword.ActiveDocument.SaveAs (""caminho do arquivo do word\" & nomedoarquivo) 'Encerra o word objword.Quit ' informa ao usuario que o contrato foi gerado MsgBox "Proposta gerada com sucesso! em : " & nomedoarquivo, vbInformation, " Proposta gerada! " ' libera memoria Set objword = Nothing Exit Sub trata_erro: MsgBox "Ocorreu um erro durante o processamento " & " - Erro numero : " & Err.Number End Select End Sub 'função para substituir palavras no word Private Sub Substitui_Var(Header As String, Data As String) With objword.Selection.Find .ClearFormatting .Text = Header .Execute Forward:=True End With Clipboard.Clear Clipboard.SetText (Data) objword.Selection.Paste Clipboard.Clear End Sub lembrando que nomedoarquivodoword pode ser uma label ou txt, e não precisa colocar .caption ou .text! beleza, desde já agradeço todos que leram o assunto! E ai estas espero ter ajudado alguém! Fui

E ai pessoal, seguinte to com um problema pra fazer um contrato de varias paginas, tipo umas 8! Pensei em relatorio, mas não ia dar. neste contrato irao aparecer dados de um db grid e muito texto, inton pesquisei e achei um, codigo no macorrati de automação ole, só que da um erro o código é este! Private Sub Command2_Click() Dim objword As Object 'declara um variável objeto Set objword = CreateObject("Word.Basic") 'cria objeto e inicia o Word objword.filenew "Normal", 0 'cria novo arquivo objword.Bold 'define fonte em negrito objword.FontSize 24 'define tamanho da fonte objword.Insert "AUTOMAÇÃO OLE !!!" 'insere o texto no arquivo objword.appmaximize "", 1 objword.FilePrintPreview 'Visualiza a impressao objword.AppActivate "Microsoft Word" End Sub ele da um erro do objword.AppActivate "Microsoft Word" não sei o que é o erro, e se vocês puderem me ajudar fico muito grato! Obrigado desde já! Só pra avisar, estou usando Windows xp sp2; Vb 6.0 sp 5.0; CRistal 10.0 Office 2003

Olá pessoal, Eu quero fazer uma especie de tabela do excel no vb! Onde na coluna vertical vira os campos da tabela do bd, e na frente de cada campo na linha horizontal virá os dados que foram atualizados nos meses! Vai ficar mais ou menos assim: mês Referente - Janeiro2007 - Fevereiro2007 Código - 500031 - 500031 Valor - 153,35 - 160,00 E pelo que eu vi no dbgrid não consegui fazer isto ele sempre me traz os campos na linha horizontal e não na vertical, se alguém puder me dar uma dica! eu Fico muito Grato! Sem mais muito obrigado!