Frage : Import fällt für „Daten Typumwandlung error aus

Ich habe Rohtextakten, die ich in Zugang importiere, da TBL_Data.
I den angebrachten Code, der die Textdateien in ein table.
anders als die Spaltenüberschriften importiert, alle Daten ist numbers.
The Import zuweist automatisch jedes Feld haben, während eine TEXT Daten-Art value.

I Notwendigkeit die Daten-Art, Zahl also ich zu sein SUMMEN-Fragen für reports.

When schreiben kann, das ich die Daten-Art zur Zahl in der Tabelle Import scipt Ausfallen mit einer „Daten-Art converson Störung“ änderte.

The Debugger bezieht diese Linie des Codes:
" rstImportData (strFields (lngField)) = strValues (lngField) „sind

What ich verfehlend??? 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:

Public Funktion ImportData2800 ()
    Const IMPORT_FOLDER als Schnur = „C:\Shared\Reports\Data\“
    Schwaches dbsCurrent als DAO.Database
    Schwaches fldField als DAO.Field
    Schwaches intFile als ganze Zahl
    Schwaches lngField als lang
    Schwache strFields () als Schnur
    Schwaches strFile als Schnur
    Schwaches strLine als Schnur
    Schwaches strTable als Schnur
    Schwaches strDevice als Schnur
    Schwache strValues () als Schnur
    Schwaches rstImportData als DAO.Recordset
    Schwaches tdfTableDef als DAO.TableDef

    'Prozessakten
    Gesetztes dbsCurrent = CurrentDb
    strFile = Dir (IMPORT_FOLDER u. „\ *.txt“)
    Bis strFile = tun ""

        'Geöffnete Akte
        intFile = FreeFile
        Geöffnetes IMPORT_FOLDER u. strFile für Eingangs-Zugang lasen geteilt, wie #intFile

        'Die Vorlagentabelle hier nennen
        strTable = „TBL_DATA“ 'ändern mich zu, was auch immer Sie wünschen

        'Die Vorrichtung nennen
        strDevice = verließ (strFile, Len (strFile) - 4)
         
        'Spaltenüberschriften lesen
        Wenn nicht EOF (intFile) dann
            Linie eingegebenes #intFile, strLine
            strFields = aufspalteten (strLine, vbTab)
        Beenden wenn

        'Dieses sollte alle doppelten Zeilenabstände loswerden.
        Für J = 0 zu UBound (strFields)
            strFields (j) = ersetzen (strFields (j), „„,“ ")
        Zunächst
        'Die Spalte für die Vorrichtung in unsere Liste der Spalten hinzufügen
        ReDim Konserve strFields (0 zu UBound (strFields) + 1) als Schnur

        strFields (UBound (strFields)) = „Vorrichtung“

        'Tabelle herstellen, wenn notwendig
        tdfTableDef einstellen = nichts
        Auf Störungs-Zusammenfassung zunächst 'fehlende Tabelle ignorieren
        Das tdfTableDef = dbsCurrent.TableDefs (strTable) einstellen
        Auf Störung Goto- 0
        Wenn tdfTableDef nichts dann ist
            Das tdfTableDef = dbsCurrent.CreateTableDef (strTable) einstellen
        Beenden wenn

        'Felder verursachen, wenn notwendig
        Für lngField = 0 zu UBound (strFields)
            fldField einstellen = nichts
            Auf Störungs-Zusammenfassung zunächst 'fehlende Felder ignorieren
            fldField = tdfTableDef.Fields (strFields (lngField) einstellen)
            Auf Störung Goto- 0
            Wenn fldField nichts dann ist
                fldField = tdfTableDef.CreateField (strFields (lngField), dbText) einstellen 'verursachen immer Textfelder
                tdfTableDef.Fields.Append fldField
            Beenden wenn
        Zunächst

        'Datumsstempel-Datumfeld verursachen, wenn notwendig
        fldField einstellen = nichts
        Auf Störungs-Zusammenfassung zunächst 'Vermisstfeld ignorieren
        fldField = tdfTableDef.Fields („DateStamp“) einstellen
        Auf Störung Goto- 0
        Wenn fldField nichts dann 'kein DateStamp Feld ist
            fldField = tdfTableDef.CreateField („DateStamp“, dbDate) einstellen
            fldField.DefaultValue = „Datum ()“
            tdfTableDef.Fields.Append fldField
        Beenden wenn

        Auf Störungs-Zusammenfassung zunächst 'vorhandene Tabelle ignorieren
        dbsCurrent.TableDefs.Append tdfTableDef
        Auf Störung Goto- 0
        'Akte lesen
        Das rstImportData = CurrentDb.OpenRecordset (strTable) einstellen
        Bis EOF tun (intFile)
            Den #intFile Eingang, strLine zeichnen
            strValues = aufspalteten (strLine, vbTab)
            ReDim Konserve strValues (0 zu UBound (strValues) + 1) als Schnur
            strValues (UBound (strValues)) = strDevice
            'Importdaten
            rstImportData.AddNew
            Für lngField = 0 zu UBound (strValues)
                rstImportData (strFields (lngField)) = strValues (lngField)
            Zunächst
            rstImportData.Update
        Schleife
        rstImportData.Close

        'Nahe Akte
        Nahes #intFile
        strFile = Dir
    Schleife
Enden-Funktion

Antwort : Import fällt für „Daten Typumwandlung error aus

Dieser Artikel löste mein Problem.  Ich tat alles in diesem Artikel, und in der Lage war, WSUS SP 1. wieder zu installieren.

http://social.technet.microsoft.com/Forums/en-US/winserverwsus/thread/6d14231f-50f0-4a3c-b9f1-417e1efdb288
Weitere Lösungen  
 
programming4us programming4us