kuroi

pelo que eu entendi, o seu codigo não está gerando erro, certo?? ele está indo direto pra TextBox1.Text = "Arquivo inexistente!!!" é isso msmo?? se for, pode se uma coisa meio tonta, mas seu windows está configurado pra mostrar extensao de arquivo comum?? se não tiver, e você tiver gravado um arquivo de bloco de notas e posto o nome de texto.txt, na verdade ele pode estar com o nome de texto.txt.txt. pra checar se o arquivo existe mesmo, clica em Iniciar -> Executar, digita "c:\texto.txt" (ou o endereco que você colocar na variavel arquivo) e clica em OK.

o que seria um ponto de informacao?? que tipo de elemento ele cria?? você quer apagar enquanto ele está criando ou depois de pronto?? esse negocio que ele faz é tipo um arquivo texto?? explica direito senao ninguém entende nd...

cara, você conseguiu fazer um tópico que reune VBscript, ASP e Javascript e postar em VBA que num tem nd a vê ca historia ahahhha tanto que eu nem sei pra onde mover... vo dexar em visual basic inicialmente.... não sei exatamente qual a sintaxe mas acredito que seja algo parecido com javascript. da uma olhada nesse link aqui: http://www.oracledbaexpert.com/vbscript/f.html

isso tem a ver com visual basic?? quem fez esse software foi você?? senao, você pode usar o Document Image Writer do Windows XP que é como se fosse uma impressora que imprime pra arquivo virtual. ai você mandaria o arquivo pra quem você quisesse. ou você instala uma impressora que imprima pdf (tipo a Win2Pdf). ou você quer fazer por codigo via visual basic?? me explica melhor também pra que eu possa mover o tópico pra secao certa.

acho que ele não esta achando o campo na tabela. tenta tirar os espaco que você pos em volta, ficando assim: Data1.RecordSource = "SELECT * FROM lista WHERE nome = '" & Text1.Text & "'"

num sei... talvez porque o registro que você procura não existe. posta o codigo do clique do botao pra gente ver

não entendi nd. seria isso?? Select * from Tabela Where Len(CampoY) = (Select Max(Len(CampoY)) From Tabela)

cara mas nunca poste falando "preciso disso, me ajudem". você passa o enunciado do exercicio e quer que a gente fale o que?? tudo o que o anderson te disse é o que a gente espera que você tenha aprendido na aula. o que mais você pode querer alem do exercico completo. se você tem interesse em aprender, TENTOU fazer o exercicio poste falando "preciso disso, mas não to conseguindo fazer porque pensei que seria assim, mas não funciona por isso e como faco pra funcionar". ou pelo menos "o professor disse pra fazer isso mas não entendo nd dessa materia, por onde comecar??". agora você chega e fala me ajudem nesse exercicio. o que exatamente você quer?? existem varios tipos de ajuda. se o seu codigo não fucniona, a gente pode te ajudar. se você não sabe o que fazer, a gente pode te ajudar. agora se você quer a resolucao toda é bom pra você msmo que ninguém te ajude

faltaro as aspas: Data1.RecordSource = "SELECT * FROM lista WHERE nome = '" & Text1.Text & "'"

em vez de < digite &lt; e em vez de >, &gt;

então cara, quando um codigo estiver errado, posta sempre a descricao e a linha do erro, senao niguem faz ideia do que está acontecendo beleza?? (ou no caso de não estar dando erro também avise e explique o que quer dizer com "não funciona"). mas pra adicionar campos em tabelas já existente custumo usar o comando ALTER TABLE numa query sql. faca uma busca no forum (nas secoes SQL e Access também pode ter alguma coisa) pra ver a sintaxe.

SaveSetting grava informacoes no registro do windows. esses nomes são os nomes das chaves pra que você possa acesasr depois com o comando GetSetting, você pode por o nome que quiser.

olhe aqui: http://www.connectionstrings.com/

então... se for pra aparecer em todas as paginas, porque você não poe no report principal msmo?? se não for em todas as paginas você pode por numa secao nova e ocultar/mostra-la via formula.

o campo coluna esta vindo com valor nulo do banco. o esquema é fazer assim: If Not IsNull(rs.Fields(coluna).Value) MSFlexGrid1.TextMatrix(linha, coluna) = rs.Fields(coluna).Value Else MSFlexGrid1.TextMatrix(linha, coluna) = "" End If[/code]

então, a funcao ficaria assim: <script language="javascript" type="text/javascript"> <!-- function MudaCidade(indice) { var i; for (i = 1; i < document.getElementById('Estado_drpCidade').length; i++) { document.getElementById('Estado_drpCidade').options[i] = null; } <% sql = "Select * from Estados" Set rs = cn.Execute(sql) Do While Not rs.EOF %> if (indice == '<% = rs("Estado") %>'); { <% sql = "Select * from Cidades Where Estados = '" + rs("Estado") + "'" Set rsx = cn.Execute(sql) j = 1 Do While Not rs.EOF %> document.getElementById('Esquerda_drpCidade').options[<% = j %>] = new Option('<% = rsx("Cidade") %>'); <% j = j + 1 rsx.MoveNext Loop%> } <% rs.MoveNext Loop %> } //--> </script>[/code] ai é so você preencher o select de estado com todos os estados do banco.

já chegeui a fazer isso antes, não tem necessidade de ajax não. mas esses dados que você poe no combo vem do banco?? se for, você cria a funcao javascript no load da pagina com os dados do banco. por exemplo, pra você selecionar os estados e mudar a cidade, a funcao ficaria assim: <script language="javascript" type="text/javascript"> <!-- function MudaCidade(indice) { var i; for (i = 1; i < document.getElementById('Estado_drpCidade').length; i++) { document.getElementById('Estado_drpCidade').options[i] = null; } if (indice == 'RJ') { document.getElementById('Esquerda_drpCidade').options[1] = new Option('Rio de Janeiro'); } if (indice == 'SP') { document.getElementById('Esquerda_drpCidade').options[1] = new Option('Bauru'); document.getElementById('Esquerda_drpCidade').options[2] = new Option('são Paulo'); } } //--> </script>[/code] e os selects seriam esses: [code]<select name="Esquerda:drpEstado" id="Esquerda_drpEstado" OnChange="java script: MudaCidade(this.value);" > <option value="">Estado</option> <option value="RJ">RJ</option> <option value="SP">SP</option> </select> <select name="Esquerda:drpCidade" id="Esquerda_drpCidade"> <option value="">Cidade</option> </select> ou seja, é so você acrescentar as linhas caso você tenha mais dados. se eles vierem do banco é so montar a funcao usando asp.

estranho, deve ser o CRViewer. de uma olhada se ele não tem um metodo pra fechar o report, ou algo assim. senao tente: Set CRViewer1.ReportSource = Nothing ou Set crRpt = Nothing CRViewer1.ReportSource = crRpt[/code] faz uns testes aí. senao hj a noite em casa eu tento vê alguma coisa. a e agora a gente tem um novo subforum Crystal Reports. duvidas relacionadas poste la beleza??

você adiciona o componente Crystal Reports Viewer Control, adiciona o controle no formulario (o ideal é usar um formulario so para mostrar o relatorio). ai levando em conta que você abriu o report assim: Dim crAppl As CRAXDRT.Application, crRep As CRAXDRT.Report Dim x As CRAXDRT.Report Set crAppl = New CRAXDRT.Application Set crRep = crAppl.OpenReport(App.Path & "\NomeDoRelatorio.rpt") Set x = crRep.OpenSubreport("NomeDoSubReport")[/code] você mostra assim: [code]CRViewer1.ReportSource = crRep CRViewer1.ViewReport quanto a esse erro... você pos o subreport no report header?? porque acho que realmente não funciona com ele no header. senao tenta criar uma section separada so pra por o subreport.

eu uso o componente CrViewer, mas não lembro o codigo de cabeca. veja se você consegue, qualquer coisa a noite eu te passo

se você hospedar no uol tem que ser assim. e com www não vai msmo porque o endereco do uol é esse que você tem. se você for hospedar seu site em qualquer servidor gratis é assim, vai ter que ter o nome dele na frente na maioria das vezes. o esquema é você registrar um dominio com o nome que você quer exemplo www.croix.com. mas pra isso tem que pagar. esse assunto também foi discutido nesse tópico http://scriptbrasil.com.br/forum/index.php?showtopic=87268 da uma olhada

você já tentou por On Error Resume Next antes da linha do erro??

meu você bem que podia fazer uma busca no google o em qualquer outro lugar em... mas, basicamente: - split divide uma string separando por um determinado caracter ficando cada pedaco num indice de um array. exemplo: temp = Split(temp, ",") vai trasnformar a variavel temp em um array e por cada pedaco de texto que estiver entre virgulas em um indice dele. - CInt converte pra inteiro. qualquer texto convertido vai se tradado como numero, e, no caso de ter sido convertido um numero quebrado, você perde as casas decimais. exemplo> 3,95 convertido pra inteiro fica 3. - na funcao keypress, o codigo da tecla pressionada é armazenado na variavel keyascii. If Keyascci= 48 Then testa se a tecla pressionada corresponde a uma determinada tecla. no caso não sei qual corresponde ao 48, mas na linha de baixo, ele compara com 13, que corresponde ao enter. - ubound traz o numero do ultimo indice do array. e, na verdade, no codigo que o o lcs passou, você não vai passar pelo primero indice. porque o indice comeca no 0, a não ser que você explicite pra comecar no 1, o que não foi feito no codigo. - msgbox mostra uma mensagem numa caixa. meu mas você nem testo o codigo pra vê o que faz e já vem fazendo pergunta. no minimo isso é um trabalho de escola e o cara já resolveu td pra você, estou certo?? bom de qualquer forma, pelo menos você está interessado em entender o codigo, tem mta gente que nem isso quer saber

vo mover pra sala Script Brasil pra td mundo vê seus comentarios sobre o forum mas aproveita e se cadastra aí

hahahah valeu... mas nem fiz nada....