Tenho um formulario onde a data no load ja vem a data do micro no formato dd/mm/yyyy, como que eu faço para salvar na tabela ao inves de dd/mm/yyyy salvar ddmmyy????to salvando assim:

 

    Dim mn As Integer
    Dim yer As Integer
    cmd.Execute
    mn = Format(ldate, "mm")
    yer = Format(ldate, "yyyy")

 If mon = mn And yer = yy Then

cmd.CommandText = "insert into Vendas values('" & txtdata.Text & "')

cmd.Execute

end if

Uma idéia, seria, supondo-se que a data está aparecendo numa TextBox:

 

var_data = Mid(Text1, 1, 2) & Mid(Text1, 4, 2) & Mid(Text1, 9, 2)

 

Isso resultaria:

Data que aparece na TextBox: 16/04/2008

Data da variável var_data: 160408

 

Não sei se é isso que você precisa, mas enfim... é uma alternativa

 

Até mais.

Eu uso esta função

Function ConvDataVbOrcl(data_vb) As String

    'Converte data vb para oracle
    'Ex: 25/03/2000 23:59:59 -> 20000325235959
   
    If data_vb = "" Then
        ConvDataVbOrcl = ""
        Exit Function
    End If
   
    If Len(data_vb) <= 20 Then
        data_vb = data_vb & " 00:00:00"
    End If
   
    dia = Mid(data_vb, 1, 2)
    mes = Mid(data_vb, 4, 2)
    ano = Mid(data_vb, 7, 4)
    hora = Mid(data_vb, 12, 2)
    minuto = Mid(data_vb, 15, 2)
    seg = Mid(data_vb, 18, 2)
   
    ConvDataVbOrcl = ano & mes & dia & hora & minuto & seg
   
End Function

Variavel = Format(Date, "ddmmyy")

Lembrando que o campo no seu banco de dados tem que ser do tipo texto.