Matheus-vb6

Consegui cara :D vlww... na vdd era de uma list... mas consegui Resolvido

Esse crystalReport seria o que? um complemento? objeto?.... Eu queria imprimir esse formulário, mas com logo da empresa e tudo... Nesses espaços em branco.... tem label com a propriedade transparent q puxa os valores do banco de dados. Vlw por falar desse crystal report :D vo fa uma fuçada e tentar trabalhar com ele Qnt ao gtalk, eu não tenho kkkkk, mas ta add no MSN :D

Gente, eu achei sobre o objeto printer, porem não entendi seu uso... eu poderia formatar o texto? selecionar a impressora? e como eu definiria pra sair uma imagem, no caso o logo, em seguida escrito grande "Relatório de preços", seguido de uma linha e seguido dos dados.... Fucei no commanddialog e achei o commanddialog1.showprint, mas travei ali kkkk Abraços :D

Duvida basica... Como eu faço pra, por exemplo... escrever numa label, o item que recebeu dois cliques numa list... tendei dessa forma, mas não deu Private Sub List1_DblClick() selecionado = list1.selected label1.caption = selecionado End Sub Abraços...

No seu banco de dados tem uma tabela chamada tblcliente? '" & txtConsultar.Text & "' Ela é caracteres? De uma verificada e poste o tipo dela Abraços

Esse datareport seria o q? componente? To pesquisando e vou tentar fazer. vlww edit--- Eu queria gerar relatorios para impressão.... é estilo desse data report, mas para imprimir... Achei complicado esse data report, mas vou tentando Abraços e vlwss

Funcionou certinho! Agora falta o RG q ainda não resolvi :S

to meio sem tempo pra ler isso, de noite eu vo ler e ver :), qnt ao " & txtCPF.Text & "", cn, por ser texto, utilize apostrofo aspas '" & txtCPF.Text & "'", cn rsdados.Open "SELECT * FROM cliente WHERE tblcliente='" & txtCPF.Text & "'", cn no modulo, você declarou o cn... então sua conexao está feita... o arquivo do access tem q ser .mdb sim Abraços

a sim, já tenho noção de como fazer, só gerar condição com err.number=.. vlwss Abraços

Set rsdados = New ADODB.Recordset Tenta dessa forma :D

Passo 5 conta = 509,4 conta2= 0.06 * conta conta3 = conta-conta2

ai no caso só configuro on error goto?

magina cara, quanto mais se aprende mais longe a gente vai!!! Respondendo a sua pergunta eu não so professor não, creio q estou muito longe de ser ainda kkk... curso um curso tecnico de informatica, e la aprendo vb... To quase conseguindo o q você quer no programa, porem esqueci como é a instrução da single para esses casos, tipo val =valor int = integer str = string... Se alguém postar acho q ajudaria :D

eu geralmente uso um contador com essa instrução... x=x+1 list1.listcount(x)

Cara... vo refaze todo seu sistema... n to conseguindo entende o código, to perdidinho kkk Até quarta no maximo eu te mando, hj to meio corridoo kk

nada no formulário tem programação, somente o botão q é aquele código que te passei!! vou ver o video! Olha, vendo o video não consegui identificar o erro! você poderia me mandar o programa? eu faço uma analise do codigo e te mando de volta sem o erro! Mande compactado pro meu e-mail : matheus.rubens@hotmail.com Abraços

tenta declarar eles como single ao invés de double... e nesse caso de ficar desproporcional seria quando esta com format?

formata com Currency (moeda), assim ele já irá somar Abraços

é cara... vo da uma estudada de como trabalhar com horas e datas porque nunca precisei então n tenho conhecimento.. kk se eu souber eu te posto, mas acredito q logo alguém do forum responda sua duvida! Abraços

a sua 3 duvida eu n entendi muito bem... você vai faze calculo por datas? a estrutura eu posso te ajudar, mas calcular data eu n sei n

módulo faz conexão com todos formularios de um mesmo projeto, portanto as funções abrebanco e fechabanco podem ser usadas em qualquer outro formulario do seu projeto sem nenhum problema! :D

