| Hjem | Hardware | Netværk | Programmering | software | Fejlfinding | systemer | 
Programmering  
  • C /C + + Programming
  • Computer Programmeringssprog
  • Delphi programmering
  • Java programmering
  • JavaScript Programmering
  • PHP /MySQL programmering
  • Perl programmering
  • Python Programming
  • Ruby Programming
  • Visual Basics Programmering
  •  
    Computer Viden >> Programmering >> Visual Basics Programmering >> Content
    Sådan får du adgang Parse Data
    Vide, hvordan man parse og få adgang parsede data kan spare dig tid, når at udvikle en database applikation. Ofte database administratorer nødt til at parse data i en database felt og føje den til andre tabeller , eller bruge den på andre måder. Du kan udføre denne opgave ved hjælp af Microsoft Office Access . Access er en relationel database management system inkluderet i Microsoft Office-pakken. I Access kan du bruge Visual Basic for Applications ( VBA ) at analysere og få adgang parsede data. Ting du skal
    Microsoft Office Access
    Vis Flere Instruktioner
    1

    Start Microsoft Office Access og vælg " Tom database " og derefter klikke på "Opret ". Klik på " Database Tools " og derefter vælge "Visual Basic "

    Skriv følgende for at oprette en ny procedure : ". . Enter "

    Private Sub parseFieldData ()

    Tryk på < br >
    2

    Skriv følgende at erklære de variabler, du vil bruge, mens parsing af data : Hej

    Dim sSQL As String

    Dim db Som Database

    Dim rst Som Recordset

    Dim cellIntArray (4) As String

    Dim x As Integer

    Dim y As Integer

    Dim fldStr As String

    Dim pos As Integer

    Set db = CurrentDb
    3

    Skriv følgende for at oprette en ny tabel til at holde de data, du vil parse : Hej < p> sSQL = " CREATE TABLE tblParseData ( fieldData TEXT (100 )), "

    DoCmd.SetWarnings False

    DoCmd.RunSQL ( sSQL )

    sSQL = " INSERT INTO tblParseData VALUES ( ' Denne sætning vil blive analyseret .') ; "

    DoCmd.RunSQL ( sSQL )
    4

    skrive følgende for at søge i data , du har tilføjet til bordet i forrige trin : Hej

    Set rst = db.OpenRecordset ( "Select tblParseData * fra tblParseData , ").

    rst.MoveFirst

    fldStr = rst.Fields (0). value
    5

    Skriv følgende for at føje de parsede data til en String matrix : Hej

    x = 0

    pos = InStr (1, fldStr , "")

    Do While fldStr < > " "

    cellIntArray (x) = Venstre ( fldStr , pos )

    fldStr = Right ( fldStr , Len ( fldStr ) - pos )

    pos = InStr (1, fldStr , "")

    x = x + 1
    p Hvis pos = 0 Then

    cellIntArray ( x ) = fldStr

    fldStr = " "

    End If

    Loop
    6

    Skriv følgende for at få adgang til parsede data fra array : < br >

    y = 0 til x

    Debug.Print cellIntArray (y)

    Næste y
    7

    Skriv følgende for at lukke din Recordset og database : Hej

    rst.Close

    db.Close

    Forrige :

    næste :
      Relaterede artikler
    ·Sådan Søg efter data i en fil med VB Script 
    ·Sådan oprettes en DSN Brug af en API -kode 
    ·Sådan slettes et regneark Event i VBA 
    ·Sådan Beregn Azimuth i VB 
    ·Sådan vises et regneark i Visual Basic Express 
    ·Sådan bruges faner i Visual Basic 
    ·Sådan oprettes en Valider Field i VB6 
    ·Hvordan til at udfylde websider i VBA 
    ·Sådan får du adgang e-mail med Visual Basic 
    ·Sådan konvertere en streng Into en Datoformat 
      Anbefalede Artikler
    ·Ulemperne ved Ruby programmering 
    ·Sådan Program valg i en batch-fil 
    ·Hvordan man laver en VBS fil 
    ·Sådan ændres Animationer Med VB Software 
    ·Sådan aktiveres en knap med wxPython 
    ·Hvordan afrunder kommatal i Python 
    ·Tutorial for en PHP Session Log 
    ·The Round Method i Java 
    ·Sådan Indsæt et tidsstempel i PHP MySQL 
    ·Sådan flytte et billede med X & Y i JavaScript 
    Copyright © Computer Viden http://www.computerdk.com