/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
datetime string format
Fra : Per Juul Larsen


Dato : 14-08-07 21:01

Hej..
jeg henter datetime indformation fra en mysqldatabase.
Feltet ses sådan eks. "2007-05-02 10:00:23"

I VB ser feltet sådan ud "02-05-2007 10:00:23"
hvordan får jeg vendt datoen til 2007-05-02

min kode ser sådan ud :
---*
Do While dcexport.Recordset.EOF = False
For fieldnum = 0 To dcexport.Recordset.Fields.Count - 1
cellstring = "mkdir L:\" + Chr(34) + "Documents and Settings" +
Chr(34) + "\breve\filer\" &
Left(dcexport.Recordset.Fields(fieldnum).Value, 10)
Next
Print #1, cellstring
cellstring = ""

dcexport.Recordset.MoveNext
Loop
Close #1
dTaskID = Shell(path + " " + file, vbNormalFocus)
--*

 
 
Gert Krabsen (14-08-2007)
Kommentar
Fra : Gert Krabsen


Dato : 14-08-07 21:36

Per Juul Larsen wrote:
> Hej..
> jeg henter datetime indformation fra en mysqldatabase.
> Feltet ses sådan eks. "2007-05-02 10:00:23"
>
> I VB ser feltet sådan ud "02-05-2007 10:00:23"
> hvordan får jeg vendt datoen til 2007-05-02
>
> min kode ser sådan ud :
> ---*
> Do While dcexport.Recordset.EOF = False
> For fieldnum = 0 To dcexport.Recordset.Fields.Count - 1
> cellstring = "mkdir L:\" + Chr(34) + "Documents and Settings" +
> Chr(34) + "\breve\filer\" &
> Left(dcexport.Recordset.Fields(fieldnum).Value, 10)
> Next
> Print #1, cellstring
> cellstring = ""
>
> dcexport.Recordset.MoveNext
> Loop
> Close #1
> dTaskID = Shell(path + " " + file, vbNormalFocus)
> --*


Nu kan jeg ikke lige få øje på datetime noget sted i din kode men
bortset fra det, så er der nok ingen vej uden om en konvretering via en
række substr()
Hvis du laver convert-rutinerne som funktioner, så kan de genbruges..

Per Juul Larsen (15-08-2007)
Kommentar
Fra : Per Juul Larsen


Dato : 15-08-07 06:32

Gert Krabsen skrev:
> Per Juul Larsen wrote:
>> Hej..
>> jeg henter datetime indformation fra en mysqldatabase.
>> Feltet ses sådan eks. "2007-05-02 10:00:23"
>>
>> I VB ser feltet sådan ud "02-05-2007 10:00:23"
>> hvordan får jeg vendt datoen til 2007-05-02
>>
>> min kode ser sådan ud :
>> ---*
>> Do While dcexport.Recordset.EOF = False
>> For fieldnum = 0 To dcexport.Recordset.Fields.Count - 1
>> cellstring = "mkdir L:\" + Chr(34) + "Documents and Settings" +
>> Chr(34) + "\breve\filer\" &
>> Left(dcexport.Recordset.Fields(fieldnum).Value, 10)
>> Next
>> Print #1, cellstring
>> cellstring = ""
>>
>> dcexport.Recordset.MoveNext
>> Loop
>> Close #1
>> dTaskID = Shell(path + " " + file, vbNormalFocus)
>> --*
>
>
> Nu kan jeg ikke lige få øje på datetime noget sted i din kode men
> bortset fra det, så er der nok ingen vej uden om en konvretering via en
> række substr()
> Hvis du laver convert-rutinerne som funktioner, så kan de genbruges..
OK tak for svar..

datatime feltet er fra Mysql databasen. Det burde jeg have nævnt.

mvh pjl

Gert Krabsen (15-08-2007)
Kommentar
Fra : Gert Krabsen


Dato : 15-08-07 07:57

Per Juul Larsen wrote:
> Gert Krabsen skrev:
>
>> Per Juul Larsen wrote:
>>
>>> Hej..
>>> jeg henter datetime indformation fra en mysqldatabase.
>>> Feltet ses sådan eks. "2007-05-02 10:00:23"
>>>
>>> I VB ser feltet sådan ud "02-05-2007 10:00:23"
>>> hvordan får jeg vendt datoen til 2007-05-02
>>>
>>> min kode ser sådan ud :
>>> ---*
>>> Do While dcexport.Recordset.EOF = False
>>> For fieldnum = 0 To dcexport.Recordset.Fields.Count - 1
>>> cellstring = "mkdir L:\" + Chr(34) + "Documents and Settings" +
>>> Chr(34) + "\breve\filer\" &
>>> Left(dcexport.Recordset.Fields(fieldnum).Value, 10)
>>> Next
>>> Print #1, cellstring
>>> cellstring = ""
>>>
>>> dcexport.Recordset.MoveNext
>>> Loop
>>> Close #1
>>> dTaskID = Shell(path + " " + file, vbNormalFocus)
>>> --*
>>
>> Nu kan jeg ikke lige få øje på datetime noget sted i din kode men
>> bortset fra det, så er der nok ingen vej uden om en konvretering via
>> en række substr()
>> Hvis du laver convert-rutinerne som funktioner, så kan de genbruges..
>
> OK tak for svar..
>
> datatime feltet er fra Mysql databasen. Det burde jeg have nævnt.