Posto sim, sem problemas :D No caso do consultar, há uma coisa que é importantissimo prestar atenção, sempre quando for numero, n use apostrofo aspas '" & .. & "', somente aspas " & .. & ", e de texto,memorando,qualquer outra coisa, '" & & "' Vamos ao código... abrebanco Set rsdados = New Recordset rsdados.Open "SELECT * FROM pessoal WHERE Codigo=" & txtConsulta.Text & "", cn ' traduzino, selecione tudo de pessoal(nome da sua tabela) onde Codigo(tabela) é igual a txtconsulta.text, cn(onde ocorre a conexao) 'dai é simples, só colocando assim: txt1.text = rsdados("Sub1") txt2.text = rsdados("Sub2") fechabanco Excluir abrebanco excluir = "delete * from pessoal where codigo=" & txtconsulta.text & "" ' relembrando a regra de q se for texto '" & & "'(com apostrofo) cn.execute excluir fechabanco Atualizar, na minha opinião, é o mais chato de todos... abrebanco atualizar = "update pessoal set Sub1='" & txt2.text & "', Sub2= '" & txt3.text & "', Sub3= '" & txt4.text & "', Sub4= '" & txt5.text & "',Sub5= '" & txt6.text & "' where Departamento = '" & txt1.text & "'" ' não me lembro se tem uma virgula antes do where, se não der certo avise que eu testo cn.execute atualizar fechabanco

Eu fui alanizar depois aquele tópico e achei um pouco confuso, então vou postar uma forma simples pra vc! Desconsidere seu modulo,class então exclui, e o código do insert também! No seu módulo coloque isso 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 & "\NOME.mdb;jet oledb:database password=SENHA" End Function Public Function fechabanco() cn.Close End Function E no seu botão: if txt1.text=empty or txt2.text=empty or txt3.text=empty or txt4.text=empty or txt5.text=empty or txt6.text=empty then msgbox "Preencha todos campos antes de seguir!",vbinformation,"Campo em branco" else abrebanco 'função do módulo que criamos inserir = "INSERT INTO nome_da_tabela(Departamento,Sub1,Sub2,Sub3,Sub4,Sub5)" & "Values('" & txt1.Text & "','" & txt2.Text & "','" & txt3.Text & "','" & txt4.Text & "','" & txt5.Text & "','" & txt6.Text & "')" cn.execute inserir fechabanco end if alunos é o nome da tabela :D

em vez do enabled, você pode usar o locked... Bom vamos la... quando ela clicar em incluir, ele ainda não registrará no banco de dados, só exibirá no segundo formulario? e no segundo formulário... no primeiro campo, creio q seja text, ele colocara o nome do departamento e no list de baixo os sub departamentos? --- txt não da para se listar, sugiro a você, já que ninguém poderá alterar mesmo, colocar um list no lugar do text, no form2 Confirma a estrutura pra mim :D Abraços

pode estar ocorrendo o seguinte, o Terra por ser um e-mail mais reforçado, pode ter um sistema de proteção(para enviar) desta forma, eu sugiro e testei aqui, yahoo e gmail enviam tranquilamente! da uma testada e qualque coisa so fala :D O que não servir no código use como "" ou Empty... Vo te postar um exemplo que eu utilizo Set k = CreateObject("Py.SendMail") k.SMTPServer = "smtp.mail.yahoo.com.br" k.Recipient = "Matheus" k.To = "matheus.rubens@hotmail.com" k.Sender = "Matheus2" k.From = "matheus.rubens11@yahoo.com" ' nem uso esse e-mail kkk k.Cc = "" k.Bcc = "" k.Subject = "Teste" k.Body = text1.text 'Em caso de autenticação k.User = "matheus.rubens11@yahoo.com" k.Password = "..minhasenha.." retorno = k.send() lblRetorno = "Retorno: " & retorno Debug.Print retorno MsgBox "Teste realizado com sucesso!", vbInformation, "Enviado!" End On Error GoTo Erro Erro: MsgBox "Não foi possível concluir a operação!", vbCritical, "Erro!" End If [/codebox]