kuroi

cara mas você tem mesmo certeza q no banco tem um usuario com esse login e essa senha?? pode ser uma pergunta besta, mas as vezes acontece de a gente se distrair nessa hora. não é melhor você conferir direto no banco se a senha e o usuario tão la?? as vezes você mudou a senha sem querer e não lembra.

alem do mais o VB4 é antigo demais. mesmo o 5 praticamente já nem é mais usado. assim como o proprio 6 já ta ficando utrapassado, já q tem a versao .NET q é mais compativel com as tecnologias mais novas.

em vez de Min() tenta por um Count() e no final ponha Order By MenosVisto o primeiro da lista deve ser o menos visto.

primera coisa, olha q você tem um form Circuito e um type Circuito, os dois co mesmo nome. é bom, mudar isso q pode dar conflito. ai no type Circuito, ponha uma propriedade a mais pra guardar se já correram no circuito nesse temporada. pode por do tipo Boolean. ai sempre q você comecar a temporada, deixe todos em os indices, essa propriedade como False. e sempre q acabar um circutio ponha como True. na hora de mostrar os vencedores, faca um For e mostre todos os indices q estiverem True.

deve ser isso então: iif({P_REPRE_CLI.CTRECEBER_VENC} <> DateAdd('d',7,CurrentDate) And {P_REPRE_CLI.CTRECEBER_VENC} <> DateAdd('d',30,CurrentDate) And {P_REPRE_CLI.CTRECEBER_VENC} <> DateAdd('d',60,CurrentDate),{P_REPRE_CLI.CTRECEBER_VALOR},0)

hum isso não fica guardado em nenhum lugar, tipo o historico das corridas?? então faca um array publico no module e no fim de cada corrida guarde os dados la. alias, pode fazer mais de um array, tipo no caso seriam 2, um pro vencedor e outro pro vice. ou pode fazer uma matriz de duas dimensoes. ou você podia guardar a string toda num array só e depois separar. ou ainda, caso você pretenda guardar mais coisas, pode fazer um Type historico com cada campo q você queira guardar e fazer um array desse Type.

isso significa mais de 60 dias ou qualquer periodo q não de exatamente 7, 30 ou 60?? por exemplo, se tem um titulo vencido a 20 dias e outro a 45, eles entram em "demais"??

seria isso? For i = 0 To Dir1.ListCount - 1 Combo1.AddItem Dir1.List(i) Next[/code]

deve funcionar com = sim. veja se da certo pra você. o q seria os "demais"??

use App.Path

o q acontece é q assim q a corrida acaba, você preenche os labels do ultimo circuito. assim q o form é fechado (quando você chama o Unload Me no clique do botao q vai pra corrida), tudo isso é perdido. quando você der load de novo no formulario, ele vai carregar um novo formulario com as configuracoes iniciais. ou seja, o label do circuito invisivel e os nomes dos pilotos em branco. ai você vai mostrar o ultimo circuito, ou seja vai ficar só o ultimo. pra resolver, cada vez q você abrir o formulario você tem q preenche o ultimo circuito e tb todos os anteriores.

cara nesse caso não sei se é possivel não. mas sei q se você salvar direto a imagem (e não o caminho) no banco, como o macoratti ensina no final desse tutorial: http://www.macoratti.net/img_bd.htm é só adicionar o campo imagem no relatorio q funciona certinho. veja ai se serve pra você e se descobrir alguma coisa, poste ai.

se não me engano o MSDN tem q estar no segundo CD, já q o Visual Basic (original) são 3 CDs.

é por causa da imagem q você pos no picturebox do form do circuito q tem 600KB. se você olhar vai ver q é o Circuito.frx q sozinho dá 600K e ai como as imagens são poco compactadas pelos programas q compactam arquivos, continua com 600K. mano a imagem é branca, filtra ela ai no fireworks, ou diminui o tamanho do canvas pro tamanho da picturebox, da pra dexa com uns 10K. quanto aos otros problemas vo ve se da pra ver esse fim de samana.

em vez de CurrentDate, ponha DateAdd('d', 7, CurrentDate) e troque o 7 pelo numero de dias q quiser.

manda la o projeto. só não sei quando vo conseguir olhar.

Essa sala Visual Basic é só pra Visual Basic até a versão 6. o 2005 não é Visual Basic, é Visual Basic .NET, q é uma linguagem completamente diferente. pra assuntos relacionados ao 2005, poste na sala de .NET.

a figura ta gravada no banco de dados?? qual tipo de dados do campo, se for Blob, Image, Objeto OLE, etc, é só adicionar o campo normalmente. se você quer adicionar uma imagem não do banco de dados e sim do arquivo é só clicar em menu Insert -> Picture.

como assim chamar a procedure?? o q ela faz?? select, insert, uptade?? o q exatamente você quer fazer??

mas qual a mensagem do erro q da?? acho q o melhor é mover pra php q la acho q podem te ajudar melhor.

isso não é possivel não. mas o q exatamente você quer fazer?? porque você faria dois selects diferentes?? não seria melhor fazer dois relatorios diferentes?? o q você pode fazer é fazer uma consulta (view) no seu banco de dados q faca um UNION das duas tabelas, q seria tipo: select * from tb_clientes UNION ALL select * from tb_funcionarios mas pra q isso de certo as duas tabelas tem q ter a mesma estrutura. o q você pode fazer é montar os dois selects com os mesmos campos. e ai você poria um campo a mais pra identificiar de qual tabela veio o registro. tipo isso: select Campo1, Campo2, 'clientes' As Tabela from tb_clientes UNION ALL select Campo1, Campo2, 'funcionarios' As Tabela from tb_funcionarios[/code] ai na hora de passar o parametro no Crystal, você pode filtrar por esse campo.

acho q no crystal XI é no menu Database -> Database Expert. na tab Data, na coluna Selected Tables, selecione a tabela (ou view ou procedure), aperte F2 e ponha o alias q quiser.

como você sabe q é erro 3706?? você pos pra mostrar esse numero, mas não necessariamente é esse o numero q da no Visual Basic. outra coisa, com esse codigo, ele vai dar essa mensagem sempre, mesmo q não ocorra o erro, ponha um Exit Sub antes do label do erro pra ver se continua. se continuar então apague ou comente a linha On Error GoTo errConexao e ai veja qual a nova mensagem q aparece e poste pra gente ver.

o nome q aparece no crystal é o mesmo da outra procedure é isso?? mas os dados estao aparecendo certo?? se tiver então ta certo. mas se quiser mudar o nome, tenta em menu Database -> Set Alias, mas dependendo da sua versao do crystal pode ser de outro jeito.