ToPronto N'Area

Olá pessoal, eu tenho um gabinete da maxtro de baias, com entradas usb frontais. O problema é que eu fiz uma limpeza no gabinete e não anotei as cores dos cabos usbs, para liga-los novamente, agora não sei a ordem para colocar na mb! Outro detalhe é que ele não tem as legendas tipo! 5v+ data - data + Gnd Então não sei a ordem, os cabos para as duas usbs são identicos sendo das seguintes cores na ordem, da direita pra esquerda: Preto Verde Branco Vermelho Se alguém puder me ajudar. Será que é só seguir a ordem???? Se eu colocar na ordem errada pode dar algum problema na mb! A mb é a asus P4S533-X Abraços, e desde já obrigado a todos!

Olha velhinho eu trabalho assim. em uma module eu faço as declarações e codigo de abertura e de fechamento. Public Cnn As New ADODB.Connection Public rst As New ADODB.Recordset Public Function AbreConexao() 'Criando uma instância do objeto Connection Cnn.Open "provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Metta;Data Source=adriano\sqlexpress;" End Function Public Function FecharConexao() Cnn.Close End Function Public Sub verifica_rs() If rst.State = 1 Then rst.Close End Sub esta função verifica_rs ela ve se o rs esta aberto se estiver ele fecha caso contrario ele continua na ação! então tu coloca ele sempre antes de chamar um rst.open saca

Qual o Codigo? Bom tem diferenças nas especificações do codigo. faz o seguinte? Inseri um objeto ado no seu projeto e faz a conexão com o bd atravez dele dai o ado vai t dar a linha do codigo certinha? Blza!

Eu tentei antes, mas na conexão ado não tem findfirst... Ops... eu que falei errado. É Find e não FindFirst. Com este funcionou? Abraços, Graymalkin está funcionando perfitinho! Valeu!

eu já ouvi falar de utilizar o comando shell pra abrir algum executavel!

cara que bd você está usando? você está usando algum objeto, tipo dao ou ado? Se está prq não tenta via objeto addnew edit estas coisas! Passa estes detalhes que dai a gente pode t ajudar melhor! beleza! e o codigo também bai ficar menor! Abraços!

Eu tentei antes, mas na conexão ado não tem findfirst... Por isto faço com o seek, e o problema está aqui rst.Open "Funcionarios", cnn, adOpenStatic, adLockReadOnly ele da um problema na primarikey! Mesmo assim valeu! Ontem eu tava dando uma olhada e achei um codigo de login via ado, vou testa-lo se der certo eu posto aqui! Abraços! Bom pra quem precisar ficou assim o codigo do login via ado Este codigo você coloca ele no command button On Error GoTo TrataErro ' Erro ao localizar usuarios Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim Criterio As String Dim LoginOK As Boolean 'Criando uma instância do objeto Connection cnn.Open "provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Metta;Data Source=adriano\sqlexpress;" rst.Open "Funcionarios", cnn, adOpenDynamic, adLockReadOnly LoginOK = False If Txt(0).Text = "" Then MsgBox "Digite o Login do Usuário !", vbExclamation + vbCritical, " Campo Obrigatório" Txt(0).SetFocus Exit Sub End If If Txt(1).Text = "" Then MsgBox "Digite a Senha do Usuário !", vbExclamation + vbCritical, " Campo Obrigatório" Txt(1).SetFocus Exit Sub End If 'move-se para o primeiro registro rst.MoveFirst ' define o criterio para busca Criterio = "Login Like '" & Txt(0).Text & "'" ' inicia busca no recordset rst.Find Criterio, 0, adSearchForward 'Agora imprimimos os codigos p/os clientes cujo país encontrado é USA While rst.EOF MsgBox "Usuario não encontrado APAGA O OTRO !" Txt(0).SetFocus Exit Sub Wend NomeUsuario = rst.Fields("Funcionario") 'se encontrou, verificar a senha If rst.Fields("senha") = Txt(1).Text Then LoginOK = True 'definir que o usuário foi encontrado e a senha está OK Else ctr = ctr + 1 If ctr = 4 Then End Else xText = "Você tem mais" + Str(4 - ctr) + " chances" If ctr = 3 Then xText = "Esta é sua última chance !!" End If MsgBox "Senha incorreta !" & vbCrLf & _ xText, vbExclamation + vbCritical, "Senha não confere" Txt(1).Text = "" Txt(1).SetFocus SendKeys "{Home}+{End}" End If End If rst.Close Set rst = Nothing If LoginOK = True Then MdiMetta.Show Unload Me End If LvbLog_exit: Exit Sub TrataErro: MsgBox err.Description, vbInformation, "Erro ao [TrataErro]"

