Matheus-vb6

Bom... as 2 primeiras eu entendi, essa terceira vo me complica um pouco... mas tudo bem :D vamos la... no 1- você pode utilizar o complemento py.sendmail Da uma olhada nesse tópico meu referente a sua duvida... a estrutura é a mesmo http://scriptbrasil.com.br/forum/index.php?showtopic=149542 2-Quanto ao banco de dados, eu tambem postei no forum... da uma olhada nesse tópico... http://scriptbrasil.com.br/forum/index.php?showtopic=153099 3- Nesse 3 eu n saberia te dizer porque n sei fazer contas com datas.... Qualquer duvida em relação aos itens 1 e 2 me add no MSN ou fala poraqui mesmo q eu te ajudo!! Abraços!

então... esse codigo que passei ele irá inserir o valor e já alterara o label... tudo isso quando você adicionar o valor... List1.AddItem Text1.Text 'Adicionara na lista o valor digitado na text1 For x = 0 To List1.ListCount - 1 ' For é um contador, ele ira contar os itens de baixo (porisso -1) da lista resultado = resultado + Val(List1.List(x)) ' utilizei a variavel resultado para somar com valor (val) de list.list(x).. x no caso é o contador Next ' fecha a instrução for, next (proximo), ira repetir isso nos itens! Label1.Caption = resultado ' escreve na label o resultado Insira esse codigo no botão que ele fará a inserção e soma! Abraços.. Duvidas só postar :D

Você usara um botão? se for segue o código: List1.AddItem Text1.Text For x = 0 To List1.ListCount - 1 resultado = resultado + Val(List1.List(x)) Next Label1.Caption = resultado edit-- list não tem opção change, tem?

Funcionou sim :D attachfile e insertimage.. irei me lembrar :D Mas tipo... ele está fazendo um upload, então pode ocorrer de corromper?

Boa tarde gente... Combobox: No meu combobox de UF, o usuario pode digitar qualquer texto, como proibo isso? o locked não permiti ele selecionar também! Mascara: Estou usando referencia ao MaskEdbox, porém no rg por exemplo, o ultimo caracter, pode ser tanto numero qnt pode ser X... como faço para ele aceitar numero ou x? Abraços

Consegui de uma forma bem simples... no curso passaram esse código, só adaptei com minhas necessidades Private Sub cmdEntrar_Click() If txtLogin.Text = Empty Then MsgBox "Prencha os campos corretamente!", vbCritical, "Erro" txtLogin.SetFocus ElseIf txtSenha.Text = Empty Then MsgBox "Prencha os campos corretamente!", vbCritical, "Erro" txtSenha.SetFocus Else 'inicio Dim acesso As Boolean acesso = False abrebanco Set rsdados = New ADODB.Recordset rsdados.Open "SELECT * FROM logins WHERE Login='" & txtLogin.Text & "' and senha = '" & txtSenha.Text & "'", cn Do While rsdados.EOF = False If rsdados("Senha") = txtSenha.Text Then If rsdados("Privilegios") = 2 Then frmAdm.Caption = frmAdm.Caption & " - " & rsdados("Nome") frmAdm.Show Unload Me ElseIf rsdados("Privilegios") = 1 Then frmnormal.Caption = frmnormal.Caption & " - " & rsdados("Nome") frmnormal.Show Unload Me ElseIf rsdados("Privilegios") = 0 Then frmbaixo.Caption = frmbaixo.Caption & " - " & rsdados("Nome") frmbaixo.Show Unload Me End If End If rsdados.MoveNext acesso = True Loop If rsdados.EOF = True And acesso = False Then MsgBox "Acesso Negado!", vbCritical, "Usuario ou senha invalida!" End If End If End Sub [/codebox]

Boa tarde gente... estou criando um programa para meu tcc e estou tentando faze 2 botoes... um q geraria relatório e outro q imprimiria um relatório... tipo sistema de banco de exibir extratos.. exibir na tela ou imprimir... para imprimir dei meio caminho andado, n gostei do objeto print então recorri ao commandbutton cd.showprint que abriu a janelinha de impressão, mas como configuro o q ele deve imprimir? e qnt ao relatório, como eu poderia fazer pra ele exibir na tela do jeito que eu especificar, um formulário eu achei dificil pois se ultrapassar o espaço estragaria o layout... Abraços

Achei interressante isso de anexar arquivo... eu tenho preferencia pelo py.sendmail por já te me acostumado...mas gostaria de saber... o py.sendmail tem essa função de anexar arquivo?

