Matheus-vb6

Caso você não esteja acostumado a usar "not" (como eu) pode usar essa linha Do While Not rs.EOF Dessa forma: Do While rs.EOF = false Dará o mesmo resultado

lstcodigomaterial.clear For x = LSTPLANO.ListCount - 1 To 0 Step -1 For z = LSTPEDIDO.ListCount - 1 To 0 Step -1 For f = LSTCODIGOMODELOP.ListCount - 1 To 0 Step -1 Set BASE = OpenDatabase(App.Path & "\DADOS.mdb") Set TABELA = BASE.OpenRecordset("SELECT DISTINCT CODIGOMATERIAL FROM TBMAT_PEDIDO WHERE CODIGOMODELOP=" & LSTCODIGOMODELOP.List(f) & "AND PEDIDO=" & LSTPEDIDO.List(z) & "AND PLANO=" & LSTPLANO.List(x) & "") Do While Not TABELA.Eof LSTCODIGOMATERIAL.AddItem TABELA!CODIGOMATERIAL TABELA.MoveNext Loop Next f Next z Next x Assim também não da?

Eu tava pensando em fazer um esqueminha meio doido... tipo assim, o programa ficaria alertando que não ta ativado.... e um código de ativação seria gerado tipo no banco de dados... ai como no adobe, quando ele clicar em "Ativar agora" avisaria q o fornecedor entraria em contato nanana... usando o py.sendmail, o código "gerado" no banco de dados, seria enviado no meu e-mail... e quando o usuário digitasse o código, ele "supostamente" criaria um arquivo oculto e somente leitura, no caso que já existisse, por exemplo um txt, onde se tivesse escrito qualquer outra coisa diferente do código criptografado, por exemplo, se o código é 1234-5678-9012 para ativar, ali ele mostraria 1592-6037-1482 +- assim... mas os problemas são... -Não sei editar um txt (se tiver algum semelhante para recomendar tambem aceito) =p -To perdido na sintaxe de random para gerar um código (pode conter letras também) -Como criptografar(nem manjo) Editar um txt já vi algo parecido aqui no fórum, vo da uma corrida atrás Abraços :D

Oi, tudo bem?? então... quando se vai fazer uma concatenação , eu recomendo o uso do E comercial "&"... no caso desse ficaria sql$ = " INSERT INTO Cliente (Codigo, RazaoSocial) " & _ " VALUES ('33.854.333/0001-04' + 'EmpresaS.A.')" Poste nos o resultado, qualquer duvida estamos ae :D Abraços

Bom dia gente :D, gostaria de saber como criar um programa que registrasse a key no sistema, no caso, uma de teste por X tempo... e ficasse solicitando ao usuario a ativação, q no caso, após a compra, eu enviaria uma key de ativação... Abraços :D

Para datas eu uso group by.... rsdados.open "select data from tabela group by data" do while rsdados.eof=false lstdata.additem rsdados("Data") rsdados.movenext loop :D

Seria pelo MID mesmo... tente dessa forma: x=len(txtnanan.text) rsdados.open "select * from TABELA where mid(COLUNA,0,x)='" & mid(txtnanan.text,0,x) & "'" do while rsdados.eof=false LISTA.additem rsdados("Nome") rsdados.movenext loop Tenta ai e nos poste o q deu :D Abraços :D

O que eu postei funcionou aqui...

Acredito que não seja, pois com o driver healtek ele reconhece o plug normal, só sai muito chiado..... tanto na caixa de som... Agora sem o driver healtek, e com o driver q o windows recomenda, ele fica um poco chiado.... A placa mãe é nova e o som é on-board... então as chances de ta com defeito ali é dificil, já q la na assistencia todos os testes deram OK.. Abraços :D

É cara... o melhor método mesmo que te aconselho é esse... eu tenho um cadastro com 99 dados.. Segue o Link ---------- Caso não tenha senha... não tenho certeza, mas acho que é só retirar o password = .... nunca usei sem senha :S cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\bd.mdb;jet oledb:database" -------- Caso queira consultar, por exemplo, se o NOME existe por exemplo... você pode fazer assim: dim existe as boolean existe=false set rsdados = new adodb.recordset rsdados.open "select * from TABELA",CONEXAO do while rsdados.eof=false and existe=false if rsdados("Nome") = txtnome.text then existe=true else rsdados.movenext end if loop if existe=true then msgbox "Cadastro já existente" else ' ou elseif existe=false then '%%% código de cadastrar %%% end if Não se esqueça de colocar o "abrebanco" e o "fechabanco" ---- . qualquer duvida poste ai que realmente o pessoal é nota 10.... Abraços cara :D boa sorte.

