Saber analisar e acesso analisado dados você pode economizar tempo no desenvolvimento de um aplicativo de banco de dados . Muitas vezes, os administradores de banco de dados precisa analisar dados em um campo de banco de dados e adicioná-lo a outras tabelas ou usá-lo de outras maneiras. Você pode realizar essa tarefa usando o Microsoft Office Access. Access é um sistema de gerenciamento de banco de dados relacional incluídos na suíte Microsoft Office. No Access , você pode usar o Visual Basic for Applications (VBA) para analisar e acesso analisado dados. Coisas que você precisa
Microsoft Office Access
Mostrar Mais instruções
1

Comece Microsoft Office Access e selecione " Banco de Dados em Branco " , em seguida, clique em "Criar ". Clique em "Ferramentas de Banco de Dados " , em seguida, selecione " Visual Basic "

Digite o seguinte para criar um novo procedimento : .

Private Sub parseFieldData ()

Pressione " Enter".
Página 2

Digite o seguinte para declarar as variáveis ​​que você vai usar durante a análise dos dados:

Dim sSQL as String

Dim db As Database

Dim rst Como Recordset

Dim cellIntArray (4) As String

Dim x As Integer Dim y

As Integer Dim

fldStr As String
pos

Dim as Integer

Set db = CurrentDb
3

Digite o seguinte para criar uma nova tabela para armazenar os dados que você irá analisar :

sSQL = " CREATE TABLE tblParseData ( fieldData TEXT ( 100) ); "

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( sSQL )

sSQL = " INSERT INTO tblParseData VALUES (' Esta frase será analisado .') ; "

DoCmd.RunSQL ( sSQL )
4

Digite o seguinte para consultar os dados adicionados à tabela no etapa anterior:

Set rst = DB.OpenRecordSet ("Select * from tblParseData tblParseData ; ").

rst.MoveFirst

fldStr = rst.Fields (0). valor
5

Digite o seguinte para adicionar os dados analisados ​​para uma matriz de String :

x = 0

pos = InStr (1, fldStr , "")

Do While fldStr <> " "

cellIntArray (x) = Esquerda ( fldStr , pos)

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

pos = InStr (1, fldStr , "")

x = x + 1

Se pos = 0 Then

cellIntArray (x) = fldStr

fldStr = ""

End If

loop
6

Digite o seguinte para acessar os dados analisados ​​a partir da matriz :

Para y = 0 para x

Debug.Print cellIntArray (y)

Próxima y
7

Digite o seguinte para fechar o conjunto de registros e banco de dados:

rst.Close

db.Close