Amigo... esse objeto do oledb serve somente para criar a conexão... você n precisa deixa-lo no formulário... simplesmente insira e apague q seu formulário já estará com estrutura para trabalhar com conexao ado... Vamos supor que sua conexao seja na tabela itens e o arquivo se chame combo.mdb... o código será assim: 'Módulo Global cn As ADODB.Connection Global rs As ADODB.Recordset Public Function abrebanco() Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\combo.mdb;jet oledb:database password=SUASENHA" End Function Public Function fechabanco() cn.Close End Function 'No form_load Private sub form_load() abrebanco Set rsdados = New Recordset rsdados.Open "SELECT * FROM itens", cn Do While rsdados.EOF = False combo1.additem rsdados("Combo") rsdados.MoveNext Loop fechabanco end sub Foto do banco de dados Não cheguei a testar, mas creio q esteje correto!! Abraços... duvidas poste ai! edit---- Não tinha visto essa parte Nunca cheguei a ver VISDATA... mas se for trabalhar com access o código é dessa forma, tente adaptar a linha do cn... ou se não utilize o proprio access --edit²-- Editei o código pois tinha esquecido da linha "rsdados.MoveNext"

"If txtLogin.Text = Empty And txtSenha.Text = Empty Then" else If txtLogin.Text <> Empty And txtSenha.Text <> Empty Then não estou validando a mesma coisa... em uma hora uso = e na outra uso <> :D Vou testar seu código :D --- funcionou corretamente!! Resolvido :)

Estou fazendo um sistema de login... porem só consegui gerar erro quando a senha estava errada!! utilizei o seguinte código: rsdados.Open "SELECT * FROM logins WHERE login='" & txtlogin.text & "'", cn if rsdados("Senha") = txtsenha.text then msgbox "login efetuado" ~~~codigos~~~ else msgbox "Login ou senha incorretos!" end if Porem queria q ele verificasse se o login existe, já que no banco de dados ele esta como chave primaria... exemplo... queria q ele verificasse se existe a conta ou se a conta ou senha estão incorretos! ---edit--- Fiz esse codigo mas mesmo com login certo ele da a mensagem de login errado... Private Sub cmdEntrar_Click() If txtLogin.Text = Empty And txtSenha.Text = Empty Then MsgBox "Prencha os campos corretamente!", vbCritical, "Erro" txtLogin.SetFocus ElseIf txtLogin.Text = Empty Then MsgBox "Prencha os campos corretamente!", vbCritical, "Erro" txtLogin.SetFocus ElseIf txtSenha.Text = Empty Then MsgBox "Prencha os campos corretamente!", vbCritical, "Erro" txtSenha.SetFocus Else 'inicio If txtLogin.Text <> Empty And txtSenha.Text <> Empty Then abrebanco Set rsdados = New Recordset rsdados.Open "SELECT * FROM logins", cn Do While rsdados.EOF = False If rsdados("Login") = txtLogin.Text And rsdados("Senha") = txtSenha.Text Then If rsdados("Privilegios") = 2 Then frmAdm.Caption = frmAdm.Caption & " - " & rsdados("Nome") frmAdm.Show Unload Me ElseIf rsdados("Privilegios") = 1 Then frmnormal.Caption = frmnormal.Caption & " - " & rsdados("Nome") frmnormal.Show Unload Me ElseIf rsdados("Privilegios") = 0 Then frmbaixo.Caption = frmbaixo.Caption & " - " & rsdados("Nome") frmbaixo.Show Unload Me End If ElseIf rsdados("Login") <> txtLogin.Text Or rsdados("Senha") <> txtSenha.Text Then rsdados.MoveNext If rsdados.EOF <> False Then MsgBox "Login errado" txtLogin.Text = Empty txtSenha.Text = Empty txtLogin.SetFocus End If End If Loop End If End If End Sub [/codebox]

Set rsdados = New Recordset rsdados.Open "SELECT * FROM imagem", cn numero = rsdados("imagem") + 1 FileCopy cdDialogo.FileName, " & app.path & " & "\imagens\" & numero & ".jpg" Ele está dando erro nessa linha FileCopy cdDialogo.FileName, " & app.path & " & "\imagens\" & numero & ".jpg" Há algum erro de sintaxe? --corrigindo consegui arrumar... o código ficou dessa forma: Set rsdadoss = New Recordset rsdadoss.Open "SELECT * FROM imagem", cn numero = rsdadoss("imagem") + 1 FileCopy cdDialogo.FileName, ("" & App.Path & "" & "\imagens\" & numero & ".jpg")

e existe a possibilidade de renomear essa imagem quando copiada?? exemplo peguei a imagem a.jpg FileCopy "C:\a.jpg", "" & app.path & " & imagens\(sala)\alunos\" e a imagem ser salva como um número (como se fosse o da chamada) 32.jpg ai no banco de dados estaria na aba imagem "32.jpg"

Boa tarde... Para meu TCC tenho que criar um sistema de uma escola... Na parte de cadastramento de alunos inseri um botão procurar para pegar a imagem do aluno... Só que gostaria que a imagem selecionada fosse copiada para uma pasta e esse caminho fosse jogado no meu banco de dados (conexão ado)... A parte de registrar o caminho eu sei fazer mas não consegui achar uma maneira de q a foto selecionada fosse copiada para a pasta apppath/Alunos/(sala)/fotos... é possivel fazer?? --lembrando: n posso usar complementos externos porem posso usar uma aplicação DOS-- Abraços

Gente, no laboratorio do curso toda vez que se faz login, é restaurado o computador num ponto inicial! Exemplo, se você cria arquivos, atalhos e tudo, ao fazer logoff, e login novamente, o computador já não tem mais isso! É possivel eu fazer isso apenas no usuario "convidado" do meu computador??

Realmente existia erro nessa parte... no módulo utilizei o código (modulo desabilitar) Public Function desabilitar(ByVal intCodigo As Integer) As Variant cn.Execute "update pessoal set Habilitado= '" & 0 & "'" _ & " where codigo = " & frmAgenda.txtConsulta.Text & "" desabilitar = True End Function e no botao (habilitar) - desabilitar só muda o habilitar(1): Private Sub cmdHabilitar_Click() If txtConsulta.Visible = False Then txtConsulta.Visible = True txtConsulta.SetFocus Else Dim atual As Variant atual = habilitar(1) If atual = True Then Call limpar Else MsgBox "Erro na atualização.", vbCritical End If End If Call nulo End Sub Abraços, duvida resolvida!

Pessoal, antes de tudo quero dizer que não estou criando varios topicos seguidos para spam, mas é que são duvidas diferentes que vão surgindo assim que vou programando, e como eu, iniciante em banco de dados, ajudam bastante! então... vamos la No curso aprendi que quando uma vaga é prenchida, ela já tem dono e não pode ser excluida, portanto meu botão excluir seria um desabilitar! Modulo: Public Function desabilitar(ByVal intCodigo As Integer) As Variant cn.Execute "update pessoal set Habilitado= '" & 0 & "'" _ & " where codigo = " & intCodigo desabilitar = True End Function '------ Public Function habilitar(ByVal intCodigo As Integer) As Variant cn.Execute "update pessoal set Habilitado= '" & "1" & "'" _ & " where codigo = " & intCodigo habilitar = True End Function Botoes: Private Sub cmdHabilitar_Click() If txtConsulta.Visible = False Then txtConsulta.Visible = True txtConsulta.SetFocus Else Dim atual As Variant atual = desabilitar("1") If atual = True Then Call limpar Else MsgBox "Erro na atualização.", vbCritical End If End If Call nulo End Sub '-- Private Sub cmdDesabilitar_Click() If txtConsulta.Visible = False Then txtConsulta.Visible = True txtConsulta.SetFocus Else Dim atual As Variant atual = desabilitar("0") If atual = True Then Call limpar Else MsgBox "Erro na atualização.", vbCritical End If End If Call nulo End Sub Estou trabalhando com caracteres no access, e 1 é habilitado, 0 desabilitado! meu botao listar no vb está funcionando corretamente, ele só lista os que estão com 1 na area Habilitado... porem os botoes habilitar e desabilitar não alteram o valor la dentro quando pressionados e também não geram erro nenhum... alguém consegue identificar esse problema?? Obrigado desde já!

obrigado Gerarda, as vezes coisas simples fazem uma grande diferença kk Duvida resolvida --100 post '.'--

Pessoal, tentei usar o format para inserir um "-" depois de 4 digitos mas não consegui... então fiz dessa forma: Private Sub txtFone_Change() If Len(txtFone) = 4 Then txtFone.Text = txtFone.Text & "-" End If End Sub Porem ele defini o fóco para antes, exemplo, se eu digito 5555 aparece o 5555- mas o fóco vai para o inicio, ou seja se eu digitar 4444 agora em vez de 5555-4444 sai 44445555- como resolvo isso? Abraços

