Importation VBScript Date, Général de Temps En MS Access Colonne Date/Heure

Installation

J'ai un VBScript pour conduire les tests de résistance d'un service web. Le script crée un fichier de données de mesures, avec chaque enregistrement horodaté avec un général de date/heure:

FormatDateTime(Now(), 0)

Cela crée des dates comme

mm/dd/yyyy hh:mm:ss [AM|PM]

J'ai besoin d'importer ce fichier de données dans MS-Access 2003 base de données. La table dans la base de données Access a une colonne appelée TimeStamp avec un type de données de Date/Time et le format de General Date.

D'importation spec a un champ nommé Timestamp avec un Type de Date de Date/Time. Dans le Dates, Times, and Numbers image les options suivantes sont sélectionnées:

Date Order: MDY
Date Delimiter: /
Time Delimiter: :
Four Digit Years: Checked

Le fichier de données est séparé par des tabulations avec des noms de champ dans la première rangée.

Problème

Quand j'importe mon fichier de données, chaque enregistrement échoue sur le champ Timestamp avec un Type Conversion Failure erreur.

Question

Est-il un moyen d'importer les données telles qu'elles sont, ou dois-je d'abord "massage" le champ timestamp dans les 24 heures format de date/heure? Dans ce dernier cas, est-il un moyen de formater le timestamp dans mon code VBScript pour écrire la date/heure au format 24 heures? J'ai essayé

FormatDateTime(Now(), "mm/dd/yyyy hh:mm:ss")

mais VBScript barfed à l'.

Êtes-vous en remplissant le champ de la date à partir de VBScript, ou êtes-vous écrire la date dans un fichier et l'importer dans la DB?
Le VBScript est l'écriture de l'écriture de données dans un fichier plat (séparateur: tabulation) et l'horodatage de chaque enregistrement. Depuis que j'ai plus de 450 000 enregistrements dans le fichier, je voudrais importer dans Access afin de filtrer, de requête et de faire des analyses.

InformationsquelleAutor Patrick Cuff | 2009-01-13

1

VBScripts FormatDateTime fonction n'a pas de soutien général des chaînes de format seulement une contrainte ensemble de constantes et 0 est le seul choix que vous avez à inclure à la fois la date et l'heure.

Pourrait-il être la présence de l'AM/PM qui est à l'origine de la confusion?

Vous êtes dans une locale?

Essayer SetLocale(2057)

Ce qui met le script dans l'en-GB (royaume-UNI) paramètres régionaux. La valeur par défaut de la date format de l'heure est jj/mm/aaaa hh:mm:ss. Ses 24 heures peut-être que votre importation préférez ce format.

InformationsquelleAutor AnthonyWJones

Pourquoi ne pas sauter le fichier de données et écrire les résultats directement à la base de données?

EDIT:
Ou utiliser ce script pour déplacer des données à partir du fichier de la DB.


Set DataFile = CreateObject("Scripting.FileSystemObject").OpenTextFile("FileName",1)

Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=database.mdb"

Set objRecordset = CreateObject("ADODB.Recordset")
objRecordset.CursorLocation = 3
objRecordset.Open "SELECT * FROM TableName" , objConnection, 3, 3

Do Until DataFile.AtEndOfStream
    arrTemp = Split(DataFile.ReadLine, vbTab)
    If IsArray(arrTemp) Then
        objRecordset.AddNew
        objRecordset("FieldName1") = arrTemp(0)
        objRecordset("FieldName2") = arrTemp(1)
        objRecordset("FieldName3") = arrTemp(2)
        objRecordset.Update
    Else
        'Only one item of data is on this line
    End If 
Loop 

DataFile.Close
objConnection.Close
Set DataFile = Nothing
Set objRecordset = Nothing
Set objConnection = Nothing

C'est une pensée, mais aurait besoin d'un peu d'une vaste intervention chirurgicale pour les scripts j'ai hérité. Peut-être dans le long terme...

InformationsquelleAutor Tester101

1

De cette lien; je peux imiter VB est Format() fonction pour formater la date de 24 heures, date/heure:
```
Function Format(vExpression, sFormat) 

    set fmt = CreateObject("MSSTDFMT.StdDataFormat") 
    fmt.Format = sFormat 

    set rs = CreateObject("ADODB.Recordset") 
    rs.Fields.Append "fldExpression", 12 ' adVariant 

    rs.Open 
    rs.AddNew 

    set rs("fldExpression").DataFormat = fmt 
    rs("fldExpression").Value = vExpression 

    Format = rs("fldExpression").Value 

    rs.close: Set rs = Nothing: Set fmt = Nothing 

End Function
```
De l'article:

La MSSTDFMT objet dépend de la
la disponibilité de MSSTDFMT.dll qui est
installé par Visual Studio 6.0.

L'MSSTDFMT.dll semble être disponible sur Windows XP et Windows 2003 server, je l'ai vérifié quelques machines qui n'ont jamais eu de MS Visual Studio est installé et la DLL était présent.

J'ai changé mon code VBScript pour utiliser cette fonction pour mettre les dates dans un format d'Accès peut importer:
```
Format(Now(), "mm/dd/yyyy hh:mm:ss")
```
- Excellent. Peu importe, je pense toujours que vous devez importer ISO plutôt que dans le local format de la date - MS est connu pour se tromper quand il y a une certaine ambiguïté.
- Malheureusement, il ne semble pas Accès reconnaît ISO dates lors de l'importation soit, peu importe la façon dont la colonne est définie.
InformationsquelleAutor Patrick Cuff
0

Je ne sais pas si cela peut aider, mais est-il possible pour vous de traiter votre date de sortie dans votre VBScript pour s'assurer que les dates ont les zéros à gauche et à 4 chiffres? Si vous le faites, alors vous pouvez l'importer comme un champ de texte, puis de traiter, parce que vous savez que les 10 premiers caractères sont sans équivoque date, et puis vous pouvez analyser le temps avec un peu de bits de données de massage. Si ce n'est pas possible, mais vous savez qu'il y a un ESPACE entre la date et l'heure, puis vous pourrait de nouveau à l'importation comme du texte et les analyser à la date de l'heure à l'aide de l'espace de votre délimiteur, et ensuite traiter le champ heure.

Je sais que vous avez dit que vous ne voulez pas avoir à analyser les données après l'importation, mais si vous ne pouvez pas obtenir à l'importation des données dans un format que l'Accès puisse processus, alors vous n'avez pas le choix.

Une autre pensée:

Avez-vous essayé d'Excel fonctionnalité d'importation? Il peut ressembler à l'Accès à l'importation en surface, mais il devient souvent vous completedy résultats différents sur les mêmes données.

Désolé je ne peux pas proposer quelque chose de définitif, si.

InformationsquelleAutor David-W-Fenton

Vous devez vous connecter pour publier un commentaire.