Tendo o conhecimento para converter um conjunto de células de uma string pode fazer o seu aplicativo de banco mais dinâmico. Microsoft Office Access é um sistema de gerenciamento de banco de dados relacional comumente usado para criar bancos de dados locais. Visual Basic for Applications (VBA) é a maneira mais rápida para automatizar tarefas de rotina no Access , tais como a conversão de um conjunto de células de uma string. Uma matriz de programação é uma variável que pode conter vários índices . Cada índice pode ter o seu próprio valor. A variável String é usado para armazenar dados de caracteres. Coisas que você precisa
Microsoft Office Access
Northwind banco de dados
Show Mais instruções
1

Abra o banco de dados Northwind do Microsoft Office Access. O banco de dados Northwind está incluído no pacote do Microsoft Office .
2

Clique em "Ferramentas de Banco de Dados ", selecione " Visual Basic " para abrir a janela do Microsoft Visual Basic. Clique no botão " Inserir" campo e selecione
3

Digite o seguinte para criar uma nova sub-rotina "Módulo ". :

Private Sub cellArrayToString ()

Pressione " Enter".
4

Digite o seguinte para criar novas variáveis ​​:

Dim strSQL as String Dim

db As Database

Dim rst Como Recordset

Dim cellIntArray (3) As Integer

Dim X As Integer Dim

minhaString As String

Set db = CurrentDb

5

Digite o seguinte para criar uma nova tabela e adicionar três novos recordes :

strSQL = " CREATE TABLE tblData (Número Id_Num ); "

DoCmd.SetWarnings false

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO VALUES tblData (0); "

DoCmd.RunSQL ( strSQL )

strSQL = " VALORES INSERT INTO tblData (1); "

DoCmd.RunSQL ( strSQL )

strSQL =" INSERT INTO VALUES tblData (2); "

DoCmd.RunSQL ( strSQL )
6

Digite o seguinte para abrir um novo conjunto de registros e consultar todos os dados do " tblData " : .

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

rst.MoveLast

rst.MoveFirst
7

Digite o seguinte para percorrer todos os registros e adicioná-los à matriz Integer :

Para X = 0 To rst.RecordCount - . 1

cellIntArray (X) = rst.Fields (0) Valor

rst.MoveNext

Próxima X

8

Digite o seguinte para converter a matriz celular Integer para uma variável String :

Para X = 0 To 2

minhaString = minhaString & cellIntArray (X ) e ","

Próxima X
9

Digite o seguinte para exibir o conteúdo da variável " minhaString " através de uma caixa de mensagem :

MsgBox minhaString

Digite o seguinte para liberar as variáveis ​​da memória :

rst.Close

db.Close