kuroi

isso?? Select Case Text1.Text Case "201" Text2.Text = "Transação1" Case "202" Text2.Text = "Transação2" Case "203" Text2.Text = "Transação3" Case "204" Text2.Text = "Transação4" Case "205" Text2.Text = "Transação5" End Select[/code]

hahu, isso quer dizer q a estrutura da tabela foi modificada para uma diferente daquela q o .rpt conhecia. campos que existiam antes devem ter sido excluidos (ou mudaram de nome) e a caixa de map fields serve para você associe os campos que deixaram de existir com o q seria o seu substituto.

aqui tem um forum em ingles so sobre esse assunto: http://www.xtremevbtalk.com/forumdisplay.php?f=13

se for assim ele vai mostrar todos os aniversarios do banco todos os dias.

se você já programa com visual basic, deve ser mais facil pra você. com o excel aberto, entre em menu Ferramentas -> Macro -> Editor do Visual Basic ou aperta Alt + F11. ai você vera um ambiente bem parecido com o do visual basic 6, inclusive você pode inserir formularios e modulos. ai é so ir tentando q você consegue fazer as coisas, o q você precisar pode procurar no google q tem mta coisa. esse site tb tem alguns tutoriais legais: http://www.macoratti.net/indvba.htm e qualquer duvida q você tiver, pergunta ai.

hum?? as funcoes do .net não tem relacao com as do vba. mas você pode fazer sua propria funcao de busca binaria, não é dificil.

não funciona assim?? select cliente_aniversario from clientes where month(cliente_aniversario) = month(getdate()) and day(cliente_aniversario) = day(getdate())

so pra comentar, talvez você esteja achando q o campo é menor do q realmente é. um campo int de 4 bytes aceita valores, acho q de -2.147.483.647 ate 2.147.483.648.

seria isso q você quer?? select C.Nome, C.Endereco, C.Telefone, (Select count(*) From clientes) as Qtde from Clientes C where C.Nome = :Parametro

recomendo o bloco de notas, ou algum programa de bloco de notas melhorado, tipo o editplus. é muito melhor escrever os codigos você mesmo.

comeca postando na sala certa, isso ai é mysql (movi o tópico). mas posta ai qual a query q ta dando erro senao não da pra saber.

tem q ver qual o componente de envio de emails esta instalado no seu servidor.

então é bom estudar um poco ou falar pro seu cliente q não da pra você fazer isso. como você quer dar continuidade num site em asp sem saber asp?? se fosse assim, eu não precisava ter estudado nd a vida intera... de qualquer modo, acho q esse erro pode estar acontecendo por ele não estar encontrando o registro no banco de dados. o q esta sendo passado na querystring?? (a querystring são parametros passados no final do endereco da pagina. por exemplo, olha la em cima no seu navegador o endereco desse tópico. no caso, ?showtopic=146374 é a querystring). tem q estar sendo passada uma querystring referente a um mes q exista no banco de dados. entretanto, depois de abrir o body, adicione a seguinte linha: <% If Not rs.EOF Then %> e antes de fechar o body, adicione a linha: <% End If %> e veja se não para de dar erro.

seria assim: TxtCpf.Text = Replace(TxtCpf.Text, "-", "") TxtCpf.Text = Replace(TxtCpf.Text, ".", "")[/code]

você esta fazendo isso em visual basic 6??

o q você quer é abrir um programa a partir de outro?? se for isso, use a funcao Shell: Shell "C:\Caminho\Programa.exe"

tem certeza, q não diz a linha?? normalmente ele sempre passa o numero da linha em q ocorre o erro. de qualquer forma, olha essa parte do codigo aqui: "SELECT * FROM acessos where mesdb= '"&mes&"'" você tem certeza q ele ta encontrando dados referente ao mes q você ta passando?? porque se ele não encontrar, ele vai dar erro mais pra baxo.

lucas, como é feita essa soma?? é running total fields ou subtotal??

a eu li errado, entendi q era com masked box. bom, aqui nesse tópico o macedo postou um codigo, mas não testei: http://scriptbrasil.com.br/forum/index.php?showtopic=103752 de qualquer forma, acho q esse seu primero codigo funcionaria se você antes desse um replace tirando os pontos e tracos.

marcelo, qual a linha do erro??

acho q você fez o contrario do q você queria. não devia ser isso?? A1 = Cells(1, 1) B1 = Cells(1, 2) C1 = Cells(1, 3)[/code]

o melhor q tem é esse site: http://www.macoratti.net/indvb.htm

explica melhor isso.

faca um campo formula pra cada dia do mes. no campo correspondente ao primeiro dia, você gravaria isso: CurrentDate no proximo dia, você gravaria: DateAdd("d", 1, CurrentDate) e no proximo, você gravaria: DateAdd("d", 2, CurrentDate) e assim por diante. depois é so montar a tabela com todos os campos.

o melhor é por tudo num frame e mover o frame. testa esse codigo e você vai ver o seu frame1 se mover: Private Sub VScroll1_Change() Frame1.Top = 360 + VScroll1.Value End Sub[/code]