kuroi

o q tem na pagina os_manutencao.asp??

se for verticalmente, clique com o botao direito no objeto, entre nas propriedades e selecione a opcao Can Grow e veja se não resolve pra você.

o seu popup deve estar dando refresh na janela principal, possivelmente no unload.

você deve mudar as propriedades selstart e sellength de modo a selecionar o texto q você quer formatar e ai aplicar a formatacao. exemplo, se o richtextbox tiver com o texto "xxxkuroixxx" e você quiser dexar a "kuroi" em negrito, o codigo seria esse: RichTextBox1.SelStart = 3 RichTextBox1.SelLength = 5 RichTextBox1.SelBold = True[/code]

tb não to enxergando, mas pra descobrir a melhor forma seria você ir tirando campo por campo do update e ir testando a cada vez ate descobrir qual campo esta causando o erro. e tb você poderia checar se todos os nomes de todos os campos tão digitados corretamente.

o dundas esta instalado no servidor??

você deve ter entrado na opcao "Editar foto pessoal" q é a foto q aparece no perfil. inclusive a imagem do pinguim já ta aparecendo no seu perfil, olha la. pra por o avatar, você tem q ir na opcao "Editar avatar", inclusive la já tem os avatares padrão.

então, marvi o response.write mostrou q o VarDesc esta com mais de 4000 caracteres. então tem q ser um campo maior q isso. num campo varchar você pode por tamanho de ate 8000 bytes, então, se você aumenta-lo deve resolver. agora não entendi o q você quis dizer quanto a gravar imagens. mas um editor como esse funcionaria sim num campo varchar. entretanto se você quiser permitir caracteres unicodes (texto em japones, por exemplo), como o nvarchar não pode passar de 4000, acho q você poderia por como do tipo text. entretanto como você esta fazendo em html, se o cara escrever um texto com caracteres de outras linguas, os caracteres podem ser convertidos pra o codigo html dele, assim gravando o codigo, não tem necessidade de q seja em unicode, inclusive acho q é assim q funciona aqui no forum. entretanto não sei te dar mtas informacoes de como trabalhr com isso e nem sei como o fckeditor gerencia isso.

então, acho q o problema não é nem o tamanho do campo e sim o tamanho da linha. uma linha de uma tabela do sql não pode ter mais q 8060 bytes (se não me engano, a partir do sql 2005 ai já pode). e se o campo é nvarchar, cada caracter ocupa 2 bytes. então se são 4000 caracteres, vai passar de 8000 bytes. o seu campo tem q ser nvarchar mesmo?? você vai armazenar caracteres unicode?? se não vai, então você poderia mudar pra varchar q ai os 4000 caracteres ocupariam somente 4000 bytes. outra opcao então, seria mudar para tipo text onde cabem acho q ate 1 giga de dados no caso de texto em unicode. faca outro, teste, troque a linha: Response.Write(Len(executar)) por Response.Write(Len(VarDesc)) e veja o tamanho apenas do campo conteudo q você ta tentando gravar. se tiver mais de 4000 caracteres ai se for em unicode, não vai caber mesmo, você vai ter q mudar pra text. se não for em unicode, você pode mudar pra varchar q ai cabe ate 8000 caracteres.

marvi, de teste, troque a linha: Set rsbusca=Conexao.Execute(executar) por: Response.Write(Len(executar)) Response.End()[/code] ele deve escrever na tela o tamanho da sua query. ai poste ai qual o tamanho q ele mostrou pra gente ver se descobre o problema.

ue, no passo 23 ele já pede pra você virar o lapis. é so você virar de dexar de pe, ue.

marvi, qtos campos gdes assim tem na sua tabela?? so um mesmo??

então eu não devo ta enxergando direito, ainda acho q falta fechar um if, olha so: If Trim(strTexto) <> Empty Then '<-- AQUI VOCE ABRE UM IF If InStr(1, Trim(strTexto), "Arquivo Lista Gerado") <> 0 _ '<-- AQUI VOCE ABRE OUTRO IF. então FICAM DOIS IFS ABERTOS ... Then Line Input #1, strTexto Else '<-- AQUI VOCE POE UM ELSE IMAGINO QUE REFERENTE AO PRIMEIRO IF, MAS COMO O SEGUNDO AINDA ESTA ABERTO, ELE CONSIDERA QUE SEJA PRO SEGUNDO MsgBox "VAI CARREGAR O ARQUIVO!!!" With grdArquivo ... ... If lngPos = 0 Then '<-- AQUI VOCE ABRE UM TERCERO IF, MAS FECHA LOGO EMBAXO. ' strDataVigor Mid(strTexto, lngPosIni) ' Else ' strDataVigor = Mid(strTexto, lngPosIni, (lngPos) - lngPosIni) ' End If ... End With End If '<-- AQUI VOCE FECHA UM IF. MAS TINHAM DOIS ABERTOS, ONDE ESTA SENDO FECHADO O SEGUNDO??[/code] de qualquer modo acho q se você puser o Line Input #1, strTexto na mesma linha do segundo if (ou concatenar as linhas com um _ adicional), nem precisa fechar.

flecha, pelo q parece, o segundo formulario estava chamando o crcontrol do primeiro, mas não precisa ser assim. no frmprint, você pode adicionar (se já não tiver) um outro controle crcontrol, e mostrar o relatorio no crcontrol do proprio formulario. ai acho q se você trocar a linha: With frmCR.CrystalReport1 por With CrystalReport1 deve funcionar.

faltou fechar esse if aqui: If InStr(1, Trim(strTexto), "Arquivo Lista Gerado") <> 0 _ Or InStr(1, Trim(strTexto), "Bloqueio de Ligacoes Telefonicas") <> 0 _ Or InStr(1, Trim(strTexto), "Fundacao de Protecao e Defesa do Consumidor") <> 0 _ Or InStr(1, Trim(strTexto), "a partir de") <> 0 Then[/code]

flecha, isso ta acontecendo no preview dentro do crystal reports ou quando você chama o report atraves do visual basic o qualquer outra linguagem??

alex, no momento to usando o visual basic 6 no vista, coisa q faco raramente, e percebi q pra mim tb acontece esse erro. mas reparei q so acontece quando eu rodo o programa no runtime do vb. se eu rodo a partir do .exe compilado não da esse problema, teste pra ver se é isso mesmo.

marco, qual a linha do erro??

leandro, você so pode passar o valor pra formula quando for pra retornar. não pode passar um valor e depois mudar. se for pra fazer assim, passe o falor (true ou false) pra uma variavel, e no final retorne essa variavel para a formula.

vou mover pra visual basic.

qual a mensagem do erro??

mfecosta, ainda ta dificil de entender. q os dados sejam retirados de onde pra onde??

acho q era pra ser assim, não?? Public Function soma(a As Integer, b As Integer) As Integer soma = a + b End Function[/code]

use a funcao shellexecute. declare assim: Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long e chame assim: ShellExecute Me.hwnd, "Open", "C:\cs.lnk", vbNullString, vbNullString, 1

acho q deve ser so você passar o vetor como parametro q ele proprio já é alterado, não seria isso??