Duas Dúvidas!

[Xavier]

ae galera, preciso solucionar esses problemas urgente porque eu to fazendo um prog de estoque no meu trampo e num to conseguindo fazer duas coisas q não parece ser tão difíceis...

como eu faço pra formatar uma caixa de texto como "Data dd/mm/aa"?

olhe a imagem:

eu fui nas propriedades da caixa de texto e coloquei no formato q eu queria, mas na hora de rodar num funfou entaum eu era obrigado a colocar as barras da data e tal...

o outro problema é q eu quero fazer uma tabela (acredito q seja do excel) pra guardar uns dados... olhem a imagem:

entaum, quero q esses dados fiquem guardados no meu banco de dados e tal...

OBS: Essas imagens acima é de um programa q meu tio tem na firma dele, mas como ele quer fazer umas alterações, ele pediu pra mim tentar fazer e tal... entaum num vão pensar q é plágio porque eu num sou dessas...

valeu!!!

[PiGmEu]

Opa!.

Sobre o primeira duvida... voce pode ta usando o comando Format: Texto = Format(texto, "dd/mm/yyyy")

Sobre a Segunda Duvida eu não entendi muito bem.. voce quer armazenar as coisas em um banco de dados seria isso?? se for.. sua duvidade é de como armazernar em um banco de dados?

abaixo vo colocar um exemplo disso...

no General do form voce coloca isso:

      Dim cnn As New ADODB.Connection      
      Dim tabela As New ADODB.Recordset
      Dim sql As String



Abrindo uma conexao ADO
    cnn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\BD.mdb"




Adicionando os valores a tabela

    sql = "Insert Into tabela(campo01, campo01)values('" & text1.text & "', '" & text2.text & "')"

    If tabela.State = 1 Then tabela.Close

    cnn.Execute sql

pega meu ICQ qualquer coisa...

[Eddie_666]

Texto = Format(texto, "dd/mm/yyyy")

no caso, como tu quer o ano com dois digitos, seria

Texto = Format(texto, "dd/mm/yy")

[PiGmEu]

Texto = Format(texto, "dd/mm/yyyy")

no caso, como tu quer o ano com dois digitos, seria

Texto = Format(texto, "dd/mm/yy")

esqueci de falar esse detalhe! :)

vlw eddie

[Xavier]

ae Pigmeu, valeu pela ajuda, mas o q eu queria mesmo em relação em guardar em banco de dados, armazenar eu já sei, eu só queria inserir uma tabela igual akela imagem postada acima pra aparecer dentro do programa na hora de rodar... o q eu estou fazendo é o seguinte:

- A atendente digita o nº do pedido e respectivamente, em todos os campos aparecerá todos os dados do cliente q fez o pedido pelo mesmo (Endereço, Telefone, etc, etc) até aí eu já fiz tudo certo, só q na parte inferior do programa, aparecerá akela tabela com todos os dados dos produtos q foram solicitados... entaum, só q agora, não sei como inserir a tabela (tenho quase certeza q seja do Excel) e muito menos guardar os dados dela no meu banco de dados...

eu sei q tá meio confuso, mas um pouco de confusão faz bem pro raciocínio...

valeu mais uma vez! e valeu Eddie também!

fui...

[Guest - PiGmEu -]

Ae cara tipo ve se eu entendi.. o cara pega e digita em um TEXT o codigo 01

ai em um grid dentro do programa aparece todos os dados é isso??

bom se for segue o codigo abaixo usando um MSFLEXGrid

Obs: no grid vou colocar 3 campos apenas.. depois so seguir a logica

grid1.row = 0
grid1.col = 0

grid1.tex = tabela("campo1")
grid1.col = 1
grid1.text = tabela("campo2")
grid1.col = 2
grid1.text = tabela("campo3")

ai se o grid for uma busca multipla(q mostre mais de um item), voce joga um DO WHILE ou um FOR i, pra ele ir rodando....

qualquer coisa.. pega meu ICQ ae: 126553805

[Xavier]

ae, já peguei seu icq!! mas só uma coisa! aquele eskema lá de data num funfou aki!! eu coloquei em várias situações e nenhuma rodou!! num tem como vocês passarem o código completo e como usar? valeu mesmo hein!!

[PiGmEu]

ae, já peguei seu icq!! mas só uma coisa! aquele eskema lá de data num funfou aki!! eu coloquei em várias situações e nenhuma rodou!! num tem como vocês passarem o código completo e como usar? valeu mesmo hein!!

Xavier, ve se eu entendi agora o q voce quer:

o usuario digita: 121203 ou 12122003

ai vai ter q aparecer: 12/12/03 ou 12/12/2003

seria isso? se for usa essa string abaixo

Text1 = Format(Text1, "00/00/00") ' para ano com 2 digitos

Text1 = Format(Text1, "00/00/0000") ' para ano com 4 digitos

se voce so quer acrescentar as "/" nos campos, coloca isso no validade do text.

[]´s