oO, q facinho. Resolvido aqui, vlw mais uma vez!

Boa noite pessoal... Como no tópico anterior eu consegui fazer meu banco de dados e o access se entenderem pela conexão ADO... Porem meu botao consultar não funciona no Codigo, somente nome,endereço ou telefone... Segue o codigo: If txtConsulta.Visible = False Then txtConsulta.Visible = True txtConsulta.SetFocus Else abrebanco Set rsDados = New Recordset rsDados.Open "SELECT * FROM pessoal WHERE Codigo='" & Trim(txtConsulta.Text) & "'", cn txtConsulta.Text = rsDados("Codigo") txtNome.Text = rsDados("Nome") txtEnd.Text = rsDados("Endereço") txtFone.Text = rsDados("Telefone") fechabanco End If Esse trim eu peguei na internet, mas não funcionou! Se puderem me explicar o erro eu agredeço: O incompativel esta escrito dessa forma mesmo, erro ortografico no vb kkk.. Abraços

oks, eu recebi, porem não dei aqui como resolvido pois quero aprender a alterar e excluir ainda... de preferencia ADO, mas se tiver outro jeito... pode ser Abraços e vlws! --- já aprendi, baixei um pronto na net (por e-mail) e estudei o codigo! Abraços e vlws a todos que ajudaram

Resolvemos por MSN... vou postar a solução do adicionar aqui: Botao inserir: Private Sub cmdInserir_Click() ExecutaComando ("insert into Alunos (Nome,Idade) values ('" & txtNome.Text & "','" & txtIdade.Text & "')") End Sub Modulo MdlVariaveis Global g_mdb_Conex As New ADODB.Connection Global f_cla_ConexaoMDB As New cls_ConexaoMDB Public Function ExecutaComando(ByVal strComando As String) As Boolean On Error GoTo err ExecutaComando = False g_mdb_Conex.Execute strComando ExecutaComando = True Exit Function err: MsgBox "erro para inserir" End Function Classe cls_ConexaoMdb Public Function ConexMDB(ByVal l_str_CaminhoMDB As String) On Error GoTo Erro: ConexMDB = True If g_mdb_Conex.State = 1 Then g_mdb_Conex.Close g_mdb_Conex.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & l_str_CaminhoMDB & ";jet oledb:Database password=123321" Exit Function Erro: ConexMDB = False MsgBox "ERROR DE ACESSO COM MDB", vbCritical End End Function E ativo nas referencias o microsoft activeX library 2.8 Vlws Iramos7 --não dei como resolvido pois quero alterar e excluir ainda... 1/3 resolvido :D

Agora não é mais insere, você mudou para executacomando certo?? e continua dando erro... Vou postar todo o codigo Classmodule Public Function ConexMDB(ByVal l_str_CaminhoMDB As String) On Error GoTo Erro: ConexMDB = True If g_mdb_Conex.State = 1 Then g_mdb_Conex.Close g_mdb_Conex.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & l_str_CaminhoMDB & ";" Exit Function Erro: ConexMDB = False MsgBox "ERROR DE ACESSO COM MDB", vbCritical End End Function Modulo: Public conexao As ADODB.Connection Public rsDados As Recordset Public Function abrebanco() Set conexao = New ADODB.Connection conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\dados.mdb;jet oledb:database password=123321" End Function Public Function fechabanco() conexao.Close End Function Public Function ExecutaComando(ByVal strComando As String) As Boolean On Error GoTo err ExecutaComando = False g_mdb_Conex.Execute strComando ExecutaComando = True Exit Function err: MsgBox "erro para inserir" End Function Formulario Private Sub cmdConsultar_Click() abrebanco Set rsDados = New Recordset rsDados.Open "SELECT * FROM Alunos WHERE Nome='" & txtNome.Text & "'", conexao txtNome.Text = rsDados("Nome") txtIdade.Text = rsDados("Idade") fechabanco End Sub Private Sub cmdInserir_Click() ExecutaComando ("insert into Alunos (Nome,Idade) values ('" & txtNome.Text & "','" & txtIdade.Text & "')") End Sub Private Sub Command1_Click() abrebanco Set rsDados = New Recordset rsDados.Open "SELECT * FROM Alunos", conexao Do While rsDados.EOF = False lstNomes.AddItem rsDados("Nome") rsDados.MoveNext Loop fechabanco End Sub Private Sub Form_Load() lstNomes.Clear End Sub

campo1 e campo2 é do access e values do vb (Text) certo?