Graymalkin

Você quer que a consulte retorne registros onde o valor procurado possa estar em *qualquer um* desses campos (Atividade, Atividade2 e Atividade3)? Se sim, então sua consulta seria isso: strconsulta = "Select * from Clientes Where Atividade = '" & DataList1.BoundText & "' OR Atividade2 = '" & DataList1.BoundText & "' OR Atividade3 = '" & DataList1.BoundText & "'" Certo? Graymalkin

Se você olhar diretamente na tabela do banco, a informação (com ENTER) desse campo está realmente lá? E, quando você tem um DataSet com os dados, o tal campo fica realmente vazio? Se não tiver ENTER no valor, o mesmo é retornado normalmente? Abraços, Graymalkin

Que opinião estranha, vinda de alguém que programa. Graymalkin

Segundo a mensagem de erro o problema está na conexão com o servidor SMTP. Você já experimentou utilizar algum outro? Abraços, Graymalkin

Você já conferiu se DataList1.BoundText está realmente retornando o esperado? Abraços, Graymalkin

Como você está fazendo? Abraços, Graymalkin

Pode ser mais simples ainda: MsgBox WeekdayName(Weekday(Date)) Abraços, Graymalkin

A função no VB se chama Len(). Abraços, Graymalkin

Se você utiliza ADO e o incluiu no pacote, é possível que esses erros realmente apareçam. Também pode ser que seu programa não seja executado normalmente. Se aparecer uma tela de erro relatando a falta de um componente ActiveX é bem possível que você precise instalar o ADO e o JET manualmente (você os encontra no site da Microsoft). Abraços, Graymalkin

Ci ??? Não deu certo não !!!!!! Tem um "i" a mais ali. A função é CInt(), mas também pode ser Int(). Abraços, Graymalkin

Sendo "dia" = "day" e "semana" = "week", o mais sensato seria procurar por uma função com um desses nomes, não concorda? O Object Browser (pressione F2) é ótimo para isso. Nele você encontraria as funções Weekday() e WeekdayName() que fazem o que você quer. Abraços, Graymalkin

Não, você está fazendo certo. Pacotes de instalação de programas VB tem, em geral, esse tamanho mesmo. A vantagem é que após instalar esse pacote, qualquer outro programa que você crie (ou até mesmo uma atualização do mesmo), que utilize estas mesmas bibliotecas, não necessitará de ser instalada novamente (afinal de contas, os arquivos DLL e OCX necessários já estarão presentes na máquina). Agora, um arquivo de 11mb é "inviável"? Concordo que por disquetes de 1.44MB seria realmente um teste de paciência, mas... não existe uma rede aí (por mais simples que seja)? Um simples CD-R? Portas USB nas máquinas e uma pen-memory (memory-bar)? E olha que esses são os itens mais simples de serem utilizados e de existirem normalmente. Abraços, Graymalkin

Assim... for each janela in forms unload janela next janela ...? Abraços, Graymalkin

Bom, uma idéia seria você inventar um tipo de encriptação para codificar e decodificar o texto do arquivo, de maneira que somente o seu programa seria capaz de utilizá-lo. Abraços, Graymalkin

Não seria apenas... rs.Open "SELECT Nome FROM Socios INNER JOIN Funcionarios ON Socios.ID = Funcionarios.ID WHERE (Socios.ID = " & aux & ") AND (Socios.Cidade LIKE 'BR%') GROUP BY Socios.Nome", conexao, adOpenDynamic, adLockOptimistic ...? Abraços, Graymalkin

Seu código seria o seguinte então: Private Sub incl_Click() If matr.Text = "" Then MsgBox "Digite uma matricula" else SQL = " insert into cliente(Matriccli,Nomecli,endercli,ufcli,cpfcli,sexocli) values ('" & Matric.Text & "','" & Nome.Text & "', '" & ender.Text & "','" & uf.Text & "','" & cpf.Text & "','" & sex.Text & "')" cn.Execute SQL MsgBox "OK" endif End Sub Se o usuário não digitar uma matrícula e clicar no botão a mensagem aparecerá e nada será executado. Daí, ele preenche a matrícula e clica novamente no botão, e então o registro será inserido. Você tem que se ligar que o VB é orientado a eventos. Abraços, Graymalkin

Não entendi muito bem não... na tela de cadastro você não tem um botão "Incluir" ou algo assim? E nesse botão não bastaria você verificar se todos os campos estão preenchidos ou não, para então decidir se insere o registro ou não? Se algum dos campos estiver vazio, não bastaria não fazer nada (ou seja, não incluir o registro)? Abraços, Graymalkin

Você não disse qual é a sua dificuldade... A gente só pode ajudar se souber o que você não conseguiu fazer (e como você tentou). Abraços, Graymalkin

Você criou a instalação com o Package & Deployment Wizard? Se sim, dê uma olhada no arquivo "setup.lst" para saber quais os arquivos utilizados para a instalação. Abraços, Graymalkin

não cara, minha intensão é totalmente diferente disso. preciso criar um programinha para que execute alterações nas base de dados dos clientes, mas para isso tenho que ter certeza que esse programinha vai ser executado somente uma vez.... por exemplo: para adicionar um campo em uma tabela.... na segunda vez que o cliente executasse já daria erro... ou pior, se for algum tipo de update que eu estiver mandando para ele fosse executado novamente em hora errada, isso poderia causar uma grande tragedia... Uma vez eu fiz um esquema assim: ao abrir o programa, se existisse um arquivo chamado "SQL.txt" na pasta do mesmo, o programa iria executar a instrução que estivesse dentro do mesmo e em seguida renomeá-lo para "SQL.old". Ou seja, o próprio programa faria isso (não seria necessário criar outro executável só para isso). É claro que isso é perigoso se houver a existência de algum usuário mal-intencionado (mas não era o meu caso). Abraços, Graymalkin

Dê uma olhada neste tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=62365 Abraços, Graymalkin

Se você souber que o tamanho do número por extenso vai ocupar mais do que uma linha já serviria? Se sim, você pode utilizar a função GetTextExtentPoint32() da API Win32. É você que está definindo a posição de cada um dos recibos? Abraços, Graymalkin

Sim, entendi. Por isso que eu falei que "porém em conio.h acredito que existam funções suficientes para fazer tal coisa". Ou seja, eu não disse que isso está pronto lá, mas sim que *você* pode *criar* algo desse tipo utilizando-se das funções existentes lá. Abraços, Graymalkin

Na verdade, a idéia de utilizar o objeto Excel.Application seria abrir a planilha e percorrer as células, formando os registros e inserindo-os na tabela. Ou seja, não seria apenas fazer uma consulta-inclusão que buscaria os dados automaticamente (se bem que eu ache que isso possa ser feito de outra maneira, desde que os dados na planilha estejam em um formato aceitável). Abraços, Graymalkin

Claro que serve! Foi mais rápido que eu... hehehehe. Abraços, Graymalkin