Consegui resolver esse... agora meu problema está com o audio... porque ele chia e quando não chia não funciona o fone externo http://scriptbrasil.com.br/forum/index.php...mp;#entry621390 Postei em hardware porque não lembrei da sessão microsoft windows --' Abraços e vlws pela ajuda :D

Opa cara, tudo bom?? Então... eu utilizo minha conexão em um módulo Public cn As ADODB.Connection Public rs As ADODB.Recordset Public Function abrebanco() Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\bd.mdb;jet oledb:database password=*********" End Function Public Function fechabanco() cn.Close End Function E para inserir no botão eu faço: inserir = "insert into TABELA(Coluna1,coluna2)" & "Values('" & txt1.text & "','" & txt2.text & "')" cn.execute inserir Lembrando que para numeros, você usa só aspas " & txt1.text & ", para textos apostrofo seguido de aspas... Tem um tópico que postei explicadinho, vou procurar e já edito com o link Abraços :D edit-- Link

Bom dia gente... Recentemente meu notebook teve a placa mãe trocada, e tive que formata-lo pois tinha muito erros no S.O.... Antes mesmo de trocar, tive problemas para achar um driver que fizesse o fone pegar, mas tinha conseguido... agora não estou conseguindo, ele sai um som muito ruim com o Realtek, porém funciona o fone.. mas quando instalo o driver do cd q veio com ele(acredito q n seja compativel com a placa atual) ou qualquer outro driver, ele pega um som otimo sem fone, e quando pluno o fone não sai som algum... se eu conectar algo no microfone, sem encaixar perfeitamente, o som sai um pouco no fone, porém muito ruim.... Acho que seria mais driver do q hardware, mas como não achei uma sessão específica, achei que essa se enquadrava mais... Alguém tem uma ideia do q eu possa fazer? Vlws :D --edit Acho que seria mais apropriado na sessão microsoft windows... n me lembrei dela na hora

Magina cara, precisando tamo ae :D

Essa linha pode apresentar erro caso o nome do seu text não seja "text" no começo... Nesse caso, ele checa o tipo, então independente do nome ele faria... Caso o nome de todos seja "text" no começo, não há necessidade de alterar Abraços :D

Eu fiz esse esquema aqui e não deu certo :(, vb me odeia... mas segue ai explicação de cada linha :D

lembra daquele projeto com o do while? Você poderia fazer uma conexao com "do while rsdados.eof=false" e colocar um inserir... e no final... rsdados.movenext,loop Caso não consiga fale que eu monto um projeto aqui :D

Opa rapaz, tudo bom? primeiramente bem vindo ao forum.... Para fazer em todos textbox, você poder usar o for each, apesar de começar com FOR ele é diferente do for... O código seria esse, só precisa adaptar com o nome do seu form... dim objeto For Each objeto In Form1.Controls If TypeOf objeto Is TextBox Then objeto.Visible = True End If next Abraços :D --edit-- Cara, entendi errado sua duvida... perai que vou desenvolver aqui e já posto --edit² Não consegui fazer utilizando for... mas dessa forma acho q atende o q você quer fazer.. Private Sub Command1_Click() If Text1.Visible = False And Text2.Visible = False And Text3.Visible = False Then Text1.Visible = True ElseIf Text1.Visible = True And Text2.Visible = False And Text3.Visible = False Then Text2.Visible = True ElseIf Text1.Visible = True And Text2.Visible = True And Text3.Visible = False Then Text3.Visible = True End If End Sub Abraços :D

Gostei do trabalho, o logo achei OTIMO... eu tenho problemas com design kkk, só não entendi porque tanto banco de dados kkkk Abraços cara Parabens :D

kkkk, vlwss agora ta tudo certo, no começo assustei porque deu erro, mas ai vi q é porque é um objeto criado em tempo de design.. Abraços :D

Kuroi, fui tentar usar o remove agora... e me retornou um erro Código 438 object doesn't support this property or method dim numero numero = val(sstab.tab) net(numero).remove Ta certo? Abraços

Deu certo... Vlws novamente ae Tópico resolvido

Tenho um menu normal, ele está visible=false, gostaria que quando o usuario clicasse com o direito sobre certo objeto, aparecesse o menu perto do mouse, exemplo na imagem... não sei se no caso ele puxa o menu ou se isso é feito de outra forma... mas queria aprender... Abraços

É que as vezes ele dava print de uma lupinha... Ai eu fiz um do while pra ele ficar dando print enquanto a imagem for pequena As vezes dava uma travada, mas continua Abraços

Funcionou cara \o... vlws mesmo, aprendi mta coisa com isso... Não fexa o tópico ainda não pois vou testar o piscar ainda.. Vlws mesmo abraçao :D edit--- Piscar funcionou tranquilo Abraços cara Tópico resolvido