Det havde du skam nævnt. Men i dit kodeeksempel indgår feltet ikke, og
det var det, der forvirrer mig


mvh

Toke Herkild (16-08-2007)
Kommentar
Fra : Toke Herkild


Dato : 16-08-07 06:55

Gert Krabsen skrev:
> Per Juul Larsen wrote:
>> Gert Krabsen skrev:
>>
>>> Per Juul Larsen wrote:
>>>
>>>> Hej..
>>>> jeg henter datetime indformation fra en mysqldatabase.
>>>> Feltet ses sådan eks. "2007-05-02 10:00:23"
>>>>
>>>> I VB ser feltet sådan ud "02-05-2007 10:00:23"
>>>> hvordan får jeg vendt datoen til 2007-05-02
>>>>
>>>> min kode ser sådan ud :
>>>> ---*
>>>> Do While dcexport.Recordset.EOF = False
>>>> For fieldnum = 0 To dcexport.Recordset.Fields.Count - 1
>>>> cellstring = "mkdir L:\" + Chr(34) + "Documents and Settings" +
>>>> Chr(34) + "\breve\filer\" &
>>>> Left(dcexport.Recordset.Fields(fieldnum).Value, 10)
>>>> Next
>>>> Print #1, cellstring
>>>> cellstring = ""
>>>>
>>>> dcexport.Recordset.MoveNext
>>>> Loop
>>>> Close #1
>>>> dTaskID = Shell(path + " " + file, vbNormalFocus)
>>>> --*
>>>
>>> Nu kan jeg ikke lige få øje på datetime noget sted i din kode
>>> men bortset fra det, så er der nok ingen vej uden om en konvretering
>>> via en række substr()
>>> Hvis du laver convert-rutinerne som funktioner, så kan de genbruges..
>>
>> OK tak for svar..
>>
>> datatime feltet er fra Mysql databasen. Det burde jeg have nævnt.
>
>
> Det havde du skam nævnt. Men i dit kodeeksempel indgår feltet ikke, og
> det var det, der forvirrer mig
>
>
> mvh

Mener DateTime Objektet har en formaterings rutine hvor du kan angive
hvorledes den ønskes vist. eg:
if Fieldnum = num_mysql_DateTime_field then
dim Date as DateTime = Date.Parse(RS.Field(fieldnum).Value)
Date.FormatStr = "yyyy-mm-dd hh:mm:ss"
returnStr = Date.ToString
end IF

Er ikke testet prøv dig frem

Mvh
Toke

Per Juul Larsen (16-08-2007)
Kommentar
Fra : Per Juul Larsen


Dato : 16-08-07 18:39

Toke Herkild skrev:
> Gert Krabsen skrev:
>> Per Juul Larsen wrote:
>>> Gert Krabsen skrev:
>>>
>>>> Per Juul Larsen wrote:
>>>>
>>>>> Hej..
>>>>> jeg henter datetime indformation fra en mysqldatabase.
>>>>> Feltet ses sådan eks. "2007-05-02 10:00:23"
>>>>>
>>>>> I VB ser feltet sådan ud "02-05-2007 10:00:23"
>>>>> hvordan får jeg vendt datoen til 2007-05-02
>>>>>
>>>>> min kode ser sådan ud :
>>>>> ---*
>>>>> Do While dcexport.Recordset.EOF = False
>>>>> For fieldnum = 0 To dcexport.Recordset.Fields.Count - 1
>>>>> cellstring = "mkdir L:\" + Chr(34) + "Documents and Settings" +
>>>>> Chr(34) + "\breve\filer\" &
>>>>> Left(dcexport.Recordset.Fields(fieldnum).Value, 10)
>>>>> Next
>>>>> Print #1, cellstring
>>>>> cellstring = ""
>>>>>
>>>>> dcexport.Recordset.MoveNext
>>>>> Loop
>>>>> Close #1
>>>>> dTaskID = Shell(path + " " + file, vbNormalFocus)
>>>>> --*
>>>>
>>>> Nu kan jeg ikke lige få øje på datetime noget sted i din kode
>>>> men bortset fra det, så er der nok ingen vej uden om en konvretering
>>>> via en række substr()
>>>> Hvis du laver convert-rutinerne som funktioner, så kan de genbruges..
>>>
>>> OK tak for svar..
>>>
>>> datatime feltet er fra Mysql databasen. Det burde jeg have nævnt.
>>
>>
>> Det havde du skam nævnt. Men i dit kodeeksempel indgår feltet ikke, og
>> det var det, der forvirrer mig
>>
>>
>> mvh
>
> Mener DateTime Objektet har en formaterings rutine hvor du kan angive
> hvorledes den ønskes vist. eg:
> if Fieldnum = num_mysql_DateTime_field then
> dim Date as DateTime = Date.Parse(RS.Field(fieldnum).Value)
> Date.FormatStr = "yyyy-mm-dd hh:mm:ss"
> returnStr = Date.ToString
> end IF
>
> Er ikke testet prøv dig frem
>
> Mvh
> Toke
tak for gode svar.
mvh pjl

Søg
Reklame
Statistik
Spørgsmål : 177549
Tips : 31968
Nyheder : 719565
Indlæg : 6408820
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste