kuroi

faca o seguinte, nessas duas subs GravarDados() e ExcluirRegistro(), vai la e comente ou apague as linhas: On Error GoTo errGravacao e On Error GoTo errExclusao e de preferencia nem use isso q so atrapalha na hora de estudar. o On Error GoTo serve pra evitar mensagens de erro q fechariam o programa pra facilitar quando o usuario tiver usando, mas vai te impedir de saber qual o problema. depois de apagar as linhas, tenta de novo. e ai quando der erro, poste aqui pra nos quais as tres mensagens de erro q aparecem (pra cada um dos tres erros q você falou) porque sem as mensagens não tem como a gente saber.

ta, mas o q aparece quando você digita ? SQL??

essa mensagem aparece quando você abre o .vbp ou o .exe?? você ta registrando a ocx?? se você registra as duas versoes, quando você entra em Project -> Components, aparece uma linha so com a nova versao ou aparecem duas linhas?? o esquema acho q é você abrir cada projeto, mudar a referencia para a nova, e salvar. e se der esse problema nos exes, tb depois de mudar a referencia, compile de novo.

michelle, se eu entendi direito, o q você quer pra listbox seria tipo isso: ListBox1.AddItem TextBox1.Text ListBox1.AddItem TextBox2.Text[/code] pra listview deve ser tipo isso: [code]Dim Item As ListItem Set item = ListView1.ListItems.Add(, , TextBox1.Text) Set item = ListView1.ListItems.Add(, , TextBox2.Text) alias, to olhando o seu codigo agora... q versao do visual basic é essa q você usa?? por acaso não é visual basic .net não ne??

tenta isso: SELECT * FROM CLIENTE WHERE Upper(NOME_CLI) LIKE ('%GERALDA%')

ai é problema com a sql. você deve tar mandando gravar texto em campo numero, por exemplo. se não conseguir descobri, faca o seguinte. vai ate a linha cnativcont.Execute SQL e aperta F9. a linha deve ficar vermelha. então vai la e aperta F5 pra roda o programa. e tenta gravar o registro. quando chegar nessa linha, ele deve pausar a execucao do programa. então, vai na Immediate Window (Ctrl + G) e digita: ? SQL e ai vai aparecer o conteudo da SQL q ele ta tentando executar. e ai veja se você não identifica o erro. senao, abre o access e tenta executar essa sql como consulta, q la ele deve apontar o campo. senao poste a SQL aqui.

mas não foi, faltou executar o sql. poe a linha: cnativcont.Execute SQL e apaga essa: Set rsativcont.ActiveConnection = cnativcont

você vai ter q hospedar em algum servidor e passar o link ai. pode ser aqui ó: http://www.imageshack.com

declara la em cima o contcron como Double em vez de Integer.

se não sobrar espaco pra por tudo no form, você pode por uma scrollbar, ou pode separar em tabs. tipo entre em menu Project -> Components e seleciona Microsoft Tabbed Dialog Control 6.0 (SP6) e clica OK. seleciona la do lado, o controle SSTab q vai aparecer e ai você pode por os dados la dentro e dividir em varias abas.

Text1.Text = MontaHora(contcron)

tópico fechado, pois isso já ta sendo discutido aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=133455

a se você quer por numa resolucao maior (exemplo 800x600) e o form ficar maior q a tela ai é dificil, você pode por uma barra de rolagem, ou então da um jeito de diminuir o tamanho mesmo. o q eu cosutmo fazer é sempre dexar o form de um tamanho q va se encaxar em qualquer resolucao.

é so dividir o valor dela por 1000. ou alias, se você puser 1000 no interval do timer (em vez de 1) ela já vem em segundos.

tira esse while dai. se você puser ele, ele vai ficar parado ai pra sempre somando na variavel. o q você tem q fazer é o seguinte. levando em conta q o seu Timer se chame Timer1, de um duplo clique nele, pra chamar o evento. e faca o codigo assim: Private Sub Timer1_Timer() contcron = contcron + 1 End Sub[/code] ai quando ele clicar em novo, você habilita o timer tipo assim: [code]contcron = 0 Timer1.Enabled = True e depois q ele gravar você desabilita: Timer1.Enabled = False e pronto, o tempo q ele demorou vai estar na variavel contcron. como assim correto?? você ta perguntando se você deve ou não contar o tempo?? não é correto nem incorreto, tem q ver qual sua intencao em por ele ai, vai ajudar em algo??

pra tranformar em segundo é so dividir por mil ne. e pra mostrar os segundos em formatos de hora é so usar essa funcao aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=108910 mas se você puser o codigo de gravar logo embaxo, ele não vai esperar o cara digitar e já vai tentar gravar ne. você tem q por o codigo de gravar (o insert) num segundo botao. e quanto a essa parte do codigo aqui: If Not Limpa_Atividades Then MsgBox "Campo obrigatório vazio, favor verificar.", vbInformation, "Atenção" Exit Sub End If[/code] ela não tem sentido, porque a sua funcao Limpa_Atividades não retorna valor nenhum, olha la o codigo dela. ela simplesmente limpa os campos. o q acontece é q você ta chamando ela duas vezes ainda (ou seja, ta limpando duas vezes sem ter necessidade), uma vez la em cima e outra nesse if. acho q o q você quer é saber se ele dexou algum campo em branco não?? então você tem q fazer uma outra funcao q teste isso e ai chamar ela nessa hora.

você quer dizer q quer guardar o tempo q o usuario levou pra digitar todos os campos?? se for isso, é so você habilitar o timer (ponha o interval como 1) e ir somando o valor numa variavel declarada la em cima no generals. quando acabar de digitar, você vai ter o valor em milisegundos q ele levou. não entendi esse seu codigo ai, ele ta meio estranho. tipo, o cara clica no novo. e ai os campos são limpados. e ai logo abaixo já ta gravando?? não tem q esperar ele digitar não?? você não teria q limpar no novo, e depois esperar ele clicar em gravar pra depois ai sim fazer o insert?? outra coisa, insert não retorna dados, então você não tem q dar Open no recordset. é so executar na conexao direto. tipo assim: cnativcont.Execute SQL e posta tb qual o conteudo da sub Limpa_Atividades().

não sei q frame é esse q você achou, mas não é esse q você tem q usar. no .net não tem frame, você tem q clicar ali embaxo em Containers, e ai acho q o GroupBox ou o Panel servem pra você. e quando for postar sobre esse visual basic q você ta usando, poste na sala .net, porque como você pode ler no painel la em cima, a sala de visual basic é so ate a versao 6, e não entra .net.

hum, note q se você abre o access e altera o campo, ele não considera q foi alterado enqto você não mover o cursor pra linha de baxo (ou fechar a tabela). ai então, tente executar a sua consulta direto no access. tipo, abra a opcao nova consulta, e ponha no modo sql e cole o codigo: Select CODEMP, NOMEMPRESA, NOMCONT, ANIVERSARIO, CARGOCONT, EMAILCONT, TELCONT FROM CONTATOS_CONTATO Where ANIVERSARIO = Date()[/code] clica na exclamacao e veja o q vai retornar.

q data?? a do windows?? então ai, se você olha no grid o campo ANIVERSARIO, q data ele mostra?? dia 26 ou 27??

tem certeza q alguém no banco faz aniversario hj?? tenta fazer assim: With cnaniver .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & App.Path & "\CONTATOS.mdb;" .CursorLocation = adUseClient .Open End With Set rsaniver = New ADODB.Recordset SQL = "Select CODEMP, NOMEMPRESA, NOMCONT, ANIVERSARIO, CARGOCONT, EMAILCONT, TELCONT " & _ "FROM CONTATOS_CONTATO Where ANIVERSARIO = Date() " Set rsaniver = cnaniver.Execute(SQL) Set Me.DataGrid4.DataSource = rsaniver If rsaniver.RecordCount <= 0 Then DataGrid4.Visible = False lblfeliz.Caption = "SEM ANIVERSARIANTES!" Else DataGrid4.Visible = True lblfeliz.Caption = "FELIZ ANIVERSÁRIO!" End If[/code]

o q seria o "modo janela"??

não entendi essa parte do bloco de notas. o visual basic tem um programa q compila o codigo e é nele q você deve escrever o codigo. com o bloco de notas so ia ficar mais complicado. quanto a somar os dois numeros, você adiciona dois textboxs no formulario e um botao. e ai você da duplo clique no botao pra chamar o evento clique, e dentro dele você escreve: Private Sub Command1_Click() MsgBox Val(Text1.Text) + Val(Text2.Text) End Sub[/code] o val serve pra converter o texto pra numero (caso contrario 3 + 5, em vez de dar 8, resultaria em 35). o msgbox chama a caixa de mensagem.

você quer dizer q quer pegar dum servidor na web?? acho q esse tutorial aqui deve ajudar: http://www.macoratti.net/atual_vb.htm e talvez esse tb: http://www.macoratti.net/inet.htm

delphi 2007?? e o q tem o visual basic com isso??