Programação  
 
Conhecimento computador >> Programação >> Programação Visual Basics >> 
Como inserir um registro no banco de dados VBA
VBA é uma linguagem de programação desenvolvida pela Microsoft para uso dentro de uma série de produtos da Microsoft, incluindo o Microsoft Office. Os programadores podem criar bancos de dados em um programa , como o Access , e , em seguida, inserir dados no banco de dados de outro aplicativo, como o Excel. Acessando um banco de dados para inserir um registro em que a partir do VBA requer uma conexão com o banco de dados de dentro de seu código VBA , a criação e inserção de registros de um banco de dados em Visual Basic for Applications é bastante fácil para um programador novato para realizar em poucos passos . Instruções
1

Abra o Microsoft Excel.
2

Clique em "Ferramentas ", " Macro" e clique em " Visual Basic" . Isto irá abrir o ambiente de programação VBA.
3

Clique em "Inserir " e " Módulo ". Agora você está em um módulo de código de programação
4 Tipo

ou copie e cole as seguintes subprocedimentos no módulo de código : .

Sub ADOFromExcelToAccess ()

' exportações dados da planilha ativa para uma tabela em um banco de dados Access

' este procedimento deve ser editado antes do uso

Dim cn As ADODB.Connection , rs Como ADODB.Recordset , r as Long < br >

' conectar-se ao banco de dados Access

Set cn = New ADODB.Connection

cn.Open "Provider = Microsoft.Jet.OLEDB.4.0; " & _

"Data Source = C: \\ FolderName \\ databasename.mdb ; "

' abrir um conjunto de registros

Set rs = New ADODB.Recordset

rs.Open " TableName " , cn , adOpenKeyset , adLockOptimistic , adCmdTable

" todos os registros em uma tabela

r = 3 ' a linha de partida na planilha

do While Len ( Range (" a " & r). Formula) > 0

' repeat até a primeira célula vazia na coluna A

Com rs

. AddNew ' Criar um novo recorde

' adicionar valores para cada campo no registro

. Fields ( " NomeCampo1 ") = Range (" a" & r). Valor

. Fields ( " FieldName2 ") = Range (" B " & r). Valor

. Fields ( " FieldNameN ") = Range (" C " & r). Valor

"adicionar mais campos , se necessário ...

. Atualização das lojas o novo álbum
finais

Com

r = r + 1 ' próxima linha

loop

rs.Close

Set rs = Nothing

cn.Close

Set cn = Nothing

End Sub

O modelo de código cria uma conexão com um banco de dados Access e VBA insere vários registros dentro dela. Certifique-se de substituir o nome da pasta eo nome do banco de dados com o banco de dados real e nome da pasta para que isso funcione .

Anterior :

Próximo : No
  Os artigos relacionados
·Como copiar TreeView em VB6 
·Como usar o ListView para visualizar o conteúdo da pas…
·Como fazer um resumo para um Script 
·Como usar o DataGridView para o MySQL em VB.NET 
·Como calcular o tamanho do bloco para DataSets VB 
·Como adicionar um Shard com o Índice de Katta 
·Como Loop através de resultados em LINQ to SQL 
·Como fazer um gráfico de pontos no Visual Basic 2008 
·Como excluir uma revisão no SolidWorks API 
·Como criar um controle do MSChart para uma dispersão X…
  Artigos em destaque
·Como criar uma calculadora com Javascript 
·Como converter Índice PHP Array para números 
·Como criptografar e Watermark um PHP PDF 
·Como obter informações DSN Usando Java 
·Como criar e-mail de confirmação em PHP 
·Como ler um arquivo CSV para Java 
·Como programar com Python no Ubuntu 
·Como usar o Java para ler Excel 
·Como sincronizar blocos de código em Java 
·Conceitos em programação Java 
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados