kuroi

mdac_typ?? nem sei o q é... se entendi direito, pelo q pesquisei, você precisa dele somente pra fazer funcionar o ado em aplicacoes do vb5. então se você usa vb6 não precisa disso. mas normalmente ele não inclui esse arquivo no instalador não. da uma olhada, deve ser aquilo q falei, você ta adicionando varias bibliotecas q não ta usando, por isso o instalador ta ficando maior. quanto ao innosetup, acho q seria bom eu tentar escrever algum tutorial com printscreen e tudo pra tirar todas as duvidas, mas acho q so poderei fazer isso ano q vem... mas não é tão dificil de mexer, se você tiver o istool. você não baxou o istool tb?? da uma olhada q ele facilita bem. e os topicos q eu falei eram esses: http://scriptbrasil.com.br/forum/index.php?showtopic=133701 http://scriptbrasil.com.br/forum/index.php?showtopic=150880 não são muito explicativos mas tem varias informacoes jogadas no meio deles, se você tiver paciencia de procurar. basicamente, o q costumo fazer é, criar o instalador com o package & deployment, pra q ele copie todos os arquivos de biblioteca na mesma pasta. ai eu abro o istool e peco pra abrir um novo script em branco (tem ir em menu Arquivo -> Novo pra ele abrir o wizard). ai depois de digitar as informacoes, você vai la na opcao de adicionar arquivos (não lembro o nome exato e não tenho o istool aqui pra olhar, mas deve ser "Files" ou algo assim). ai você vai adicionar todos os arquivos q o package separou. o .exe principal da sua aplicacao você manda ir no diretorio {app} (se você tiver outros arquivos, como um banco de dados access q devam ficar na mesma pasta do .exe principal, ponha em {app} tb. os arquivos de biblioteca, (normalmente .dll, .ocx e .tlb) você manda por em {sys} (q no final deve apontar pra C:\Windows\System32). ai você tem q setar os flags certo pra dizer qual biblioteca ele tem q registrar (não vou lembrar os nomes das opcoes de cabeca). geralmente .ocx sempre registra. as outras, se você não tem certeza, eu sempre recomendo então, só de teste mandar registrar todas. ai você roda o instalador pra testar e anota as q derem erro de registro. ai você volta no script do inno e tira o flag de registro dessas e compila o instalador de novo. fora isso, é bom checar tb opcoes do tipo pra não instalar o arquivo caso já tenha um mais recente no sistema. e tb é bom tirar a opcao ignoreversion das bibliotecas e arquivos de sistema. em resumo, é mais ou menos isso, veja se ajuda, qualquer coisa poste.

hum... mas qual acao exatamente você esperava q ocoresse?? se você quiser q ele delete um caracter num textbox por exemplo, antes você teria q por o SetFocus() nele, porque no momento em q você clica no botao, ele ganha o foco.

matheus, pra deletar use a funcao Kill(): Kill "C:\caminho\arquivo.txt"

pra simular pressionamento de teclas, você usa a funcao SendKeys(). não precisa de api não, a não ser q você queira simular pra fora de sua aplicacao. SendKeys "{DELETE}" 'simula pressionamento do delete SendKeys "{ENTER}" 'simula pressionamento do enter[/code]

danleon, você tem q entender q se o datagrid esta vinculado com o recordset, os dados q ele mostra não pertencem a ele e sim ao recordset. então, você tem q apagar do recordset e não do grid. você teria então q localizar o registro no recordset, chamar o metodo Delete() e depois o Update(). quanto ao Sum(), não vai servir no seu caso, porque serve pra pegar os dados direto do banco. ele é uma funcao de agregacao (existem outras como Count(), Max(), Min()), serve pra você trazer os dados já somados a partir do select. de uma lida aqui: http://www.w3schools.com/sql/sql_functions.asp http://www.w3schools.com/sql/sql_func_sum.asp http://www.sql-tutorial.net/SQL-SUM.asp

não entendi com o grid recebe valor de textbox. o grid não ta vinculado a um recordset?? como você faz pra preenche-lo?? se os dados tão vindo do banco de dados, não seria mais facil soma-los direto do banco, fazendo um novo select q faca um sum() do campo q você quer??

tem um espaco em "idServic o" entre o "c" e o "o".

olha, o crystal reports é muito facil de mexer, ele facilita muito, por isso mesmo q ele é um software de 300 megas. o Printer, é bom usar pra fazer coisas simples, ou caso você não tenha outros softwares pra usar. não esqueca q tb tem o data report, mas como nunca usei esse componente, não posso falar muito sobre ele. olha, os unicos q conheco são do macoratti mesmo... a e nesse site tb tem alguma coisa ó: http://scriptbrasil.com.br/forum/index.php?showtopic=154060 da um ctrl + f e digita printer. porque eu tb praticamente não usei o objeto printer. bom, só quando eu fazia curso, mas como não podia usar a impressora da escola, então não adiantava mta coisa hehehe. na empresa sempre usaram crystal reports, por isso sempre q precisava imprimir eu usava ele, ou em alguns casos, eu escrevia o relatorio em word.

marcog, normalmente eu escrevo os textos assim: Selection.TypeText Text:="texto normal " Selection.Font.Bold = wdToggle Selection.TypeText Text:="esse é um texto em negrito" Selection.Font.Bold = wdToggle Selection.TypeText Text:=" texto sem negrito"[/code] agora com bookmark eu não sei exatamente como fazer. você precisa mesmo usar bookmarks??

tirado de um outro tópico: eu tinha um codigo em c++ q fazia isso la no computador de casa, mas não estarei la tão cedo... ai a gente via se dava pra adaptar com o vb6, mas com sorte você pode encontrar alguns exemplos bem faceis. EDITADO: alias, encontrei aqui um codigo no site q esta postado na secao de dicas: http://www.vb6.com.br/958/Arquivos/visual-...-PROCESSOS.html não usa apis e parece funcionar.

ouvi dizer q se você tiver o vb6 original, ele vem com um terceiro cd (eu nunca vi nem o segundo pra dizer a verdade) com o crystal reports. eu sei q ate a versao 11 ainda da pra usar com vb6. nunca vi usar esse do .net com o vb6. pra conseguir o crystal reports você deve compra-lo. qualquer outra forma de conseguir não pode ser discutida aqui no forum, a não ser q exista alguma versao gratis, tipo express ou coisa assim. agora deve ser esse tamanho mesmo, mas esse é so o software pra criar os relatorios. quando você for distribuir a sua aplicacao do vb6, você so precisa passar as dlls q você usar, não precisa instalar o crystal todo pra sua aplicacao rodar (apesar de q as vezes da um pouco de trabalho distribuir uma aplicacao com o crystal).

não baixei o exemplo pra ver, mas você ta usando o Cells.Find?? então, se você passar o parametro LookAt como LookAt:=xlWhole, ele deve resolver o seu problema, não?? seria possivel, mas você teria q localizar a linha na planilha do mesmo jeito.

não entendi nd...

marcog, acho q o melhor é vc, na hora de escrever essa linha: .Bookmarks("TextoIntro").Range.Text = "Convoca-se os docentes, " + strConvocatoriaDe + ", " + "para uma reunião a realizar no dia " + CNomeDia(Day(Calendar1.Value)) + " de " + NomeMes(Month(Calendar1.Value)) + " de " + NomeAno(Year(Calendar1.Value)) + " " + "pelas" + " " + txtHoraActa + ", " + "com a seguinte ordem de trabalhos:" usar uma linha pra escrever somente até "para uma reunião a realizar no dia ". depois você ativa o negrito e escreve CNomeDia(Day(Calendar1.Value)). ai você desativa o negrito e escreve o resto.

almarante, de uma olhada nesse tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=134212

vb8?? você ta querendo dizer visual basic 2005?? ou 2008 ou coisa assim?? tenta sempre especificar o melhor q puder a ferramente q você usa. vb8 não significa muito pra nos... mas o componente DataGridView q você ta usando é do .net framework, então deduzo q você esteja usando vb .net. isso não tem relacao com vba, vou mover pra sala correta. pra fazer a busca no access, use os objetos da biblioteca System.Data.OleDb, como OleDbConnection, etc.

henrique, você não precisa adicionar nd na propriedade Formulas. ela serve pra fazer campos calculados e não filtros. pra filtrar o relatorio, use o SelectionFormula como você ta fazendo. só o problema é q você ta adicionando o texto "textnome.text" como se fosse parte da formula em vez de concatenar o valor dele. alem do mais, se nome é string, tem q ir entre aspa. assim: CR1.SelectionFormula="{Clientes.nome}= '" & txtnome.text & "'"

não precisa de CDbl(), é so tirar as aspas: atualizar = "update tab1 set Nome='" & txt2.Text & "',Endereco='" & txt3.Text & "' where Codigo=" & txt1.Text

nessa linha: For i = 0 To UBound(v) - 1 faca: For i = 0 To UBound(v)

o & serve pra concatenar strings. se você quer escrever varios comandos na mesma linha, use : pra separa-los.

false?? vai ver então q você ta escrevendo alguma expressao de comparacao em vez de passar o valor do recordset. ve se a linha q escreve no textbox não ta com dois iguais na mesma linha, ou se você não ta pondo um And ou um Or ou qualquer outro operador logico ou de comparacao. se não conseguir descobrir, poste a linha onde você passa o valor do banco pra essa textbox q fica com "false".

danleon, qual o codigo de quando você abre a conexao?? por acaso você esta pondo cursor location no cliente pra conexao?? o objeto conexao tb tem a propriedade CursorLocation, assim como o recordset. tente setar adUseServer para o CursorLocation da conexao tb. EDITADO: e tb nem todos os providers suportam o Seek(). como disse o macoratti, o "Microsoft.Jet.OLEDB.4.0" suporta sem problemas, então use esse. fora isso, tenha certeza de estar usando a versao Microsoft ActiveX Data Objetcs 2.8, ou a mais nova q tiver ai. as mais antigas não suporta o metoto Seek().

não, desse jeito você so faz quando forem poucos itens já definidos. exemplo, se forem as opcoes "sim" e "não". se forem varias opcoes, normalmente você tem outras alternativas em vez de fazer 50 linhas de ifs, mas depende de onde vem os dados q você quer escrever nos textbox e do q você quer executar no evento clique. você podia por exemplo, criar um array e preencher cada indice com o texto q você quer por no textbox pra cada indice do combobox. ou se for dados do banco de dados, você pode fazer um select no banco de dados na hora do clique. o q exatametne você precisa??

não é isso não, o crlf não vem junto com a linha. quando não tiver nd na linha, ele vai vir uma variavel vazia. ai você não pode usar Split(), porque não vai haver retorno. seria assim: Dim lx As String Do While fsStream.AtEndOfStream = False lx = fsStream.ReadLine If lx <> "" Then line = Split(lx, "|") NovoValor00 = Replace(line(0), "'", " ") NovoValor01 = Replace(line(1), "'", " ") NovoValor02 = Replace(line(2), "'", " ") NovoValor03 = Replace(line(3), "'", " ") con.Execute "INSERT INTO tabela(Col001, Col002, Col003, Col004) VALUES ('" & NovoValor00 & "','" & NovoValor01 & "','" & NovoValor02 & "','" & NovoValor03 & "')" sCodigo_cliente = oRsNome iContador = iContador + 1 Form1.progressBar.Caption = iContador & " PDB's de " & Format$(num_lines) Form1.statusBar.Caption = "Importando PDB's" DoEvents end if Loop[/code]

quando você inputar a linha na variavel, faca um if e cheque se ela não esta em branco. se estiver, você ignora a importacao. se precisar, use um Trim(), caso a linha em branco contenha espacos em branco.