Decio

Eu também não vi nenhum erro, só um comentario: Acho que tem que ser assim: if err.number = 0 Then

É cara , apesar do preço abusivo de um software original , eu acho que ninguém aqui é a favor da pirataria.

LostFocus e GotFocus são eventos que acontecem como por exemplo alguém clica em um botão (gotFocus) ou quando o objeto perde o foco clicando em outro botão por exemplo.Normalmente isto é pouco usado. On error GoTo Erro é uma forma de se fazer tramente de erros. Colocando a linha acima em seu programa se ocorrer algum erro , ao invés do seu programa parar por Run-Time Error , ele vai para uma rotina de tratamento de erro. Ex: On Error GoTo Erro Dim Numero As Integer Numero = 10 / 0 Exit Sub'Aqui é para não ir para rotina de erro Erro: MsgBox "Ocorreu o erro : " & Err.Description Resume Next 'Continua a execução do seu programa

Não entendi bem, mas vamos la. Para visualizar páginas pelo VB você pode faze referencia ao componente Microsoft Internet Control. Para acessar páginas que estão no seu micro basta você digitar o caminho da página ex: c:\pagina\minhapagina.htm

Estou mostrando um código de impressão para você avaliar.Basta converter para o C da Borland.Eu já tinha modificado para o Borland 3.1 , mas não achei o fonte. Quanto a segunda duvida ainda não entendi. Voce quer converter algum numero ou caracter para binario ??é isto?? //**************************************************************** #include <stdio.h> #include <conio.h> #include <time.h> #include <stdlib.h> #define PortAdd 0x0378 #define Data (PortAdd + 0) #define Status (PortAdd + 1) #define Control (PortAdd + 2) bool imprime (char *buffer, int tambuffer); void main(void) { bool ok; char ch; char buffer[] = "1234567890AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSs\n" "1234567890AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSs\n" "1234567890AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSs\n" "1234567890AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSs\n" "1234567890AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSs\n" "1234567890AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSs\n" "1234567890AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSs\n" "1234567890AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSs\n" "1234567890AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSs\n"; while(! _kbhit()) { ok = imprime( buffer, (int)sizeof(buffer) ); if (! ok) { _cputs("Problema na impressora! C Cancela e qualquer tecla continua"); ch = _getch(); if (ch == 'c' || ch == 'C') return; } } } bool imprime (char *buffer, int tambuffer) { int cont = 0; clock_t finish; unsigned char ready, controlreg,ret; bool timeout; controlreg = _inp(Control); while (cont < tambuffer) { timeout = true; ready = _inp(Status); if ( (ready & 0xF8) != 0xD8) return false; _outp( Data, (int)buffer[cont]); _outp(Control, (controlreg & 0xfe)); // strobe low _outp(Control, (controlreg & 0xfe)); _outp(Control, (controlreg | 0x01)); // strobe high finish = clock() + ((clock_t)100); while (finish > clock() ) { ret = _inp(Status); if ( (ret & 0xF8) == 0xD8) { timeout = false; break; } } if (timeout ) return false; cont++; } return true; }

Da uma olhada neste link e veja se ajuda: http://www.macoratti.net/ado_seek.htm

Para enviar dados pela paralela , da uma olhada neste tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=19819 Não entendi o que você quer fazer.Poderia explicar melhor??

Tenta assim: Faça referência a Microsoft Scripting RunTime Digite o código abaixo: Dim MyFS As Scripting.FileSystemObject Set MyFS = New Scripting.FileSystemObject MyFS.CopyFolder "c:\DiretorioFonte", "e:\DiretorioDestino", True O true no final indica que se o diretório existir , ele pode ser substituido. Caso este exemplo funcione , pesquise mais sobre o FileSystemObject que tem recursos interessantes para se trabalhar com arquivos.

você pode usar o date para armazenar apenas a data , mas se o campo do seu banco de dados tiver definido como 'datetime' , você pode ter problemas . Em todo caso para mostrar apenas a data de um campo tipo 'datetime' você pode usar este exemplo: Dim VarTemp As Date VarTemp = Now VarTemp = Format(VarTemp, "DD/MM/YYYY")

Me corrijam se eu tiver errado.... Não tem jeito de colocar figura num combo box.

Para colocar o risco basta colocar o - no caption usando o menu editor e no name você coloca qualquer coisa. Quanto a não funcionar o "&" sabe que eu não tinha reparado que não funciona? Vou dar uma olhada, qualquer coisa eu aviso.