cara como você vai fazer isto eu não sei. Mas sei que você vai ter de fussar bastante sobre as apis do windows! Eu acho! Abraços e boa sorte!

Noite pessoal, to denovo aqui, mais perdido que cego em tiroteio! oia só to querendo fazer uma conexão de login é esta Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset 'Criando uma instância do objeto Connection cnn.Open "provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Metta;Data Source=adriano\sqlexpress;" rst.Open "Funcionarios", cnn, adOpenStatic, adLockReadOnly If Txt(0).Text = "" Or Txt(1).Text = "" Then MsgBox "Informe o Nome e a Senha do usuário ! ", vbOKOnly + vbExclamation, "Acesso Negado" Txt(0).SetFocus Exit Sub End If rst.Index = "Primarykey" rst.Seek "=", Txt(0).Text While Not rst.EOF MsgBox "Usuário não cadastrado !!!! ", , "Login" Txt(0).SetFocus Wend If Not (rs![senha] = ((Txt(1).Text))) Then MsgBox " Senha Inválida !!! , tente novamente ", vbOKOnly, "Senha Incorreta" Txt(1).SetFocus Exit Sub Else 'NomeUsuario = rs![Funcionario] Unload FrmAber Unload Me MdiMetta.Show End If MdiMetta.Show Unload FrmAber Unload Me quando eu trabalhava com o access ela funcionava normalzinho ai nesta acima já tem algumas alterações para o ado, porem não estao funcionando se alguém ver o erro que eu estou cometendo e puder me dar uma mao eu fico muito agradecido. o erro que esta dando agora é o seguinte "O provedor atual não oferece suporte para a interface necessaria à funcionalidade Índice." dai eu não acerto a ordem deste itens rst.Open "Funcionarios", cnn, adOpenStatic, adLockReadOnly prq pelo o que eu vi é daqui o erro eu não sei qual deste dois (adOpenStatic, adLockReadOnly) tenho de alterar para ele aceitar a primarykey! Bom desde já muito obrigado!

cara este caso ai acabei descobrindo que foi vacilo meu, eu deixando no bd como nvarchar(50) e linkado as checkbox e zerando o bd quando inseri o novo registro ele já assumiu valores true e false. obrigadao pela ajuda

Ai galera oia eu aqui de novo! No access eu trabalhava muito com tipos de dados booleanos onde eu utilizava checkbox e linkava no bd e ele assumia valores true e false ficava muito bom pra fazer nivel de acesso, agora estou tentando fazer o mesmo nivel de acesso no sql só que não consigo! nem via codigo nem vai o banco de dados estou utilizando o sql express. vocês sabem me dizer qual tipo de dado posso utilizar pra fazer esta função! Eu tenho duas funções neste codigo, uma pra verificar se foi selecionado alguma das checkbox Private Sub VerRestricoes() If ChkPer(0).Value = False And ChkPer(1).Value = False And ChkPer(2).Value = False And ChkPer(3).Value = False And ChkPer(4).Value = False Then MsgBox "Excolha uma das restrições.", vbInformation, "Aviso" ChkPer(0).SetFocus VerRest = 1 ' pra cancelar o salvamento Else VerRest = 2 End If End Sub e outra pra inserir um valor no check e salvar no bd o valor de S ou N (Sim ou Não) Private Sub SalvarPermissao() If ChkPer(0).Value = True Then AdoCad.Recordset.Fields("lançar") = "S" ElseIf ChkPer(0).Value = False Then AdoCad.Recordset.Fields("lançar") = "N""" ElseIf ChkPer(0).Value = Empty Then ElseIf ChkPer(1).Value = Empty Then ElseIf ChkPer(1).Value = True Then AdoCad.Recordset.Fields("ALTERAR") = "S" ElseIf ChkPer(1).Value = False Then AdoCad.Recordset.Fields("ALTERAR") = "N""" ElseIf ChkPer(2).Value = Empty Then ElseIf ChkPer(2).Value = True Then AdoCad.Recordset.Fields("EXCLUIR") = "S" ElseIf ChkPer(2).Value = False Then AdoCad.Recordset.Fields("EXCLUIR") = "N""" ElseIf ChkPer(3).Value = Empty Then ElseIf ChkPer(3).Value = True Then AdoCad.Recordset.Fields("IMPRIMIR") = "S" ElseIf ChkPer(3).Value = False Then AdoCad.Recordset.Fields("IMPRIMIR") = "N""" ElseIf ChkPer(4).Value = Empty Then ElseIf ChkPer(4).Value = True Then AdoCad.Recordset.Fields("ADMINISTRADOR") = "S" ElseIf ChkPer(4).Value = False Then AdoCad.Recordset.Fields("ADMINISTRADOR") = "N""" End If End Sub só que num vai! da pau este trem! Se alguém puder me ajudar fico muito grato desde já! Abraços!

Bom desde já agradeço a todos que passaram por aqui! Eu fiz uma gambiarra que deu certo! Criei um outro ado e conectei o datagrid há ele, e agora faço o cancelupdate normalzinho! beleza Brigadão a todos!

Tarde pessoal! Eu estou com um problema, ao dar um cancelupdate no ado, o datagrid da um erro. "Uma linha vazia não pode ser inserida. A linha deve ter pelo menos um valor de coluna definido." alguém sabe o que eu posso fazer para previnir este erro, pois ele não tem codigo, só aparece isto! não sei o que fazer! Se alguém puder me ajudar fico muito agradecido! Abraços!

Galera consegui resolver o caso! Ficou assim! Primeiramente tem de selecionar o adcmdtext, prq se não o ado não aceita instrução sql e somente o nome da tabela! dai você coloca este codigo no change da text Private Sub TxtPesq_Change() Dim Criterio As String Criterio = Chr$(39) & TxtPesq.Text & "%" & Chr$(39) Dim Sql As String Sql = "SELECT Apelido, Nome, FoneFixo, FoneCel, email FROM Agenda WHERE " Sql = Sql & "Apelido LIKE " & Criterio & " or Nome LIKE " & Criterio & "" Sql = Sql & "or FoneFixo LIKE " & Criterio & " or FoneCel LIKE " & Criterio & " " Sql = Sql & "or email LIKE " & Criterio & " " AdoAge.RecordSource = Sql AdoAge.Refresh End Sub Nada se cria tudo se copia! Espero que possa servir de ajuda pra vocês! Abraços!

Bom velhinho, que bd tu está usando! Se for access tu faz assim no change da text você coloca este codigo dim procura as string procura = "select * from Tabela where Codigo like '" & TxtPesq.Text & "*' " data1.recordsource = procura data1.refresh O * faz ele ir filtrando todos os itens que tem os primeiros digitos iguais ao digitados na text, e você ainda pode usar o or para ele verificar tanto o codigo como se quiser o nome também! Eu to com este mesmo problema só que no meu caso é no SQL server! Dai esta expressão não funciona! Bom se for access acho que te ajudei se não for estamos no mesmo barco! abraços!

