Rafael Portal

Eu sei fazer desta forma: Private Sub CmdVerifica_Click() Dim Cont As Integer Dim Palavra As String Cont = InStr(1, Text1.Text, " ", vbTextCompare) Palavra = Mid(Text1.Text, 1, Cont) MsgBox Palavra End Sub Espero ter ajudado... Mas com relação as outras duas perguntas eu estou por fora.. Oks, Rafael Portal

Olá, gente é o seguinte... Estou usando MySQL... Logo tenho que fazer no meu programa um script que crie a base de dados... até ai tudo bem.. Mas o que eu quero fazer é o seguinte ... Depois que o script foi executado a base de dados vai estar existindo logo eu quero verificar se a base de dados existe ou não... O que eu quero é que a resposta seja sim... Para que o script não seja executado novamente... Tipo... If MinhaBaseDeDadosExiste = True Then .... .... Else ExecutaScript End If Fico MUITO agradecido por quem me ajudar... Oks, Rafael Portal

Cara.. tu estuda programação???? Ou tu só não conhece VB????? O teu problema para começar é conexão com banco ??? Componentes ???? O que você precisa ???? Oks, Rafael Portal

Olá gente .... É o seguinte.. estou tentando ler um *.ini... Mas o problema é que eu quero ler somente a segunda linha para pegar as informações: Eu quero ler somente a informação "Caminho", alguém sabe me dizer como se faz????? Tipo antes eu precisei ler a primeira linha mas isso é fácil: Dim Numero As String Dim Cont As Integer Dim Conteudo As String Open App.Path & "\CadDocs.ini" For Input As #1 Line Input #1, CodLote Cont = InStr(1, CodLote, "=", vbTextCompare) CodLote = CInt(Mid(CodLote, Cont + 1, Len(CodLote))) Close #1 Bom agora eu preciso ler a segunda linha ... Agradeço a todos.. Oks, Rafael Portal

Opa... Este eu consegui resolver já galera valeu!!!!!

Alguém sabe por que acontece o Erro "3001":

Estas são as formas, acho que a de número é que a se encaixa pra decimal: Espero que seja isso.... Oks, Rafael Portal

Bom eu fiz os mesmo passos que tu disseste e não rolou também... Abraços

Ahhhh.... uma coisa muito legal também é quando você tem que passar por muitos eventos até a parte aonde você quer debugar então você pode fazer o seguinte... Rode o programa e vá até o evento que você quer debugar pressione CTRL + PauseBreak e debugue a partir dali pressionando F8 e outra também é quando você está debugando e passou da parte que você queria dai você se indiguina e pensa "Bah, vou ter que debugar tudo denovo!", não, não é só pressiona CTRL + F9 que aonde você colocar o cursor do Mouse e sua debugação volta.... Muito bala isso facilita um monte noss vida... Abraços galera..

Olá Graymalkin... Bom mas tem uma coisa... eu não quero verificar no formulário atual.. tipo eu tenho um MDIForm e quero fazer a verificação se um MDIChild está aberto.. por exemplo eu tenho que verificar pelo MDIForm se o Child está aberto ou não entende... Tipo... quero saber se ele está ativo .. ou se ele tem o foco .. Abraços. Rafael Portal

Olá Graymalkin, eu achei interessante este tópico e tentei fazer também o que tu falaste mas quando eu cliquei no link aparece este XML: <?xml version="1.0" encoding="UTF-8" standalone="yes" ?> - <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"> <assemblyIdentity version="0.64.1.0" processorArchitecture="x86" name="Controls" type="win32" /> <description>Seu Programa</description> - <dependency> - <dependentAssembly> <assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="X86" publicKeyToken="6595b64144ccf1df" language="*" /> </dependentAssembly> </dependency> </assembly> Era pra baixar um arquivo né?? Mas apareceu isso.... Abraços.. Rafael Portal

Ihh eu tinha procurado por piscar, valeu Wiliam!!

Valeu Wiliam!!

Olá William, eu fiz a pesquisa para confirmar o que tu me disseste mas não encotrei resultados... Abraços...

Ahh.. E tem outra... Quando eu debuguei descobri que os valores armazenados em Rs!HoraInicial, Rs!HoraFinal é Null.... Alguém sabe me dizer por que será que o valor está vindo como Null se o valor EXISTE??????? Agradecido..... Rafael Portal

Olá gente é o seguinte, estou usando VB6, ADO, MYSQL .. Bom é o seguinte estou trabalhando com tipo de dados time por que tenho que fazer marcação de horários etc... Então.... Quero buscar dados no banco usando este sql: SELECT C.Nome, H.HoraInicial, H.HoraFinal, H.Data, S.Servico FROM Clientes C, Horarios H, Servico S WHERE C.CodCliente = H.CodCliente AND S.CodServico = H.CodServico ORDER BY DATA Bom eu estou usando a interface do PhpMyAdmin para trabalhar com o banco MySQL, e testei este sql para ver se ele me trazia os dados que eu precisava.... Ótimo consegui obter este resultado: Perfeito.. Mas no VB estou tentando carregar um LisView exatamente com estes mesmos dados... Só que acontece um erro: Private Sub CarregaLvw() sSql = "Select C.Nome, H.HoraInicial, H.HoraFinal, H.Data, S.Servico from Clientes C, Horarios H, Servico S where C.CodCliente = H.CodCliente And S.CodServico = H.CodServico ORDER BY Data" AbreBanco (sSql) Me.LvwHorarios.ListItems.Clear Do While Rs.EOF = False Set Lvw = Me.LvwHorarios.ListItems.Add Lvw.Text = Rs!Nome Lvw.SubItems(1) = Rs!Servico Lvw.SubItems(2) = Rs!Data Lvw.SubItems(3) = Rs!HoraInicial ' Aqui gera erro Lvw.SubItems(4) = Rs!HoraFinal ' Aqui gera erro Rs.MoveNext Loop End Sub O erro que acontece é o seguinte: Bom eu não sei como fazer com que os tipos sejam compatíveis.. eu presumo que os dados são trazidos como string não???? Alguém sabe qual a solução????? Eu fico MUITO agradecido com quem me ajudar... Rafael Portal

