kuroi

te levo ao segundo tópico q abri na scriptbrasil há 6 anos atras hehhe: http://scriptbrasil.com.br/forum/index.php?showtopic=48769 EDITADO: e no caso de objetos ou controles do formulario (como o Image ou o TextBox q você usa no exemplo), o melhor seria você usar ByRef, pra q ele não tenha q copiar o objeto todo pra uma nova area de memoria. nesses casos so use ByVal se for mesmo preciso.

fernanda, você ta usando vb.net... moverei pra sala de .net.

em q linha exatamente aparece "Variavel do Objeto ou Variavel do Bloco WITH não foi definida"??

deve ser: Set Image1.Picture = Nothing

a funcao Replace() já faz isso pra vc: Label1.Caption = Replace(Text1.Text, " ", "")

ia ser melhor q você postasse o codigo como fica depois de executado, tambem com o css. talvez tenha faltado um float: left nas divs ou coisa assim... porque o asp é executado no servidor, não é pra ter diferenca entre os navegadores. se o site estiver hospedado, e fosse possivel da gente visualizar a tabela já montada, ia ajudar se você passasse o link. fora isso, tb lembre-se, não é porque é tableless q é proibido usar tabelas. a gente evita de usar tabela pra fazer o design da pagina, mas se tiver q mostrar uma tabela, não tem porque não usar a tag table.

não sei exatamente o porque da mensagem do provider, já q ele deve estar realmente instalado. mas no vb.net, é melhor você usar as bibliotecas do .net mesmo pra conectar no banco de dados. use a OleDbConnection, OleDbDataReader e OleDbCommand, e etc. elas fazem parte, se não me engano da biblioteca System.Data.OleDb. acho q ate da pra você fazer uma conexao com o ado antigo, mas os objetos não devem ser compativeis com os componentes do .net, por exemplo, com o DataGrid do .net.

explique mais detalhes, esse erro é dentro do projeto ou no .exe pronto?? onde você ta rodando?? pode ser mtas coisas, conflito de versao do sistema operacional, problemas de versao das dlls, etc.

esse tutorial do macoratti tem as funcoes prontas td certinho e funcionando: http://www.macoratti.net/img_bd.htm o metodo .GetChunk() retorna partes do conteudo binario do campo. primeiro de tudo, o certo seria usar o retorno num array de byte em vez de numa string, já q na string, ele deve trocar os caracteres 10 e 13 quando aparecerem separadamentes por 13 e 10 juntos (o crlf, pra dar quebra de linha) e vai corromper a imagem. na verdade, o q você tem q fazer é, depois q ler a imagem do banco de dados, você salva-a no hd em um arquivo de imagem mesmo, porque a funcao LoadPicture() carrega do arquivo (depois você pode excluir o arquivo do hd). a propriedade .Value já retorna o conteudo completo, você poderia recuperar dela em vez do GetChunk. entretanto, o .GetChunk() é usado, no caso de a imagem ser muito gde, pra evitar de alocar um array de 10 megas na memoria, por exemplo. assim, ele vai lendo parte por parte do campo, e salvando num arquivo temporario sem sobrecarregar a memoria. se você reparar o macoratti fez duas funcoes, uma pra imagens gdes e outra pra pequenas, por causa disso mesmo. então, de uma olhada q o codigo do macoratti faz exatamente isso q você precisa.

antonio, a sala de tutoriais é so pra postar tutoriais, vou mover ao local certo. agora pra tirar as casas decimais, use Int() ou CInt().

o InStr() retorna a posicao onde esta a string procurada. se não encontrar, retorna 0: If InStr(mk1.Text, "_") <> 0 Then

matheus, não testei aqui, mas acho q o codigo seria mais ou menos isso: Dim VARIAVEL For Each VARIAVEL In Form1.Controls If TypeOf(VARIAVEL) Is TextBox Then VARIAVEL.BackColor = cor End If Next[/code]

acho q em vez de Cells, você podia usar Rows.

matheus, se você quer procurar por um "_" no meio do texto, pode usar a funcao InStr().

olhe aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=103751

o .ClipText considera o texto sem a mascara. se ele comparar .ClipText = "" ele já deve checar se esta vazio. assim se você precisar alterar a mascara, não vai precisar alterar o codigo.

ainda não entendi porque não podia usar a propriedade .Text ou, melhor ainda, a .ClipText. e se eu entendi o q você quer, não sabia q funcionava com a propriedade .Mask, deu certo mesmo pra vc??

nilton, fique de olho na data, esse tópico é de 2007. não tem necessidade de responder ainda mais se o cara já disse q o problema foi resolvido.

o resultado tem q ser retornado num recordset. ai você pega o primeiro campo dele (indice 0), ou da um alias pro campo na hora do select e pega pelo nome normalmente. exemplo: Set rs = conn.Execute("SELECT SUM(Valor) As soma From base")

ele conclui a instalacao certinha e mostra essa janela durante a execucao do programa?? muito estranho, qual seria o nome do arquivo q ele mostra?? você ta usando algum componente pouco comum?? tenta ver se você descobre em momento exatamente ele mostra essa janela, pra você saber com q parte do codigo ela ta relacionada. fora a janela, o resto do programa funciona normal?? só nesse pc ou nos outros tb??

não se costuma usar espacos e caracteres especiais em nomes de campos e tabelas justamente por causa desses problemas. mas se quiser mesmo q tenha espaco, escreva [campo 1] (com colchetes). quanto aos tipos de campos, isso depende do banco de dados q você usa. faca uma busca pelo comando create table de access q você deve encontrar informacoes sobre os tipos.

só pra complementar, se você quisesse fazer com o Split(), era só usar o Ubound() pra pegar o ultimo indice. exemplo: Tex1.Text = "C:\Windows\System32\notepad.exe" x = Split(Text1.Text, "\") processo = x(Ubound(x)) 'recebe "notepad.exe"[/code]

então, tb no evento resize, você poe um if, se o width do form passar abaixo de 4545, você setaria de volta pra 4545.

hum, esse codigo q você passou esta funcionando, então??

o Hex() converte de decimal pra hexa. se você quer de hexa pra decimal, use o Val() como no codigo do primeiro link.