Olá pessoal, é o seguinte, estou migrando de access para sql, e como era de se esperar estou levando uma surra1 Eu uso muito dbgrid em minhas aplicações, já troquei para o data grid, que é identico ao meu ver! Mas o problema não é este eu tenho um codigo com o bco de dados access que funciona como uma busca onde ele vai filtrando conforme eu digito a palavra, palavra a qual pode ser klker uma em que eu especificar no select do recordsource do data. Ex. No Load Data1.Databasename = "U:\Metta.mdb" Data1.Recordsource = "Select * From Agenda" Data1.Refresh dai no change da text TxtPesq eu coloco o codigo: Dim Sql as string Sql = "SELECT Apelido, Nome, FoneFixo, FoneCel, email FROM Agenda WHERE " Sql = Sql & "Apelido LIKE '" & TxtPesq.Text & "*' or Nome LIKE '" & TxtPesq.Text & "*' " Sql = Sql & "or FoneFixo LIKE '" & TxtPesq.Text & "*' or FoneCel LIKE '" & TxtPesq.Text & "*' " Sql = Sql & "or email LIKE '" & TxtPesq.Text & "*'" Data1.Recordsource = Sql Data1.Refresh Daí o que ocorre, quando eu digito klker palavra na text ele procura pra mim onde ele tem algo parecido e vai filtrando os valores no dbgrid. Eu quero fazer o mesmo com o ADO e SQL. Porem Eu trabalho da seguinte forma no ado No objeto ado eu configuro as opçoes Connectionstring = FILE NAME=U:\Conecta.udl ONde conecta é uma udl que testa e faz a conexão com o bd sql depois eu configuro as opções LockType = adlockoptimisc e o recordsource dele eu abro nos ... do lado e peço 2 - adcmdtable e abaixo seleciono a tabela neste caso tabela "Agenda" dai via codigo eu não faço nada, o problema é que na mesmo instrução que eu fazia com o data, não da certo com o sql, ele não aceita a instrução sql porem os outros codigo de botoes incluir salvar excluir está td ok! o codigo fica assim Dim Sql As String Sql = "SELECT Apelido, Nome, FoneFixo, FoneCel, email FROM Agenda WHERE " Sql = Sql & "Apelido LIKE '" & TxtPesq.Text & "*' or Nome LIKE '" & TxtPesq.Text & "*' " Sql = Sql & "or FoneFixo LIKE '" & TxtPesq.Text & "*' or FoneCel LIKE '" & TxtPesq.Text & "*' " Sql = Sql & "or email LIKE '" & TxtPesq.Text & "*'" AdoAge.RecordSource = Sql AdoAge.Refresh Se alguém puder me dar uma ajuda eu fico grato!

cara eu uso no vb6, muito a toolbar, e eu tenho gostado do resultado e os clientes também! Olha só um dos visuais! Eu uso ele com os principais comandos. E quanto a imagem no centro do mdi, você terá de colocar um picture no mdi, depois você coloca o image dentro do picture e configura a propriedade strench dele pra true. dai é só buscar a imagem. klker coisa também , você pode centralizar ele via codigo. Bom espero ter ajudado, klker coisa posta ai que nois tenta ajudar de novo! Abraços!

já está resolvido, descobri o que era! Era que a pecinha entre o monitor e a cadeira, tava com sono e não conseguia ver o erro! Mas estáí como ficou o codigo! Desde já obrigado aos que passaram por aqui e leram o tópico! Set Atualiza = Workspaces(0).OpenDatabase(Banco) Sql = "INSERT INTO PcAtualizado ( CodCategoria, Descricao ) " Sql = Sql & "SELECT Categorias.CodCategoria, Categorias.Categoria " Sql = Sql & "From Categorias WHERE CodCategoria LIKE '" & PosCate & "'" Atualiza.Execute Sql

cara pelo que eu entendi, você tem uma tabela de pedido e deseja cadastrar os produtos! se for isto tu ira ter de fazer uma tabela detalhesdopedido e quando der o addnew na tabela pedidos na hora de selecionar os produtos você faz insert into na tabela de detalherdopedido, isto evita de você abrir uma outra janela para o usuario cadastrar os detalhes! Pelo que eu entendi era isso se não for de mais detalhes do que você quer fazer!!! está beleza! Abraços!

Ola pessoal to fazendo um add new em um form, e quando eu fizer este add.new eu preciso fazer um insert into em uma outra tabela. eu fiz o codigo Set Atualiza = Workspaces(0).OpenDatabase(Banco) Sql = "INSERT INTO PcAtualizado ( CodCategoria, Descricao )" Sql = Sql & "SELECT Categorias.CodCategoria, Categorias.Categoria " Sql = Sql & "WHERE Categorias.CodCategoria='" & PosCate & "'" Sql = Sql & "FROM Categorias" Atualiza.Execute Sql O qual funcionou, porem quando vou fazer uma segunda inserção ele inseri o primeiro novamente! Saca dai não da certo duplica os registro então eu fiz o codigo! Dim PosCate As String PosCate = Txt(0).Text Set Atualiza = Workspaces(0).OpenDatabase(Banco) Set Atualiza = Workspaces(0).OpenDatabase(Banco) Sql = "INSERT INTO PcAtualizado ( CodCategoria, Descricao )" Sql = Sql & "SELECT Categorias.CodCategoria, Categorias.Categoria " Sql = Sql & "From Categorias WHERE (((Categorias.CodCategoria) = '" & PosCate & "'))" Onde este PosCate é o Codigo que ele deve se orientar, porem na hora de executar ele não aceita o PosCate, só que se eu colocar no lugar do PosCate o codigo que deve ser referenciado a instrução da certo! Se alguém puder me ajudar eu agradeço!

cara outra alternativa é você criar uma tabela de produto e fazer outra subtabela componentes ex. tab produtos Codigo Produto 1 Suco 2 misto tab componentes codigo codigoProduto Componente Qtde 1 1 Laranja 1 2 1 Acucar 1 3 2 pao 1 4 2 Mussarela 1 Daí na hora de dar baixa você faz um update será baixado na tabela estoque todos os componente que tiverem o codigoproduto igual ao codigo do produto que está sendo vendido! Saca!!! é só uma ideia se quiser o codigo acho que posso passar alguma coisa! Abraços!

1º - Só se tu fizer ele manual, eu tenho um que á alguns centimetros abaixo do top do form, aconselho a utilizar um frame com botoes e utilizar o index dos botoes para facilitar na escrita do codigo, por ex. CmdCadastro(0).caption = Cadastro CmdCadastro(1).caption = Cliente CmdCadastro(2).caption = Fornecedores CmdRel(0).caption = Relatorios CmdRel(1).caption = Cliente CmdRel(2).caption = Fornecedores Saca. dai com este frame você vai ter de trabalhar os clicks do cmd's, pro exemplo clicou no cmdcadastro(0).caption a frame com os cmdcadastro(1 e 2) ficam visiveis, dai clicou no cmdcadastro(1) por ex esta mesma frame fica invisivel e abre o form desejado! é bem mais trabalhoso mas fica do jeito que você quer? 2º cara da uma olhada no site http://www.macoratti.net/ole.htm você vai conseguir com isto, se não conseguir responda aqui que eu t passo os macetes. 3º o Vb trabalha da seguinte forma, para conexão com bd, você pode inserir objetos datas, ado e via codigo! Eu trabalho mais com o Data1 que é facil de usar, porem as vezes deixa a desejar! muitos foruns ensinam com o ado ou via codigo! Mas o data1 pra iniciante é mais aconselhavel. neste objeto você tem de configurar o databasename para o local onde você salvou o banco de dados o recordsource para a tabela que você criou no bco de dados Aconselho a começar a programar com o bd access pois é mais facil e da um lida em expressoes sql pois o vb trabalha bem com estas expressoes e da pra você fazer muitas coisas com elas! Bom eu espero ter ajudado, se ficou algo obscuro posta ai que depois nois vê blza! Abraços!

cara eu trabalho com o controle data da uma olhada neste codigo, acho que ira t ajudar eu uso ele no lost da combo que o usuario coloca a cidade há e eu utilizo também o dbcombo, prq eu posso listar o que tem na tabela cidade e ainda adicionar na tabela clientes a cidade escolhida! DtaCidade.Recordset.FindFirst "Cidade like '" & DbcCid.Text & "*'" If DtaCidade.Recordset.NoMatch Then MsgBox "Cidade Inexistente!", vbInformation, "Localizar" Else Cmb(6).Text = DtaCidade.Recordset.Fields("Sigla") Exit Sub End If

cara ótimo codigo, só vai mais uma dica, eu não sei quanto a vocês, mas quando eu vi o codigo, acho que pela tradução automatica encontrei uma escrita que me deu trabalho. la na parte do regsvr ele está escrito assim regsvr32 tipo \VB6IDEMouseWheelAddin.dll caminho <> E na verdade o caminho vem na frente e entre aspas!!! regsvr32 "D:\Vb6.0 Completo\Scrool do Vb\VB6IDEMouseWheelAddin.dll" Ok Abraços a todos, E como é bom usar o scroll!!!! kakakaka

quando vou reinstalar da o seguinte erro? component´nslock17vb5.ocx´or one of its dependecies not correctly registrered a file is missing or invalid cara quando você cria um programa em vb você cria um package, que é todas as dll e ocx que o programa precisa, como você não tem este package, inton você tera de executar o programa e ver todas as ocx que ele esta pedindo baixalas na net e depois joga-las no windows\sistem32, lembrando nem sempre da certo! Mas você pode tentar isto! está ok Espero ter ajudado!