kuroi

declare a variavel s como char e não como string.

pode ser no formulario. tipo você tem essa sub (pode ser sem o Handles mesmo): Private Sub btnAlterar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) ai você declara um objeto EventHandler assim: Dim x As New EventHandler(AddressOf btnAlterar_Click) ai na hora de adicionar o botao você faz: AddHandler Botao.btnAlterar, x Me.Controls.Add(Botao.btnAlterar)[/code] assim você pode associar qtos botoes quiser a essa sub. ou qtas subs quiser ao evento click do botao, não importa qtos botoes você crie, ou em q momento você crie esse botao.

não passo o codigo do count e do sum pra você porque não entendi nd das suas tabelas, mas imagino q essa parte você saiba fazer (se não souber da um toque, e explica melhor q campo é o q no select q você quer retornar). mas pra juntar o select das duas tabelas, faca UNION ALL: Select Campo1 As x, Campo2 As y From Tabela1 UNION ALL Select Campo3 As x, Campo4 As y From Tabela2[/code]

você não pode fazer tipo Me.Controls(odrMenu("menu")).Visible = True ??

é... é bem mais simples do q a gente tava fazendo antes... eu imaginava q tinha alguma coisa assim e fiquei desde q li o tópico tentando descobrir mas não consegui, q tristeza... no fim esse codigo q a gente conseguiu fazer acabou sendo mó gambiarra. com o AddHandler você faz em uma linha e pode fazer em qtos botoes quiser, qtos eventos quiser, não importa de onde teja vindo esse botao...

posta o código.

tenta então, declarar o btnAlterar como propriedade na sua classe. tipo assim: Imports System.Windows.Forms Public Class Controles Private b As Button Public ReadOnly Property btnAlterar() Get btnAlterar = b End Get End Property Public Sub CriaControles() b = New Button End Sub End Class[/code] ai no form, como antes você declara o btnAlterar la em cima: [code]Dim WithEvents btnAlterar As New Button no Handle da sub, deixe só btnAlterar: Private Sub btnAlterar_Click((ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAlterar.Click ai na hora de adicionar o botao, ponha o botao da classe na variavel do form, tipo assim: btnAlterar = Botao.btnAlterar Me.Controls.Add(btnAlterar)[/code] veja se funciona ai.

cara é possivel sim com mapi mas não sei te dar mtos detalhes porque nunca fiz isso, sempre usei o mapi so pra mandar emails e tb aqui não tenho outlook pra testar. mas da uma olhada aqui nesse tutorial: http://www.macoratti.net/email_vb.htm no comeco, nos dois primeiros topicos, o macoratti da uma pequena explicacao de como fazer isso. tb tenta fazer uma busca no google sobre mapi q você deve achar alguma coisa. qualquer coisa poste ai.

bem lembrado hipnos, esse é um dos erros mais comuns. aline, tb tem esse site aqui http://www.maujor.com q ensina bem como usar css como assim, hipnos??

onde esta sua duvida?? é na hora de gerar o numero aleatorio?? se for de uma olhada q tem varios exemplos no forum, faca uma busca (ou olhe aqui: http://scriptbrasil.com.br/forum/index.php...hlite=randomize ). ou sua duvida é na hora de "separar os que se repetem dos que não aparecem repetido"?? se for isso explica melhor o q você quer fazer exatamente. tipo como assim separar?? como exatamente você quer mostrar a resposta??

nunca usei o 2008, mas pelo menos no 2005 sei q tinha uma opcao de converter o projeto do Visual Basic 6 pro 2005. no 2008 talvez tenha essa opcao tb. ou seja, você pode aproveitar no 2008 um form feito no VB6. mas os dois projetos não são compativeis. e você não vai conseguir compilar no 2008 no formato do vb6. e uma vez convertido pro formato 2008, você não pode mais alterar pelo vb6. é bom lembrar q a partir da versao 7, o Visual Basic não é mais Visual Basic e sim Visual Basic.NET, q é uma linguagem diferente. com a mesma sintaxe mas com bibliotecas diferentes, baseadas no .NET Framework. veja o Visual Basic.NET (tb na versao 2008) uma outra linguagem sem a minima relacao com o Visual Basic 6 exceto por ter o nome e a sintaxe (apenas) baseados nele.

ele não soma datetime porque não se soma tempo mesmo. você tem q saber o valor dos minutos e depois somar. tipo, multiplique o numero de horas por 60 e some com o numeros de minutos a mais. por exemplo, 2:30 (duas horas e meia) -> 2h 30min -> (2*60) min + 30 min = 150 minutos. ai depois disso é só somar o valor em minutos. depois pra exibir em format de horas, é só dividir por 60 e tirar o valor inteiro q você vai ter o numero de horas. ai você pega o resto pra saber os minutos a mais. exemplo: 150min / 60 = 2 com resto 30, ou seja 2h e 30min. aqui tem um exemplo disso no Visual Basic http://scriptbrasil.com.br/forum/index.php?showtopic=108910 você pode adaptar pro Crystal. se você precisar do valor dos segundos tb, obviamente é so multiplicar as horas por 3600 e os minutos por 60.

lógico q aparece só o ultimo. presta atencao aqui: while not execucao.eof Text1.text = Execucao("codigo") execucao.movenext wend[/code] você vai por todos os codigos no textbox, um por vez. mas cada vez q você puser um codigo ele vai ficar no lugar do outro. quando acabar vai sobrar só o ultimo. você pode fazer assim ó: [code]while not execucao.eof Text1.text = Text1.text & Execucao("codigo") & "," execucao.movenext wend ai nesse caso ele vai por todos os codigos separados por virgula.

é assim mesmo, os navegaodres interpretam o css cada um do seu proprio jeito. pra resolver isso não tem como não, você tem q fazer um css q funcione nos dois navegadores. teoricamente é possivel fazer qualquer tipo de layout, mas você tem q arranjar as propriedades de um jeito de funcione em td q é navegador. não precisa não. o q se costuma fazer é, desdo comeco, ir testando a pagina em navegadores diferentes a medida em q você for desenvolvendo. eu por exemplo, sempre vo fzendo a pagina e vou conferindo sempre no ie6, no firefox e no opera. tanto o css como o javascript. é muito treta mas como você vai indo aos poucos, você vai ajustando certinho todas as propriedades, você consegue ajeitar o layout certinho. no seu caso, a sua pagina já ta toda pronta e ai fica mais dificil. o esquema é você ir testando, mudando as propriedades do css, objeto por objeto e ver se ele vai ficando na posicao correta e etc. mas se a situacao tiver muito ruim mesmo talvez o melhor seja comecar desdo comeco.

funciona se você declarar a variavel la em cima (para a classe toda e não em uma sub especifica). ai você declara com WithEvents, tipo assim: Dim WithEvents btnAlterar As New Button

nesse caso costumo setar a conexao no objeto Application. assim, não importa qtas pessoas acessem a pagina, só vou ter uma conexao ativa.

ue, web.config não é so pra asp.net não?? acho q não vai funcionar no asp não, pelo menos eu nunca tinha ouvido falar de webconfig pra asp, é só pra asp.net. ve isso direito com eles. mas e quanto ao q eu disse no otro post?? você não ta trabalhando localmente (no localhost) antes de upar??

hum entendi... na verdade era pra eu saber tdo isso, nem devia tar perguntando. mas eu olhei aqui e conferi, no c#, os metodos q a gente faz override tem q ser declarados como virtual ou abstract. apesar de eu saber q da pra fazer override e saber q da pra criar classes abstratas, não conhecia o termo "método virtual", tenho q praticar mais, to cum saudade do c#, agora voltei a trampar com vb6, não aguento mais, essa linguagem é um saco ahhaha.

hum... faz sentido... mas o q seria um "método virtual"??

no seu codigo, so não entendi direito o esquema de dois telefones na tabela de endereco. afinal, a tabela é de enderco ou de telefone?? você tem varios campos com o endereco, certo?? no primeiro registro você poe os campos com todos os dados dela e mais o telefone. e no segundo?? você poe os mesmos dados tudo de novo com outro telefone?? se for isso, fica meio estranho, suas tabelas tão mal normalizadas. ou você punha dois campos de telefone na tabela, ou, no caso de a empresa puder ter qtos telefones quiser, você teria q criar uma tabela só de telefones e nela gravar tb o codigo da empresa ou do endereco. e o q exatamente você quer fazer na sua query?? você quer selecionar tipo os campos (por exemplo) nome_da_empresa, ..., telefone1, telefone2?? seria isso?? se for isso, recomendo q você reorganize suas tabelas, ou q faca pelo ASP mesmo (dois selects separados). se isso não for possivel, então você poderia fazer duas subqueries, uma pro primeiro telefone e outra pro segundo (usando o Order By e o Top 1 pra pegar o telefone especifico), e fazer joins com as subqueries na query principal. mas e ai se uma empresa tiver 3 telefones?? você quer q apareca os tres campos?? e se tiver 10 telefones?? nesses casos não teria como fazer por query, entendeu?? você teria q fazer pelo ASP mesmo, nesse caso era melhor normalizar direito as tabelas. mas se você optar por fazer a query com as subquerys como eu sugeri (o q vai funcionar pra ate dois telefones), se tiver duvida de como fazer, posta ai, mas explica melhor como funciona esse seu banco e sua query.

beleza, qualquer duvida posta ae

já respondi acima.

olha q você declarou duas classes e ta usando as duas cada uma de uma vez. o codigo do Form1 deveria ser esse: Option Explicit Private cTeste As New Class1 Private WithEvents EventoTeste As Class1 Private Sub Command1_Click() EventoTeste.fTeste "Anderson" End Sub Private Sub EventoTeste_eTeste(sValor As String) Me.Text1 = sValor End Sub Private Sub Form_Load() Set EventoTeste = New Class1 End Sub[/code] mas eu realmente não entendo. porque por evento nas classes se pode-se fazer tudo isso de forma bem mais simples só usando subs??

então entre em contato com o seu servidor e fale pra eles q ta dando "erro interno do servidor" no seu site. hum... to vendo agora... essa pagina q aparece pra você é a pagina de erro do seu explorer seja la q versao for ele (como não uso não conheco). porque olhei aqui e no firefox ele simplesmente diz HTTP/1.1 500 Server Error mas no ie6 ele mostra a pagina de erro do ie6. mas você não ta trabalhando tb no localhost?? tipo antes de upar no servidor você não testa localmente?? quando você abre localmente, qual o erro q da, é o mesmo?? porque acredito q isso seja erro no servidor e não na programacao. então, caso você trabalhe tb no localhost, tenta ver o q acontece localmente ai. caso não chegue a nenhuma conclusao, então entra em contato com os caras e fala pra eles q ta dando "erro interno do servidor". se eles responderem q é erro de programacao então fala q você quer q eles liberem pra aparecer a mensagem de erro do webserver retornada pelo proprio asp pra poder saber qual é o erro. mas acho q nesse caso é mesmo erro do servidor, porque como eu disse nesse post: http://scriptbrasil.com.br/forum/index.php...st&p=460766 e nesse: http://scriptbrasil.com.br/forum/index.php...st&p=461382 pra mim aparecia sim antes a mensagem de erro do Asp, só não sei porque pra você não aparecia, talvez seja a configuracao do seu navegador. e, caso o erro de agora seja mesmo de programacao e não do servidor, não tem sentido parar de aparecer a mensagem do Asp pra mim.

o q acontece se você clicar em mais informacoes?? o problema é q ele não ta te mostrando a mensagem do erro, isso deve ser alguma configuracao do servidor. sem a mensagem fica dificil saber o q é. antes a mensagem aparecia pra mim, mas agora ta aparecendo só HTTP/1.1 500 Server Error ve se, se você clicar em mais informacoes ele mostra alguma coisa a mais, ou se você encontra alguma configuracao do iis q resolva isso. alias, você esta fazendo isso localmente?? esse endereco q você passa, você tem acesso a ele localmente ou é um servidor pago?? se for um servidor pago, entre em contato com eles e fala q você quer q mostre a descricao do erro.