Olá Galera.. Tipo eu gostaria de saber como é que eu faço pra verificar quando o meu formulário está minimizado ou sem o foco???? Tipo eu quero que quando o meu formulário receber o foco ou for restaurado ele faça um evento ... Vces saberiam me dizer???? Agradecido.. Rafael Portal

Gente eu gostaria de saber como é que se faz para que quando minha aplicação estiver minimizada ou não estiver com o foco que aconteça que ela fique piscando na barra de ferramentas..... Tipo igual ao MSN Messenger por exemplo... quando tem uma mensagem nova ele fica piscando... Alguém sabe fazer isso ???? Agradecido.. Rafael Portal

Gente eu gostaria de saber como é que se calcula o intervalo de tempo do Timer.... Tipo eu quero fazer umas verificações de 5 em 5 minutos mas eu não sei quanto eu tenho que colocar na propriedade interval... Agradeço muito a quem me responder..... Rafael Portal

Olá Natarelli dá uma olhada no código da minha função que abre o banco .. Tu vai ver que o RecordSet está aberto sim!!! Por isso que é estranho o erro que acontece... Public Function AbreBanco(ByVal sSql As String) As Boolean Dim Caminho As String Set Conexao = New ADODB.Connection Set Rs = New ADODB.Recordset Set Rs = CreateObject("ADODB.Recordset") On Error GoTo Erro Caminho = "\\davi\CadGeral\DbCadastroTotal.mdb" Set Conexao = CreateObject("ADODB.Connection") Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source= " & Caminho & ";" & _ "User Id=admin;" & _ "Password=;" Rs.Open sSql, Conexao, adOpenKeyset, adLockOptimistic AbreBanco = True Erro: If Err.Number = "-2147467259" Then MdiFPrincipal.StBar.Panels(2) = "Não conectado ao banco" Exit Function End If End Function

Vou procurar tratar todos os erros então.... Valeu galera..!!!!

Bom o básico eu sei ... tipo na propriedade GridLines tu passa o valor pra True ... bom para carregar um ListView eu faço assim: Public Sub CarregaLvw() ' Uma sub pra carregalo Dim Lvw As ListItem ' Tipe-o Me.Lvw.ListItems.Clear ' pra não repetir tudo sSql = "Select * from Clientes" 'o meu sql AbreBanco (sSql) ' a minha função de conexao que executa o sql Do While Rs.EOF = False ' Enquanto for não final de banco Set Lvw = Me.Lvw.ListItems.Add(, , Rs!CodCliente) ' Seto o ListView Lvw.Text = Rs!Nome 'Primeira coluna que é o "Text" recebe o nome Lvw.SubItems(1) = Rs!Telefone ' SubItems(1) recebe telefone Rs.MoveNext ' Move próximo Loop ' aqui tu sabe (hehe) Rs.Close 'fecha o Recordset End Sub Bom e dai tem as propriedades do ListView que tem que configurar: View - LvwReport Arrange - LvwAutoTop LabelEdit - LvwManual E a propriedade FullRowSelect tem que ser True Bom, espero ter ajudado...... Qualquer dúvida estamos ai... Valeu

Olá gente é o seguinte estou tentando carregar um ListView mas desta ves aconteceu um erro que eu não conhecia gostaria que vces me ajudassem a resolve-lo: Public Sub CarregaLvw() Dim Lvw As ListItem Dim CodCliente As Integer Dim Data As String Data = Format(Date, "dd/mm/yyyy") sSql = "Select C.Nome, L.Lembrete from Cliente C, Lembrete L Where Data = #" & Data & "#" AbreBanco (sSql) Do While Rs.EOF = False 'Aqui gera o Erro Set Lvw = Me.Lvw.ListItems.Add(, , Rs!CodCliente) Lvw.Text = Rs!Nome Lvw.SubItems(1) = Rs!Lembrete Rs.MoveNext Loop Rs.Close End Sub Este é o Erro: Alguém sabe como resolver?????? Desde já agradecido.. Rafael Portal

Não... Eu quero saber se tem como fazer tipo... INDEPENDENTE do erro o programa não fechar.. Tem como ???? Agradecido, Rafael Portal

Gente é o seguinte... Eu fiz um programa em que no formulário de cadastro de clientes todos os "text's" após ser digitado alguma coisa as letras ficam maiúsculas... Tipo estou usando um UCASE no evento LostFocus do text.... Mas o problema é que o meu cliente quer que seja no momento em que está sendo digitado.. É possível isso???? Já testei em outros eventos mas não funcionou.... Se tem como alguém poderia me dizer como???? Desde já agradecido, Rafael Portal