Para salvar data eu usaria : recordset.addnew recordset!NomeCampo = now 'se o campo do SQL for do tipo Long Date ou recordset!NomeCampo = date 'se o campo do SQL for do tipo Date recordset.update recordset.updatebatch o Para visualizar , bastaria após a consulta: text1.text= recordset("NomeCampo") É isto??

Que eu saiba só o C# da MS. Mas linguagens como o java são bem parecidas com o C

Retire o On Error Resume Next e veja o erro que retorna .

Bom , eu acho que funcionaria da seguinte forma: antes do acesso ao banco de dados crie esta linha: On Error Resume Next Se você utiliza loop de leitura no banco de dados, coloque a linha a seguir dentro do loop e em outros locais onde possa achar algum erro de conexão: If err.number <> 0 then response.redirect("PaginaMostraErro.asp") end if

Olha eu acho que seria assim + ou - assim : Voce teria que abrir a planiha como se fosse um banco de dados: Dim oCmd As ADODB.Command Dim oRS As ADODB.Recordset 'abre uma conexao com a planilha excel Set oConn = New ADODB.Connection oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "\senf.xls;" & _ "Extended Properties=""Excel 8.0;HDR=Yes;"";" ' cria o objecto command e define a conexao ativa Set oCmd = New ADODB.Command oCmd.ActiveConnection = oConn ' abre a planilha oCmd.CommandText = "SELECT * from [itens$]" ' cria o recordset com os dados Set oRS = New ADODB.Recordset oRS.Open oCmd, , adOpenKeyset, adLockOptimistic 'exibe os dados Text1.Text = oRS(1) 'MsgBox xlw.Application.Cells(2, 3).Value oRS.Close Set oRS = Nothing Com este exemplo você poderia tentar fazer uma variavel e um loop para pesquisar o documento. Não é a solução que você quer mas pode servir como exemplo para você chegar la. Abraço. PS: Eu testei este código e ele funciona,mas não foi eu quem fez.

Eu já instalei aplicações de VB nas condições que você mencionou e não ocorreu problemas. É dificil você tentar reinstalar o IE 6 ou alguma atualização pra ver se funciona?.

Para responder esta pergunta não precisa ser nem fera nem manjar muito. registre-se na comunidade.

Na verdade eu estou partindo do primeiro exemplo: O que da a entender que: 'NossoNum = CINT(RND*99999999999999999) você quer gerar um numero de 0 a 99999999999999999 no caso do select Case para funcionar teria que ser feito assim: case 0,1,2,3,4,5,6,7,8,9,10 até 99999999999999999 , o que seria inviavel. O que eu entendi e que estou sugerindo é: O seu numerio inicial é 99999999999999999 e você vai somar com um numero sorteado de 0 a 10 ou de 0 até onde você especificar: Numero=(rnd * x ) + Right(Time, 1)) Ou seja o exemplo é uma forma de não repetir o numero com a função RND. Se você precisa que o numero seja incrementado sem nunca repetir , é preciso fazer de outra forma , tipo gravando em banco de dados e a cada leitura somar + 1.

Desculpe Deborah. Não consegui achar o erro . Se você não resolveu ainda , eu sugiro você colocar o código que está no Form_Activate em um botão só para ver o que acontece. Primeiro você clica nele, aguarda ao resultado , e depois você clica no outro botão que faz a cópia.

Olha , no ASP eu nunca gerei numeros aleatórios n só em Visual Basic. Acho que em ASP ocorre o mesmo problema: a função RND que "gera numeros aleatórios" , sempre repete a mesma sequência. A ideia seria você fazer algo assim : NA= (Rnd * 10) + Right(Time, 1) Ou seja você usa a função RND * o intervalo que você quer que o numero seja gerado , pega os segundos da hora atual e soma com o numero sorteado.Desta forma , dificilmente vai repetir a mesma sequência. Obs:A sua variavel maiornum = 98799999999999999 não pode ser declada como um numero inteiro pelo alto valor do numero.

Eu já usei ASP com mySql , e tudo que foi escrito aqui vai te ajudar. O problema é que se você tentar criar bancos de dados diretamente pelo MySql é meio chato.Você pode usar o MySqlFront que é uma interface bem amigavel para trabalhar com criação de banco de dados.

Use a função Right : <% NOME="EDSON" NomeParcial=Right(NOME,3) Response.Write NomeParcial %> NomeParcial deve ficar assim: "SOM" O mesmo pode ser feito na esquerda usando a função Left ou no meio usando Mid

Excel não é o meu forte. Tenho um código exemplo para ler e salvar em Excel pelo Vb.se precisar...

Se for em MFC acho que eu já vi um exemplo em algum lugar.