Denis_Rave

Acho que ele está se referindo ao relatório não estar sendo configurado no modo paisagem, correto? pelo menos esse foi um dos grandes problemas que eu tive quando estava trabalhando com o Data Report.... Você jáh tentou instalar o SP6 do VB? Pelo menos, quando eu fiz isso aqui funcionou...

O programa não vai ser fechado..somente um form, então vou experimentar pelo modo que o meu xará falou xP Obrigado a todos

sera que alguém sabe se tem outro jeito de fazer?

Olá pessoal Estou com um pequeno probleminha aqui, agradeço qualquer ajuda Bom, eu preciso conseguir o útimo caminho acessado por um Common Dialog no modo ShowOpen, pra usá-lo novamente no InitDir...sabe..pro cara não ter que toda hora procurar o diretório.. Os modos .FileName me dá o caminho, mas com o nome do arquivo e o FileTitle me dá somente o nome do arquivo Eu até tinha conseguido fazer..usando este código b = (Len(cd.FileName) - Len(cd.FileTitle)) - 1 cd.InitDir = Left(cd.FileName, b) o problema é que eu vou colocar esse código em um formulário que é sempre descarregado da memória após ser utilizado...Então, o FileName e o FileTitle são sempre apagados ¬¬ Será que alguém sabe como fazer? Abraços

Opa! Coloque este código aqui no formulário principal Private Sub Form_Load() If App.PrevInstance Then End End Sub Quando o cara clicar no executável novamente, o programa irá checar se há uma outra instância do programa rodando, e caso tenha, ira encerrar imediatamente, deixando só um programa rodando ok?;) Abraços

Obrigado ^_^ Abraços

Olá pessoal Tava precisando saber como inserir um número determinado de Tab's dentro de uma string, que posteriormente será gravado em um arquivo .txt Tem que ser Tabs,e não espaços, pois ficara td muito estranho.. só tem como fazer isso pelo objeto Printer? ou tem outro jeito? Abraços

Cara..para ediçao de dados em massa de um banco de dados...que é o que você quer..seria melhor a utilizaçao da DataGrid, já que ela salva automaticamente tudo que voce alterar/deletar/editar...

Opa Então, esse arquivo txt que você está querendo pegar a últim linha...ele possui um padrão de caracteres por linha? Tipo, toda linha contem um mesmo numero de caracteres?

Cara...dê uma pesquisada aqui no fórum sobre o Controle Winsock ^^ Ele faz exatamente o que você deseja... Abraços...

Vlw Graymalkin ^^ Problema resolvido ;) Abraços

Ah sim...então no caso seria só passar o caminho do banco de dados no ADO.ConnectString...ou teria também que adicionar aquele "Provider..."? Faria isso quando o programa iniciasse pela primeria vez...

Não entendi o que você quis dizer com Abre mais de uma vez...tipo, uso varios ADO's em diferentes forms...penso que devo passar a String de Conexão para cada ADO, correto? Como ficaria essa string...montei aqui mas não deu certo..o mesmo erro acontece...

Dps do Código pra abrir o PDF...é só adicionar a instruçao: End o seu programa fechará ^^ e dê uma olhada no ShellExecute..quem sabe essa mensagem do acrobat não aparecerá... Abraços..

Ah..não sabia dessa de ser alterado pelas caixas de Diálogo, e desses caminhos relativos e absolutos... Vivendo e aprendendo...xD Bom, então devo configurar todas as strings de conexão a partir de código, correto? Preciso fazer isso toda vez após o uso de uma caixa de Diálogo ou não? Abraços

Cara..dê uma olhada nesse link...está em inglês, mas acho que é exatamente o que você quer...seria baseado naquelas ProgressBar do Windows XP http://www.planet-source-code.com/vb/scrip...=56151&lngWId=1 Abraços

Poderia fazer assim Shell caminhoadobe & " -open " & App.Path & "\" & nomearquivo onde caminhoadobe é o caminho para o arquivo executável do Adobe Acrobat (normalmente em C:\Arquivos de programas\Adobe\Acrobat 6.0\Reader\AcroRd32.exe) e nomearquivo o nome do arquivo PDF que voce quer abrir... Abraços

