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

Preklady článku Preklady článku
ID článku: 210001 - Zobraziť produkty, ktorých sa tento článok týka.
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).

Rozbaliť všetko | Zbaliť všetko

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 = True
    CreateSchemaFile_End:
       Close Handle
       Exit Function
    CreateSchemaFile_Err:
       Msg = "Error #: " & Format$(Err.Number) & vbCrLf
       Msg = Msg & Err.Description
       MsgBox Msg
       Resume CreateSchemaFile_End
    End 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.
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.

Vlastnosti

ID článku: 210001 - Posledná kontrola: 20. októbra 2011 - Revízia: 2.0
Informácie v tomto článku sa týkajú nasledujúcich produktov:
  • Microsoft Access 2000 Standard Edition
Kľúčové slová: 
kbcode kbhowto kbprogramming kbmt KB210001 KbMtsk
Strojovo preložené
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

Odošlite odozvu

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com