Ako vytvoriť pomocou programu Schema.ini súbor v programe Access 2000

DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.

Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem:210001
Tento článok bol archivovaný. Je publikovaný v aktuálnej podobe a už nebude aktualizovaný.
Microsoft Access 97 verziu tohto článku, pozri 155512.
Mierna: Vyžaduje základné makro, kódovanie a interoperabilitu zručnosti.

Tento článok sa uplatňuje iba na Databáza programu Microsoft Access (.mdb).

SUHRN
Tento článok vám ukáže, ako písať postup, vytvorí súbor Schema.ini na základe existujúcej tabuľky v databáze.
DALSIE INFORMACIE
Spoločnosť Microsoft poskytuje príklady programovacieho kódu len ako názornú ukážku bez ľubovoľnej vyjadrenej alebo implicitnej záruky. Toto zahŕňa, okrem iného, implicitné záruky obchodovateľnosti a vhodnosti pre konkrétny účel. Úroveň odbornosti článku predpokladá, že ovládate predvádzaný programovací jazyk a nástroje, ktoré sa používajú na vytváranie a ladenie procedúr. Pracovníci technickej podpory spoločnosti Microsoft môžu pomôcť vysvetliť funkčnosť konkrétny postup, ale nie modifikuje tieto príklady poskytovať pridanú funkčnosť alebo výstavbe postupy splniť vaše konkrétne požiadavky.
POZNÁMKA: Vzorky kód v tomto článku používa Microsoft Data Access Objekty. Pre tento kód správne spúšťať musí referenčné Microsoft DAO 3.6 Objektová knižnica. Ak chcete tak urobiť, kliknite na Odkazy na Nástroje ponuka v editore jazyka Visual Basic a uistite sa, že Objektová knižnica programu Microsoft DAO 3.6 je začiarknuté políčko.

V programe Microsoft Access 2000, môžete prepojiť alebo otvoriť s oddeľovačmi a pevnou dĺžkou textové súbory. Prístup môžete prečítať textový súbor priamo, alebo môžete použiť informácie súbor s názvom Schema.ini na určenie vlastnosti textového súboru, ako napríklad stĺpec mená, pole dĺžky a typy údajov. Súbor Schema.ini je potrebný, keď ste odkaz alebo otvoriť pevnou dĺžkou textové súbory; je nepovinný pre súbory s oddeleným textom. Súbor Schema.ini musí sa nachádzať v rovnakom priečinku ako textový súbor (alebo súbory) že opisuje.

Postup v nasledujúcom príklade akceptuje štyri parametre:
   Parameter        Value   ------------------------------------------------------------------------   bIncFldNames     True/False, stating if the first row of the text file                    has column names   sPath            Full path to the folder where Schema.ini resides   sSectionName     Schema.ini section name; must be the same as the name                    of the text file it describes   sTblQryName      Name of the table or query for which you want to                    create a Schema.ini file				
UPOZORNENIE: Ak budete postupovať podľa krokov v tomto príklade, môžete upraviť vzorky databázu Northwind.mdb. Možno budete chcieť zálohovať databázu Northwind.mdb súbor a postupujte podľa týchto krokov na kópiu databázy.

  1. Spustite program Microsoft Access a otvorte ukážkovú databázu Databázu Northwind.mdb.
  2. Vytvoriť modul a potom zadajte nasledovný riadok v Vyhlásenia časti, ak už nie je:
    Možnosť explicitné
  3. Zadajte alebo prilepte nasledujúci postup:
    Public Function CreateSchemaFile(bIncFldNames As Boolean, _                                 sPath As String, _                                 sSectionName As String, _                                 sTblQryName As String) As Boolean   Dim Msg As String ' For error handling.   On Local Error GoTo CreateSchemaFile_Err   Dim ws As Workspace, db As DAO.DATABASE   Dim tblDef As DAO.TableDef, fldDef As DAO.Field   Dim i As Integer, Handle As Integer   Dim fldName As String, fldDataInfo As String   ' -----------------------------------------------   ' Set DAO objects.   ' -----------------------------------------------   Set db = CurrentDB()   ' -----------------------------------------------   ' Open schema file for append.   ' -----------------------------------------------   Handle = FreeFile   Open sPath & "schema.ini" For Output Access Write As #Handle   ' -----------------------------------------------   ' Write schema header.   ' -----------------------------------------------   Print #Handle, "[" & sSectionName & "]"   Print #Handle, "ColNameHeader = " & _                   IIf(bIncFldNames, "True", "False")   Print #Handle, "CharacterSet = ANSI"   Print #Handle, "Format = TabDelimited"   ' -----------------------------------------------   ' Get data concerning schema file.   ' -----------------------------------------------   Set tblDef = db.TableDefs(sTblQryName)   With tblDef      For i = 0 To .Fields.Count - 1         Set fldDef = .Fields(i)         With fldDef            fldName = .Name            Select Case .Type               Case dbBoolean                  fldDataInfo = "Bit"               Case dbByte                  fldDataInfo = "Byte"               Case dbInteger                  fldDataInfo = "Short"               Case dbLong                  fldDataInfo = "Integer"               Case dbCurrency                  fldDataInfo = "Currency"               Case dbSingle                  fldDataInfo = "Single"               Case dbDouble                  fldDataInfo = "Double"               Case dbDate                  fldDataInfo = "Date"               Case dbText                  fldDataInfo = "Char Width " & Format$(.Size)               Case dbLongBinary                  fldDataInfo = "OLE"               Case dbMemo                  fldDataInfo = "LongChar"               Case dbGUID                  fldDataInfo = "Char Width 16"            End Select            Print #Handle, "Col" & Format$(i + 1) _                            & "=" & fldName & Space$(1) _                            & fldDataInfo         End With      Next i   End With   MsgBox sPath & "SCHEMA.INI has been created."   CreateSchemaFile = TrueCreateSchemaFile_End:   Close Handle   Exit FunctionCreateSchemaFile_Err:   Msg = "Error #: " & Format$(Err.Number) & vbCrLf   Msg = Msg & Err.Description   MsgBox Msg   Resume CreateSchemaFile_EndEnd Function					
  4. Otestovať touto funkciou, napíšte nasledujúci riadok v Okamžitom okne pomocou správne jednotky a cesty pre databázu Northwind.mdb databáza, a potom stlačte kláves ENTER:
    ?CreateSchemaFile (True "C:\Program Files\Microsoft Office\Office\Samples\", "EMP.TXT","Zamestnancov")
  5. V textovom editore, ako napríklad Poznámkový blok alebo WordPad, otvorte Schema.ini súbor, ktorý ste vytvorili.

    Všimnite si, že súbor obsahuje nasledujúce informácie:
    [EMP.TXT]
    ColNameHeader = True
    CharacterSet = ANSI
    Formát = TabDelimited
    Stĺpci 1 = klíč Integer
    Col2 = LastName Char šírka 20
    Col3 = šírka KrstnéMeno Char 10
    Col4 = názov Char šírka 30
    Col5 = TitleOfCourtesy Char šírka 25
    Col6 = pole BirthDate dátum
    Col7 = HireDate dňa
    Col8 = adresa Char šírka 60
    Col9 = mesto Char šírka 15
    Col10 = región Char šírka 15
    Col11 = PSČ Char šírka 10
    Col12 = krajiny Char šírka 15
    Col13 = šírka TelefonDomů Char 24
    Col14 = rozšírenie Char šírka 4
    Col15 = Photo OLE
    Col16 = poznámky LongChar
    Col17 = ReportsTo Integer
ODKAZY
Pre viac informácie o súbore Schema.ini a itcontains informácie, kliknite na tlačidlo Pomocník programu Microsoft Access na Pomocník ponuka, typu Inicializuje sa zdroje údajov text a html v Asistentovi programu Office alebo Sprievodcu odpoveďami a potom kliknite na tlačidlo Vyhľadávanie Ak chcete zobraziť tému.
Text Import Export schémy ini
Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

Upozornenie: Tento článok bol preložený automaticky.

Vlastnosti

ID článku: 210001 – Posledná kontrola: 12/05/2015 11:17:15 – Revízia: 2.0

Microsoft Access 2000 Standard Edition

  • kbnosurvey kbarchive kbcode kbhowto kbprogramming kbmt KB210001 KbMtsk
Pripomienky