Danleonhart

Olá Van2011 ! Olha, criei uma pequena função que talves te ajude, mas precisa de algumas configurações em sua TextBox... Public Function CPF(Valor) Dim V(1 To 5) As String V(1) = Mid(Valor, 1, 3) & "." V(2) = Mid(Valor, 4, 3) & "." V(3) = Mid(Valor, 7, 3) & "-" V(4) = Mid(Valor, 10, 2) V(5) = V(1) & V(2) & V(3) & V(4) CPF = V(5) End Function 1º-Na TextBox que vai usar, configure a opção "MaxLengt = 11", assim ela só vai aceitar os algarismos necessários; 2º-No evento KeyPress da TextBox, insira o código abaixo...ele evita que o usuário digite outra coisa além de números: Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 46 Or KeyAscii = 44 Then KeyAscii = 0 Exit Sub ElseIf (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 44 Then KeyAscii = 0 End If End Sub Adapte para seu TextBox :) *** Editado *** Esquecí de mencionar, para usar a função no TextBox desejado basta colocá-lo entre parênteses na sequência: CPF(TextBox.Text) Até ! ;) :D

Só complementando o que o Kuroi falou, fica assim: Private Sub Form_Load() txtcodigo.Text = Format(Now,"ddMMyyyyHHMMSS") End Sub Seguindo o exemplo citado ;) :D

Oi Vick ! Segundo sua dúvida, seria assim: No Botão OK do Form2: Private Sub BtnOK_Click() Form1.Show Unload Me End Sub Seria interessante você dizer como chama o Form2 a partir do Form1... é por um botão também ? :huh:

Matheus... Certa vez precisei colocar em um Botão a ação da tecla DELETE... então me falaram ser possível com a Função SendKeys(): http://scriptbrasil.com.br/forum/index.php?showtopic=156007 Acho que é por aí cara :) Boa sorte !

Olá Matheus ! Bem, tentei entender teu esquema, mas me perdí :D depois com mais calma vou ler passo a passo todo ele... agora, se é para ocultar o arquivo, você faz assim: SetAttr App.Path & "\Teste.txt", vbHidden e para mostrar novamente: SetAttr App.Path & "\Teste.txt", vbNormal Beleza ?! Valeu cara ! ;)

OK ! :rolleyes: Fiz com o FSO mesmo ;) Sub SalvarEndBanco() If txt_cam.Text = Empty Then MsgBox "Nenhum caminho de arquivo encontrado na Caixa de Texto.", vbExclamation, "Informação." Exit Sub Else Set Fil = FSO.OpenTextFile(App.Path & "\Temp.txt", ForWriting, True) Fil.Write txt_cam.Text Fil.Close MsgBox "Base salva.", vbInformation, "Informação." End If End Sub Tenho uma TextBox onde é colocado o endereço da Base (pode ser feito utilizando também o componente Commom Dialog para facilitar a busca); Se a caixa estiver vazia é dado um aviso por meio de Caixa de Mensagem; Caso esteja preenchida, então o endereço da Base de Dados é salvo em um arquivo ".txt". :closedeyes: :rolleyes:

OK pessoal ! Deu certo das duas maneiras :) Meu Módulo ficou assim: Global Con As ADODB.Connection Global Rs As ADODB.Recordset Public FSO As New Scripting.FileSystemObject Public Fil As Scripting.TextStream Public Sub ABase() Set Fil = FSO.OpenTextFile(App.Path & "\Temp.txt", ForReading, True) Set Con = New ADODB.Connection Con.Open Fil.ReadAll End Sub Public Sub FcBs() Con.Close End Sub Assim fica fácil alterar a Base de dados que se deseja acessar. VALEU ! :rolleyes:

Olá Frata ! Quando ocorre erro desse tipo, é porque há alguma váriavel não configurada ( Set variavel = blablabla...) No caso de se tratar com Bancos de dados, deve ser "RecordSet" ou a "ConnectionString"...tou chutando cara ;) Agora uma dica para facilitar a compreensão de todos do fórum: Quando ocorre erros, o VB-6 abre uma caixa de diálogo, escolha a opção "Debug" e o VB destaca a "linha do erro", geralmente em amarelo: Então, basta colocar a "Sub" ou "Function" que apresentou o erro que assim fica mais fácil de ser detectado o erro... :D No exemplo, eu propositalmente deixei sem "setar" o RecordSet (Rs.Open), e apresentou o mesmo erro que você citou...então, acho que tem algum RecordSet sem estar "setado"... :rolleyes: :rolleyes: :rolleyes:

Pessoal, Tem como anular essa primeira Coluna do DataGrid ? No VB.NET é em uma das propriedades, mas no VB-6 rodei e não encontrei :blink:

Seguinte, tenho uma variável que é preenchida com o caminho do Banco de Dados logo quando a aplicação é iniciada...e tenho em um Módulo a configuração para acesso a Base: Global Con as ADODB.Connection Private Caminho as String Public Function ABase() Set Con = New ADODB.Connection Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Caminho End Function Onde "Caminho" contém o endereço da base de dados...então, é possível alocar na Function essa variavel ?

Podes dá um exemplo ? Também estive pensando em usar o FSO para receber o texto de uma TextBox e gravar em um arquivo ".txt", mas só vou ver isso quando chegar em casa :).

Seguinte: Estou tentando criar uma aplicação com a mesma utilidade do arquivo ".UDL"... Então, como devo fazer para que uma vez gravado a string de conexão, sempre que aberto a aplicação reconheça a última configuração feita para acesso a base de dados... Tipo: Minha aplicação funciona dependendo do Banco de Dados, então: Se configurado para acessar o BD : "C:\dados.mdb" então a aplicação sempre abrirá este banco, até alguém configurar outro...mesma coisa do UDL... acho que dá para entender né :D ?!

OK Kuroi... Havia alterado o formato do Campo do BD para "YYYY-MM-DD", e também na aplicação...mas não é necessário alterar no BD...como você citou, apenas na busca, filtragem ou seja qual for a query ;) . Resolvido. :D

Pessoal... Já pesquisei na NET (Google)... até em site "Chinês & Japonês" e não encontrei... Tem como definir o Zoom do DataReport do VB-6 ? Gostaria de definir em 50%, via código ou seja lá como for :wacko: Já tentei, sem sucesso...notei que ao digitar a palavra "zoom", o sistema do VB-6 corrige para "Zoom", e sempre que isto ocorre é porque trata-se de textos definidos da aplicação...bem não sei né...só uma teoria minha :rolleyes: se tem como e alguém souber, posta aê...que até os gringos estão apanhando nessa dúvida ;) .

Certo Kuroi, vou tentar...só me diz qual devo configurar, se o script da aplicação ou o formato do Campo no BD... :unsure:

Seguinte: Pretendo executar uma busca no BD (Access) em que a Coluna de filtragem está como "Data", tenho o script abaixo para fazer esta filtragem: Set rs = New ADODB.Recordset rs.Open "select * from ProdGeral where ProdData between #" & DT1 & "# and #" & DT2 & "#", con Do Until rs.EOF Lst1.AddItem rs("ProdData") & vbTab & rs("ProdGeral") rs.MoveNext Loop Ou seja, DT1 e DT2 são DataPickers configurado com formato "DD/MM/YYYY", e o Campo no BD está configurado como "Data/Hora", e a opção "Formato" deixei do jeito que o Access configurou: "Data Geral". Suponhamos que no BD haja dados a partir do dia 01/02/2011 até 05/03/2011... então, se executo uma consulta para filtrar de 01/02/2011 a 10/02/2011 ocorre tudo bem...se faço de 20/02/2011 a 05/03/2011 também ocorre tudo certo... Mas se coloco de 01/03/2011 a 05/03/2011 ele apresenta os dados desde o dia 01/02/2011 ! <_< Então, já tentei corrigir modificando o "Formato" no Campo do BD para DD/MM/YYYY...igual como está os DTPickers...quero deixar claro de que também configurei devidamente os DTPickers: DT1 = Format(DPicker1.Value, "dd/mm/yyyy") DT2 = Format(DPicker2.Value, "dd/mm/yyyy") Pessoal, ajudinha aê :rolleyes::) ! Já tentei de tudo que conheço e não tive sucesso... :blush:

Valeu Kuroi ! Dessa maneira eu já tinha colocado ;)... e tá dando certo. Pensei que tivesse algo com "Select Year()"...ou "Select Day()"...baseando-me em sua postagem...e sendo mais voltado para o SQL do que para o próprio Access :D, resumindo...viajei legal :blush: Não sabia que no SQL pode-se anular o "#"...quando migrar vou dá atenção a este detalhe... VALEU CARA !!! :) :D :lol:

Kuroi: Você pode deixar um exemplo usando Datas ? Já tinha lido o link, mas não entendí...os exemplos de lá são muito vago... Coloca um tipo: "Selecionar tudo da Tabela1 onde As DATAS fiquem entre: 10-01-11 e 10-02-2011." Agradeço... :rolleyes:

É :D funcionou mesmo ! Testei em outro projeto com datas, onde estava tendo dificuldades para filtrar as datas e deu certo também :D Set rs = New ADODB.Recordset rs.Open "SELECT * FROM ProdGeral WHERE MID(ProdData,1,5)='" & Data & "'", con Do Until rs.EOF Lst1.AddItem rs("ProdGeral") rs.MoveNext Loop Depois vou adaptar com o "Between" para filtrar entre datas solicitadas ;) Valeu Matheus !

Pessoal... Quero fazer uma busca em uma Coluna de uma Tabela onde seja selecionado tudo, porém somente os que inicie com determinado parametro... EX: Existe na coluna Clientes: Ana Paula Ana Maria Ana Márcia Angélica Angela Andressa Se digitado na caixa de busca apenas "an", então listar todos que iniciam com tais letras...no caso do exemplo, todos. Se Digitado "ang", apenas "Angela e Angélica seriam listados... Lí sobre a função SQL MID(), mas pelo que entendí ela "pega" as letras, e não toda a "Linha" que compõem...

Kuroi : Reparei que esta função tem seus limites :unsure: Tentei executar o script: Dim A as String A = "Kuroi" MsgBox A Ele não executa :( Acho que porque tem mais de uma linha de script...então tentei: Dim A as String:A = "Kuroi":MsgBox A Me baseando em: MsgBox "Kuroi":MsgBox "Monitor":MsgBox "ScriptBrasil" esse funcionou...mas o anterior não... :blink: :unsure: :unsure: :unsure: :unsure: :unsure:

Para Bancos sem senha deve funcionar com o script até o ".mdb;"...até o ";" (ponto e vírgula). mas uso assim: "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Database.mdb;Persist Security Info=False" ;)

Kuroi... É porque usei este script aqui em uma mini-aplicação que criei, e que limpava a pasta temporária...só com a função "Shell" : Sub LimparTemp() Dim Comando1 As String Dim Comando2 As String Comando1 = "DEL %Temp%\ /f /q" Comando2 = "RD %Temp% /s /q" Shell ("cmd.exe /c" & Comando1) Shell ("cmd.exe /c" & Comando2) End End Sub Viu o "c"?! então, viajei né :rolleyes: Como tenho curiosidade e necessidade em aprender a usar API´s, lí das inumeras funcionalidades que a API "ShellExecute" tem em relação com a "Shell" do VB :closedeyes: . Resolví usá-la nessa aplicação... Obrigado pelas dicas !

Olá Mathe :) É cara, a forma que o Matheus-vb6 citou está correta, se o que você quer é inserir no BD Access...as formas de inserção tanto no SQL quanto no Access são as mesmas... Esse script que você citou está bem complicado...há dois RecordSet's declarados nele... e, se é para inserção de dados, não há necessidade de usar RecordSet, apenas a string que contém a conexão com a base de dados. Este script é uma consulta ao banco e não uma inserção no banco :blink: ... ele está efetuando uma consulta e preenchendo TextBoxes com o resultado... :blush: Te aconselho a quando tiver dúvidas, relacionadas a bancos de dados, dá umas pesquisadas nos tópicos de Setembro de 2010 para presente data...pois perguntei (pertubei :D) bastante sobre esse assunto aqui no ScriptBrasil...o pessoal é nota 10 para explicar e sugerir ;) Valeu e boa sorte em seus estudos !

CARACA !!! O site que perdí é esse mesmo ! http://allapi.mentalis.org/ :D Não quero deixar em um ".BAT", ou os usuários (curiosos e xeretas) poderão editá-lo :angry: . (um dia eu fui assim também :blush: ) Quanto a executar o script, se não me engano é "c" para o MS-DOS dá sequência na linha... :closedeyes: Obrigado pelas infos...vou fuçar as API's, preciso aprender a usá-las com mais convicção ! :D .