Por exemplo..meu ADO está configurado para o Banco de Dados "Album.mdb"...sem o caminho (C:\...)...Eu estou rodando o programa no C:\Album...então, ele deveria buscar o Banco de Dados no C:\Album\Album.mdb correto? mas quando eu seleciono uma figura na Common Dialog, que está em um outro caminho, como por exemplo C:\Figuras...o ADO busca o Banco de Dados em C:\Figuras\Album.mdb...gerando assim um erro A variavel Caminho foi definida na General Declarations...e sim, é a mesma para as duas Subs...

alguém já viu isso antes? Eu tou usando uma Common pra poder selecionar a figura que eu vou salvar no BD... beleza...seleciono e salvo ela no BD como objeto BLOB... só que depois disso, o ADO simplesmente muda o caminho do BD para o o diretorio que a Common parou....muito estranho..alguém sabe o que está acontecendo? vou postar o código para facilitar ^^ Private Sub cmd_Click(Index As Integer) Select Case Index Case 0 With dlgSelect .DialogTitle = "Selecione a imagem..." .Filter = "Image Files (*.jpg, *.bmp, *.gif)|*.jpg;*.bmp;*.gif" .InitDir = App.Path .ShowOpen If .FileName = "" Then Exit Sub Caminho = .FileName If Trim$(Caminho) <> "" Then LoadPointerImage (Trim$(Caminho)) 'Aqui ele carrega a imagem numa picture, usando uma funçao End If End With Case 1 If Salvar Then ADO.Recordset.Update Unload Me End If End Select End Sub Function Salvar() As Boolean Dim strMsg As String Dim bytBLOB() As Byte Dim strImagePath As String Dim intNum As Integer 'Verifica se realmente uma imagem foi selecionada strImagePath = Trim$(Caminho) If (Trim$(strImagePath) = "") And (Pic1.Picture = 0) Then strMsg = "Por favor selecione uma imagem antes de salvar..." MsgBox strMsg, vbExclamation, "Imagem Inválida" Exit Function End If 'Salvando... With ADO.Recordset 'Abre a figura intNum = FreeFile Open strImagePath For Binary As #intNum ReDim bytBLOB(FileLen(strImagePath)) 'LÊ os dados e fecha logo após Get #intNum, , bytBLOB Close #1 .Fields(7).AppendChunk bytBLOB End With Salvar = True End Function Se alguém puder me dar uma mao agradeceria ^^ Abraços

Cara neste link aqui, explica-se o uso do banco de Dados para armazenamento de imagens dos dois jeitos, tanto gravando a imagem no BD, como gravando apenas o local da imagem...ai você pode adaptar da melhor forma^^ http://www.macoratti.net/img_bd.htm Abraços

^_^ Certo então... Era só porque eu estava usando um ADO de um form não carregado para poder efetuar uma rotina de exclusão no form principal, porque, para isso eu teria que percorrer todos os registros...e não poderia usar o ADO do form principal...por isso a dúvida quanto à atualizar os ADO's Vlw Graymalkin ^^

SIm Sim xD bem óbvio...mas digamos, reformulando a pergunta Se eu quisesse mudar o Source de todos os ADO's, ateh mesmo dos pertencentes aos Forms não carregados...como eu faria isso?

Sim claro! Absolutamente... Mas é que no programa que estou desenvolvendo...a maioria dos forms estão abertos ao mesmo tempo...e eu estaria aproveitando para dar um novo comando sql neles...ateh mesmo nos forms que não estão abertos...por isso eu iria usar esse código... Abraços..

Errr...uma coisa... Eu preciso estar com os forms carregados? não tem um jeito, tp, a partir de um único form, executando o FOr Each, realizar o .refresh tou usando esse código Dim Formu As Form Dim Ad As Control For Each Formu In Forms For Each Ad In Formu.Controls If TypeOf Ad Is Adodc Then Ad.Refresh End If Next Next acontece,que quando eu tou só com o form principal aberto, esse código só executa um unico Refresh...que é o do ADO que está presente neste form... eu teria que carregar todos os forms? e dps descarrega-los? ou tem outro jeito?

Certo Graymalkin..pelo que eu entendi, eu vou buscar todos os controle ADO's no Form que eu estarei rodando o For Each... Pegunto ainda se eu terei que fazer um For Each para cada formulário, ou se existe um jeito de aplicar isto a todos os forms? Seria usando um For Each dentro de outro For Each não é?? Tp, primeiro eu procuro todos os forms, e dentro eu procuro por todos os ADO's, correto? Abraços...