BRAZIL MICROSOFT ACCESS DEVELOPER

VBA Access: Exportando registros para PARADOX - VBA Code to Import Paradox Table into Access

2012-01-28T06:54:00.001-08:00

Exportando registros a partir de uma query do MS Office Access para o banco de dados Paradox. Como posso fazê-lo?

Geralmente utilizo um query com dados a partir do MS Office Excel (*.xls), mas hoje quero enviar dados de planilhas que conectei ao MS Office Access.

Let ReportName = "qrySample"
Let ReportFilter = "RecordID = 1"
Let ExcelPath = "/Bernardes/" & Session.SessionID & ".xls"

Set MSAccess = Server.CreateObject("Access.Application")

MSAccess.OpenCurrentDatabase Application("DB")

MSAccess.DoCmd.SetWarnings False
MSAccess.DoCmd.OpenReport ReportName, 2, , ReportFilter
MSAccess.DoCmd.OutputTo 3, ReportName, "MicrosoftExcel(*.xls)", Server.MapPath(ExcelPath), False

MSAccess.DoCmd.Close 3, ReportName, 2
MSAccess.DoCmd.SetWarnings True

MSAccess.CloseCurrentDatabase

MSAccess.Quit 2

Set MSAccess = Nothing

Bem, uma breve recapitulação de alguma teoria neste ponto seria útil:

O Microsoft Jet e os Tipos de Dados

O Jet suporta uma grande quantidade de diferentes tipos de dados, garantindo total compatibilidade tanto com o Microsoft Access quanto com os tipos de dados definidos pelo padrão ANSI da SQL. A figura abaixo ilustra os tipos de dados disponíveis no mecanismo Jet e no padrão SQL associado, além de sua compatibilidade com os diversos tipos de dados do VB.

Modos de Interação da Aplicação com o Microsoft Jet Engine
O Visual Basic oferece duas formas de comunicação entre aplicações e o mecanismo Jet: o controle Data e os objetos de acesso a dados (DAO).

O controle Data faz parte da caixa de ferramentas padrão e pode ser inserido em formulários como qualquer outro controle. Seu papel é fazer intermediação entre a aplicação e um banco de dados de modo a automatizar tarefas comuns como inclusões, alterações, exclusões e navegação em meio à massa de registros.

Enquanto o controle Data lhe dá poder para acessar bancos de dados existentes com pouca programação, o modelo DAO é uma completa interface de programação que lhe dá total controle sobre o banco de dados. Esses dois recursos, porém, não são mutuamente exclusivos, podendo em muitas ocasiões até mesmo ser desejável combiná-los. Trataremos de início dos objetos de acesso a dados por ser um estudo que nos dará elementos para compreender melhor o uso do controle Data.

Biblioteca de Objetos de Acesso a Dados (DAO)
Um dos mais importantes recursos do Visual Basic é a sua biblioteca de objetos de acesso a dados ou DAO (Data Access Objects). São objetos que você pode criar em tempo de execução para acessar dados tanto em arquivos de banco de dados do Access - o banco de dados nativo do Visual Basic - como em outros tipos de banco de dados locais como dBase, Paradox e também acessar dados em bancos de dados cliente-servidor como o Microsoft SQL Server usando a tecnologia ODBC.

Os objetos de acesso a dados estão organizados numa hierarquia, na qual muitos objetos pertencem a coleções de objetos, que também, por sua vez, pertencem a outros objetos que lhes estão acima na ordem hierárquica. A completa hierarquia da DAO está ilustrada abaixo.

Estamos usando a palavra objeto para nos referirmos aos data access objects, mas na verdade não são objetos e sim de classes. Do mesmo modo como você cria instâncias de suas próprias classes, você o faz com os objetos de acesso a dados. Veremos isso nos exemplos. Antes faremos uma breve introdução aos objetos da DAO.

O Objeto DBEngine
No topo da hierarquia da DAO está o objeto DBEngine e corresponde ao dispositivo Microsoft Jet de acesso a dados. O objeto DBEngine é usado para ajustar os parâmetros do sistema de banco de dados utilizado pelo VB e para definir a área de trabalho default. O DBEngine é o único objeto que você não pode instanciar. Ele é criado automaticamente quando sua aplicação faz a primeira referência a um objeto da DAO.

O Objeto Workspace
Logo abaixo do objeto DBEngine, na hierarquia da DAO, está o objeto Workspace (área de trabalho). Esse objeto é utilizado para criar e identificar uma sessão de trabalho para um usuário. Ele contém os bancos de dados abertos e provê controle sobre transações simultâneas e segurança de acesso.

Um objeto Workspace default - Workspace(0) - é criado automaticamente na primeira referência a um objeto DAO pela aplicação. Ele pode ser inicializado com um Username (nome de usuário) e com uma Password (senha). Ao contrário de outros objetos Workspace, a área de trabalho default está sempre disponível, não podendo ser fechada nem removida da coleção Workspaces.

Objeto Database
O objeto Database representa um banco de dados, nativo do Jet ou não. É utilizado para definir as tabelas do banco de dados, relacionamentos entre tabelas, consultas armazenadas, além de permitir a abertura de objetos Recordset - que veremos mais adiante.

Objeto TableDef
O objeto TableDef corresponde a uma definição de tabela armazenada. Cada TableDef da coleção TableDefs representa a definição de uma tabela no banco de dados corrente, ou uma tabela externa anexada à base de dados. Neste último caso o objeto TableDef não pode ter seus atributos alterados.

Objeto QueryDef
O objeto QueryDef representa uma consulta escrita em linguagem SQL armazenada no banco de dados. Uma consulta armazenada é um comando SQL pré-compilado. É possível ler e modificar o código SQL de um objeto QueryDef, ajustar seus parâmetros e, então , executar a consulta.

Objeto Recordset
O objeto Recordset corresponde a uma visão ponteirada de uma tabela ou do conjunto de registros resultantes de uma consulta a uma ou mais tabelas. Uma visão ponteirada é o armazenamento de registros numa área de memória (buffer), apontando para um registro de cada vez, chamado registro corrente. O ponteiro (registro corrente) pode ser reposicionado em qualquer registro utilizando-se os métodos move, seek ou find. Ele permite a navegação, atualização e remoção das tabelas subjacentes ao recordset. Como a visão dos dados de um banco, o Recordset não contém ele mesmo os dados: apenas aponta para eles. Nesse sentido não é armazenado no banco, tendo utilização temporária. Quando um recordset é fechado, ele é removido da coleção Recordsets e todos os recursos associados são removidos da memória.

É possível a criação de três tipos de recordsets:

Tipo tabela: Um recordset tipo tabela corresponde a uma tabela do banco de dados. Quando um recordset desse tipo é aberto, o programador passa a ter acesso à tabela subjacente.

Tipo dynaset: Um recordset do tipo dynaset corresponde a uma tabela "virtual" resultante de uma consulta feita a uma ou mais tabelas. Ao ser atualizada, todas as alterações feitas no objeto se refletem imediatamente nas tabelas subjacentes.

Tipo snapshot: Um recordset do tipo snapshot é um conjunto estático de dados, similar ao dynaset porém não admite atualização. Outra diferença é que os snapshots têm o conjunto de registros carregado na memória. Se de um lado isso os torna mais rápidos, por outro cria o problema de haver conflitos com limitações de memória. Ajustam-se melhor para pequenas quantidades de registros que não precisam ser editados.

Objeto Field
O objeto Field corresponde a uma coluna de dados contendo um tipo de dado comum e um conjunto de atributos. É apenas um campo do banco de dados. Nesse sentido, os objetos TableDef, QueryDef, Recordset, e Index possuem coleções Fields. A coleção de objetos Field associada ao ponteiro de um recordset descreve um registro. Os dados do recordset são lidos e atualizados através da propriedade Value do objeto Field. Quando o ponteiro do recordset é movido e passa a apontar para um novo registro, todos os objetos Field da coleção Fields são automaticamente atualizados.

Objeto Index
O objeto Index representa um índice associado a um objeto TableDef ou Recordset, sempre do tipo tabela. O Índice corrente pode ser especificado num recordset tabela atribuindo-se um dos índices da coleção Indexes à sua propriedade Index. A atribuição da propriedade Index permite reordenar rapidamente os registros de uma tabela.

Objeto Parameter
O objeto Parameter representa um parâmetro de consulta armazenada no banco de dados. A coleção Parameters dos objetos QueryDef e Recordset permite ao programador acessar as informações contidas no parâmetro da consulta .

Um modo mais fácil de se importar, é por abrir o MS Office Access, escolher a opção importar e depois escolher o tipo de arquivo Paradox.

O MS Office Access Jet, através do MS Office Access, usando DAO / RDO / ADO), permite a abertura, manipulação, vinculação, e importação dos dados do Paradox. Caso a versão do Paradox seja superior a 5.0, poderá requer o BDE instalado. Nas versões anteriores funciona com ISAM nativo do Jet, não sendo necessário instalar a BDE.

Conexões strings ADO

Abaixo disponibilizarei exemplo de strings de conexão ADO que poderá usar ao se conectar a alguns dos tipos mais comuns de banco de dados.

Conectar qualquer fonte de dados usando um DSN ODBC (Data Source Name):

Você deve primeiro criar o DSN, isso pode ser feito usando o "ODBC Data Source Administrator" que se encontra no Painel de Controles ou nas Ferramentas Administrativas do seu computador.

Certifique-se de criar um DSN SYSTEM (não um DSN USER) ao criar uma solução ASP.

cn.Open "DSN=SystemDataSourceName;" & "Uid=userid;Pwd=userpassword"

PARADOX
Conectando o banco de dados Paradox via ODBC:

cn.Open "driver={Microsoft Paradox Driver (*.db )};" &
"driverid=538;fil=Paradox 5.X;" & "defaultdir=c:\foldername\;" & "dbq=c:\foldername\;collatingsequence=ASCII"

O espaço extra após os caracteres *.db é necessário.
Para atualizar os dados no Paradox ISAM será necessário o BDE (Borland Database Engine).

Já que vamos aprender a conectar o Paradox, podíamos aprender a fazer conexão a outras bases de dados, que tal?

Microsoft Office ACCESS

Conectando uma base de dados Access usando o padrão de segurança (standard security) OLEDB:

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\foldername\databasename.mdb;" & "User Id=admin;Password="

Conectando uma base de dados Access usando o padrão de segurança (standard security) ODBC:

cn.Open "driver={Microsoft Access Driver (*.mdb)};" & "dbq=c:\foldername\databasename.mdb;uid=admin;pwd="

Conectando uma base de dados Access usando um banco de dados do sistema de grupo de trabalho (workgroup system database) OLEDDB:

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

"Data Source=c:\foldername\databasename.mdb;" &

"Jet OLEDB:System Database=c:\foldername\systemdatabasename.mdw",

"userid", "userpassword"

Conectando uma base de dados Access usando um banco de dados do sistema de grupo de trabalho (workgroup system database) ODBC:

cn.Open "driver={Microsoft Access Driver (*.mdb)};" & "dbq=c:\foldername\databasename.mdb;" & "systemdb=c:\foldername\systemdatabasename.mdw;", "userid", "userpassword"

MS SQL

Conectando um servidor MS SQL usando o padrão de segurança (standard security) OLEDB:

cn.Open "Provider=sqloledb;" &

"Data Source=servername;" &

"Initial Catalog=databasename;" &

"User Id=userid;Password=userpassword"

Conectando um servidor MS SQL usando o padrão de segurança (standard security) ODBC:

cn.Open "driver={SQL Server};" & "server=servername;database=databasename;" & "uid=userid;pwd=userpassword"

Oracle

Conectar a um banco de dados Oracle* usando o provedor OLEDB Microsoft corrente:

cn.Open "Provider=msdaora;" & "Data Source=servername.world;" & "User Id=userid;Password=userpassword"

Conectar a um banco de dados Oracle* usando o provedor OLEDB Oracle corrente:

cn.Open "Provider=OraOLEDB.Oracle;" & "Data Source=servername.world;" & "User Id=userid;Password=userpassword"

Conectar a um banco de dados Oracle* usando o driver ODBC Microsoft corrente:

cn.Open "driver={Microsoft ODBC for Oracle};" & "server=servername.world;" & "uid=userid;pwd=userpassword"

Conectar a um banco de dados Oracle* usando o driver ODBC Oracle corrente:

cn.Open "driver={Oracle ODBC Driver};" & "dbq=databasename;" & "uid=userid;pwd=userpassword"

*

Lembre-se: É necessário definir o nome do banco de dados (databasename DBQ) no arquivo tnsnames.ora.

Sybase
Conectando um banco de dados Sybase ASE utilizando um provedor OLEDB:

cn.Open "Provider=Sybase.ASEOLEDBProvider;" & Srvr=servername,5000;" & "Catalog=databasename;" & "User Id=userid;Password=userpassword"

Conectando um banco de dados Sybase utilizando o driver ODBC Sybase System 12:

cn.Open "driver={SYBASE ASE ODBC Driver};" &

"srvr=servername;" &

"uid=userid;pwd=userpassword"

Conectando um banco de dados Sybase utilizando o driver ODBC Sybase System 11:

cn.Open "driver={SYBASE SYSTEM 11};" &

"srvr=servername;" &

"uid=userid;pwd=userpassword"

My SQL

Conectando o servidor OLEDB MySQL:

cn.Open "Provider=MySQLProv;" & "Data Source=MYSQLDB;" & "User Id=userid;Password=userpassword"

MS Excel

Conectando via OLEDB numa planilha Excel:

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

"Data Source=c:\foldername\workbookname.xls;" &

"Extended Properties=""Excel 8.0;HDR=Yes"""

Use "Excel 8.0" para planilhas criadas na versão Excel 97 ou posterior.

Use "Excel 5.0" para planilhas criadas na versão Excel 5 ou 95.

Use "HDR=Yes" se o data source tiver uma linha de cabeçalho ou um range nomeado.

Se "HDR=No" o recordset retornará conteúdo na primeira linha.

cn.Open "driver={Microsoft Excel Driver (*.xls)};" &

"driverid=790;dbq=c:\bernardes\Dashboard_Source.xls;" & "

defaultdir=c:\foldername"

DBASE

Conectando o banco de dados dBase via ODBC:

cn.Open "driver={Microsoft dBase Driver (*.dbf)};" &

"driverid=277;dbq=c:\bernardes"

Especifique o nome do arquivo quando você abrir o recordset

rs.Open "select * from tablename.dbf", cn, , , adCmdText

Você precisará do BDE (Borland Database Engine) para atualizar os arquivos DBASE.

ARQUIVO TEXTO
Conectando um arquivo texto via OLEDB:

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

"Data Source=c:\foldername\;" & _

"Extended Properties=""text;HDR=Yes;FMT=Delimited"""

rs.Open "select * from filename.csv", cn, adOpenStatic, adLockReadOnly, adCmdText

Conectando um arquivo texto via ODBC:

cn.Open "driver={Microsoft Text Driver (*.txt; *.csv)};" & _

"dbq=c:\foldername\;" & _

"extensions=asc,csv,tab,txt,log,*."

rs.Open "select * from filename.csv", cn, adOpenStatic, adLockReadOnly, adCmdText

Schema.ini

O formato do arquivo de texto é determinada usando um arquivo de informações de esquema (schema information file). O arquivo de informações sobre o esquema, que é sempre chamado Schema.ini e sempre mantido na mesma pasta da fonte de dados de texto, fornece informações sobre o formato geral do arquivo, o nome da coluna e informações sobre o tipo de dados, além de uma série de outras características de dados.

Um arquivo Schema.ini é sempre necessária para acessar os dados de largura fixa.

Você deve usar um arquivo Schema.ini quando a tabela contém valor de Moeda, DateTime, Decimal ou dados, ou quando você quiser mais controle sobre a manipulação dos dados na tabela.

O exemplo de arquivo Schema.ini abaixo é um arquivo chamado filename.txt cujos os dados estão delimitados por tabulação, e os nomes das colunas estão na primeira linha:

[filename.txt]

Format=TabDelimited

ColNameHeader=True
MaxScanRows=0

CharacterSet=ANSI

O exemplo de arquivo Schema.ini abaixo é um arquivo chamado filename.txt cujos os dados estão delimitados por ponto-e-vírgula, e os nomes das colunas estão na primeira linha:

[filename.txt]

Format=Delimited(;)

ColNameHeader=True
MaxScanRows=0

CharacterSet=ANSI

O exemplo de arquivo Schema.ini abaixo é um arquivo chamado filename.txt cujos os dados têm largura fixa, e os nomes das colunas estão na primeira linha:

[filename.txt]

Format=FixedLength

ColNameHeader=False
Col1=FieldName1 Char Width 30

Col2=FieldName2 Date Width 15

Col3=FieldName3 Integer Width 15
Col4=FieldName4 Float Width 20

CharacterSet=ANSI

Referência: Erlandsen

Tags: Microsoft Office Access, Access, connecting, conect, DAO, ADO, RDO, ISAM, Jet, BDE, ODBC, DSN, Data Source Name, DSN ODBC, DSN USER, OLEDB, MS SQL, Oracle, Paradox, My SQL, DBASE, schema, .ini

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

bernardes@.com

VBA Access - Função Format (com Datas)

2012-01-28T04:01:00.001-08:00

No MS Office Access, a função Format faz o tratamento de um conteúdo, retornando-o na expressão que desejarmos.

A syntaxe para a função Format é:

Format ( expressão, [ format, [ firstdayofweek, [primeirasemanadoano] ] ] )

Expressão é o valor a ser "formatado".

Format é opcional, existem valores defaults para este, como observado abaixo:

Format Explanação

General Date Mostra a data formatada segundo a configuração do seu sistema.
Long Date Mostra a data formatada segundo a configuração do seu sistema para 'Data longa'.

Medium Date Mostra a data formatada segundo a configuração do seu sistema para 'Data média'.
Short Date Mostra a data formatada segundo a configuração do seu sistema para 'Data curta'.

Long Time Mostra a data formatada segundo a configuração do seu sistema para 'hora longa'.
Medium Time Mostra a data formatada segundo a configuração do seu sistema para 'hora média'.

Short Time Mostra a data formatada segundo a configuração do seu sistema para 'hora curta'.

firstdayofweek é opcional, existem valores defaults para este, como observado abaixo:

Constant Valor Explanação

vbUseSystem 0 Usa a configuração da API NLS.
vbFirstJan1 1 A semana que contém Janeiro 1.

vbFirstFourDays 2 A primeira semana que tem 4 dias no ano.
vbFirstFullWeek 3 A primeira semana cheia do ano.

Por exemplo:

Format (#17/04/2009#, "Short Date") Retornará '17/04/2004'
Format (#17/04/2009#, "Long Date") Retornará 'Abril 17, 2004'

Format (#17/04/2009#, "yyyy/mm/dd") Retornará '2004/04/17'

Código VBA:

A função Format pode ser utilizada no VBA como código:

Dim LValue As String
Let LValue = Format (Date, "dd/mm/yy")

No exemplo acima a variável chamada LValue contém a data de hoje formatada como dd/mm/yy.

Utilização direta na query:

O mesmo pode ser utilizado nas nossas querys.

Tags: Microsoft Office Access, Access, Format

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

bernardes@.com

VBA Access - Nome do usuário e computador na rede - Network and computer User Name

2012-01-28T02:54:00.001-08:00

Ao tornar as aplicações MS Access mais profissionais, e também ao passo que vamos desenvolvendo soluções sistêmicas, que se incorporam a outras soluções, a relevância e utilização destas requer alguns cuidados mais sofisticados.

Em alguns casos pode ser necessário que registremos os nomes dos usuários que estão acessando as nossas aplicações, ou talvez desejemos desenvolver um modo de Login que utilize esses nomes de usuários na rede.

Function NetUName() As String

On Error GoTo Err_Handler

Dim lngLen As Long

Dim strUserName As String

Const lngcMaxFieldSize As Long = 64&

' Inicia.

Let strUserName = String$ (254, vbNullChar)

Let lngLen = 255&

' Em caso de sucesso a API retornará um valor diferente de zero.

If apiGetUserName (strUserName, lngLen) <> 0 Then

Let lngLen = lngLen - 1&

If lngLen > lngcMaxFieldSize Then 'Tamanho Máximo do campo.

Let lngLen = lngcMaxFieldSize

End If

Let NetworkUserName = Left$ (strUserName, lngLen)

End If

Exit_Handler:

Exit Function

Err_Handler:

Call LogError(Err.Number, Err.Description, conMod & ".NetworkUserName", , False)

Resume Exit_Handler

End Function

 Option Compare Database

 ' This code was originally written by Dev Ashish.

 ' It is not to be altered or distributed,

 ' except as part of an application.

 ' You are free to use it in any application,

 ' provided the copyright notice is left unchanged.

 ' Code Courtesy of Dev Ashish

 Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _

 "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

 Function fOSUserName() As String

 ' Returns the network login name

     Dim lngLen As Long, lngX As Long

     Dim strUserName As String

     Let strUserName = String$(254, 0)

     Let lngLen = 255

     Let lngX = apiGetUserName(strUserName, lngLen)

     If lngX <> 0 Then

         Let fOSUserName = Left$(strUserName, lngLen - 1)

     Else

         Let fOSUserName = ""

     End If

 End Function

Vamos aproveitar e disponibilizar tambéma função que retorna o nome do computador utilizado no momento do log.

 Option Compare Database

 ' This code was originally written by Dev Ashish.

 ' It is not to be altered or distributed,

 ' except as part of an application.

 ' You are free to use it in any application,

 ' provided the copyright notice is left unchanged.

 ' Code Courtesy of Dev Ashish

 Private Declare Function apiGetComputerName Lib "kernel32" Alias _

 "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

 Function fOSMachineName() As String

 'Returns the computername

     Dim lngLen As Long, lngX As Long

     Dim strCompName As String

     lngLen = 16

     strCompName = String$(lngLen, 0)

     lngX = apiGetComputerName(strCompName, lngLen)

     If lngX <> 0 Then

         fOSMachineName = Left$(strCompName, lngLen)

     Else

         fOSMachineName = ""

     End If

 End Function

Tags: Access, log, API, DLL, user name, apiGetUserName, apiGetComputerName

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

bernardes@.com

VBA Access - Exemplos de Códigos DDL/DML

2012-01-28T02:42:00.001-08:00

O SQL padrão é a sublinguagem utilizada no MS Access para lidar com os dados, tabelas, querys, etc...

Objeto Tipo
Tabela 1
Query 5
Tabela Conectada 4, 6, or 8
Formulário -32768
Relatório -32764
Módulo -32761

* Data Manipulation Language (DML): O comando SELECT e queries de ação (DELETE, UPDATE, INSERT INTO, ...)

* Data Definition Language (DDL): Comandos que alterem o "schema" (Mudando tabelas, campos, índices, relações, queries, etc.)

Usando o DML para queries, poderemos ler alguns aspectos do "schema" do banco de dados.

Poderá listar os objetos na base de dados Access com o código abaixo:

SELECT MSysObjects.Type, MSysObjects.Name

FROM MSysObjects
WHERE MSysObjects.Name Not Like "~*"

ORDER BY MSysObjects.Type, MSysObjects.Name

Onde Type poderá colocar um dos valores da tabela acima. (Infelizmente, o modo provido pelo DML não é o caminho mais fácil para se ler os nomes dos campos nas tabelas.)

DDL provê outras características de intervenção como:

CREATE TABLE para gerar uma nova tabela, especificando os nomes dos campos, tipos, e constraints.

CREATE TABLE TestAllTypes ( MyText TEXT(50), MyMemo MEMO, MyByte BYTE, MyInteger INTEGER, MyLong LONG, MyAutoNumber COUNTER, MySingle SINGLE, MyDouble DOUBLE, MyCurrency CURRENCY, MyReplicaID GUID, MyDateTime DATETIME, MyYesNo YESNO, MyOleObject LONGBINARY, MyBinary BINARY(50) )
    (  MyText       TEXT(50),
       MyMemo       MEMO,
       MyByte       BYTE,
       MyInteger    INTEGER,
       MyLong       LONG,
       MyAutoNumber COUNTER,
       MySingle     SINGLE,
       MyDouble     DOUBLE,
       MyCurrency   CURRENCY,
       MyReplicaID  GUID,
       MyDateTime   DATETIME,
       MyYesNo      YESNO,
       MyOleObject  LONGBINARY,
       MyBinary     BINARY(50)
     )
Impeça a aparição dessa mensagem utilizando: DoCmd.SetWarnings False

ALTER TABLE para adicionar uma coluna para a tabela, deletar uma coluna na tabela, ou mudar a tabela como tipo e tamanho da mesma.

DROP TABLE para deletar uma tabela.

Similarmente, você pode aplicar o comandos CREATE/ALTER/DROP em outras coisas tais como índices, constraints, views e procedures (queries), usuário e grupos (segurança.)

 CREATE INDEX MyDateTimeIndex ON TestAllTypes ([MyDateTime] ASC)

 CREATE UNIQUE INDEX MyTextUniqueIndex ON TestAllTypes ([MyText] ASC)

 DROP INDEX MyTextUniqueIndex ON TestAllTypes

 ALTER TABLE TestAllTypes DROP COLUMN MyBinary

 ALTER TABLE TestAllTypes ADD COLUMN ExtraInfo Text(255)

Enquanto o DDL é importante para algumas bases de dados enormes, ele é limitado no uso com o Access. Você pode criar campo Texto, mas não pode configurá-lo com a propriedade Largura Diferente de Zero, ou características similares. Pode criar um campo Yes/No, mas não pode dizer que o dataentry ocorrerá por meio de um textbox, ou de um checkbox. Também poderá criar um campo Date/Time, mas não poderá configurar a sua propriedade Format. DDL não pode criar campos Hyperlink, campos Attachment.

Poderá executar uma query DDL sob o DAO ou ADO.

Para DAO, use:

dbEngine(0)(0).Execute strSql, dbFailOnError

Para ADO, use:

CurrentProject.Connection.Execute strSql

Algumas características do JET 4 (Access 2000 e superior) são suportados somente sob o ADO.

Uma situação na qual o DDL é realmente utilizável é quanto a mudança do Tipo ou Tamanho dos campos. Você não pode fazer isto com o DAO ou ADOX, utilizar o DDL é a técnica mais prática para estes fins. Obviamente existem outras saídas mais trabalhosas e incoerentes pelo simples fato de serem mais demoradas tanto na implementação quanto na execução.

Abaixo disponibilizo alguns exemplos para que você possa iniciar-se nas técnicas de utilização do DDL.

Índice das Funções Descrição

CreateTableDDL() Cria duas tabelas, seus índices e relacionamentos, ilustrando os diferentes tipos de campos suas propriedades configuradas.

CreateFieldDDL() Ilustra como adicionar um campo para uma tabela.

CreateFieldDDL2() Adiciona um campo a uma tabela em outra base de dados.

CreateViewDDL() Cria uma nova query.

DropFieldDDL() Deleta o campo de uma tabela.

ModifyFieldDDL() Muda o tipo ou tamanho de um campo. (Este é o mais comum uso do DDL.)

AdjustAutoNum() Configura o start da AutoNumeração.

DefaultZLS() Cria um campo que tem por default ser uma stringque não suporta ficar vazia.

Option Compare Database

Option Explicit

Sub CreateTableDDL()

Dim cmd As New ADODB.Command

Dim strSql As String

Let cmd.ActiveConnection = CurrentProject.Connection

'Cria o "Contractor" na tabela.

Let strSql = "CREATE TABLE tblDdlContractor " & _

"(ContractorID COUNTER CONSTRAINT PrimaryKey PRIMARY KEY, " & _

"Surname TEXT(30) WITH COMP NOT NULL, " & _

"FirstName TEXT(20) WITH COMP, " & _

"Inactive YESNO, " & _

"HourlyFee CURRENCY DEFAULT 0, " & _

"PenaltyRate DOUBLE, " & _

"BirthDate DATE, " & _

"EnteredOn DATE DEFAULT Now(), " & _

"Notes MEMO, " & _

"CONSTRAINT FullName UNIQUE (Surname, FirstName));"

Let cmd.CommandText = strSql

cmd.Execute

Debug.Print "tblDdlContractor criada."

'Cria a tabela de Booking.

Let strSql = "CREATE TABLE tblDdlBooking " & _

"(BookingID COUNTER CONSTRAINT PrimaryKey PRIMARY KEY, " & _

"BookingDate DATE CONSTRAINT BookingDate UNIQUE, " & _

"ContractorID LONG REFERENCES tblDdlContractor (ContractorID) " & _

"ON DELETE SET NULL, " & _

"BookingFee CURRENCY, " & _

"BookingNote TEXT (255) WITH COMP NOT NULL);"

Let cmd.CommandText = strSql

cmd.Execute

Debug.Print "tblDdlBooking criado."

End Sub

Sub CreateFieldDDL()

Dim strSql As String

Dim db As DAO.Database

Let Set db = CurrentDb()

Let strSql = "ALTER TABLE MyTable ADD COLUMN MyNewTextField TEXT (5);"

db.Execute strSql, dbFailOnError

Set db = Nothing

Debug.Print "MyNewTextField adicionado para MyTable"

End Sub

Function CreateFieldDDL2()

Dim strSql As String

Dim db As DAO.Database

Set db = CurrentDb()

Let strSql = "ALTER TABLE Table IN 'C:\A&A\Junkki.mdb' ADD COLUMN MyNewField TEXT (5);"

db.Execute strSql, dbFailOnError

Set db = Nothing

Debug.Print "MyNewField Adicionado!"

End Function

Vamos aos testes !!!

Tags: Access, SQL, query, queries, DML, DDL,índices, constraints, views, procedures, CREATE, ALTER,DROP, DAO, ADO, ADOX, CreateTableDDL, CreateFieldDDL, CreateFieldDDL2, CreateViewDDL, DropFieldDDL, ModifyFieldDDL, AdjustAutoNum, DefaultZLS

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

bernardes@.com

VBA Access - Encontrando um registro específico

2012-01-28T02:05:00.001-08:00

Não existe atividade mais repetitiva num banco de dados quanto a de encontrar um registro específico. Existem diversas formas de fazermos isso, abaixo segue código de uma dessas formas. Divirtam-se!

Dim strSQL As String
Dim rst As ADODB.Recordset
Dim lngID As Long

Let strSQL = "SELECT Det.ID, Det.EntryDate, Det.UserEntry FROM UserEntrys WHERE Det.ID=" & EID
Set rst = New ADODB.Recordset

With rst

.Open strSQL, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly

Do While Not rst.EOF

Let idnumber = !ID

Let recdate = !EntryDate

Let recdata = !UserEntry

rst.MoveNext

Loop

.Close

End With

Set rst = Nothing

Tags: Access, find, recordset, loop, while, ADODB, select, SQL

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

bernardes@.com

SOLUÇÕES VBA

2012-01-23T22:40:00.001-08:00

Desenvolvo aplicações com o VBA.

Utilizo a suíte do Microsoft Office para estender soluções aos clientes.

Desenvolvo aplicações (ferramentas) com o MS Excel, MS Access, MS Powerpoint, MS Word, MS Outlook, MS Sharepoint.

Procure melhorar os resultados que vem alcançando na sua empresa hoje. Através da automação realizo todas as tarefas que demandariam muito tempo dos usuários.

Já desenvolvi diversas aplicações em planilhas. Aplicações com o MS Access, Exportação automática de gráficos e tabelas do MS Excel para o MS PowerPoint , Envio automático de relatórios através do MS Outlook. Além disso implementei diversos Dashboards com os seus respectivos KPIs (indicadores de desempenho).

Trabalhe melhor os dados oriundos do seu ERP (SAP, Microsiga, Datasul, ORACLE, BAAN, PEOPLESOFT, etc).

Usufrua da excelência ao analisar suas Informações

Você tem direito às informações da sua empresa

Dados ou Informações?

Crie relatórios personalizados, implemento um visual (layout) profissional aos indicadores de sua empresa.

Consulte as condições de pagamento e prazos para desenvolvimento.

Instruções para o comprador

1. Todas as minhas atuações são freelance.

2. O preço e prazos passados variam de acordo com a urgência e complexidade do serviço. Para maiores informações, solicite um orçamento.

3. Ao solicitar um orçamento, envie documento contendo as especificações detalhadas do que necessita ser realizado. Assim identifico melhor a sua necessidade.

Tempo de entrega em dias: A combinar

Tags: André Luiz Bernardes, TI, Tecnologia da Informação, KPI, KPIs, Key performance Indicator, PMBOK, escopo, stakeholder, Indicadores, DW, Data Warehousing, BSM, Business Scorecard Manager, BSC, Balanced Scorecard, Dashboard

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

bernardes@.com

VBA Access - Gatilhos no Microsoft Access 2010 - Triggers in Microsoft Access 2010

2012-01-17T23:22:00.001-08:00

Microsoft Access é um daqueles aplicativos da suíte do MS Office que você ama ou odeia. Tem características muito úteis para os bancos de dados departamentais, mas a limitação quanto ao tamanho físico máximo ser de 2 GB, torna-o bastante restritivo. O MS Office Access 2010 ofereceu algumas melhorias, incluindo confiabilidade.

Neste post olharemos para as Triggers no MS Office Access 2010 assim como temos no SQL Server, Oracle, etc... Nesta versão foi agregada o recurso do uso de Triggers, facilitando muito a vida de quem trabalha com VBA, e o VSTO. Na verdade o que veremos é uma emulação, pois utilizaremos macros para processarem.

No MS Office Access 2010 , esta opção está disponível no Menu Tabela (quando uma tabela for aberta no modo Folha de Dados) ou criação (quando uma tabela está aberta em Design). No modo Folha de Dados, você deve ver este menu (desconsidere o idioma):

A imagem acima mostra as opções para gravar eventos do jeito que desejarmos escrevendo "triggers" que permitem-nos gravar um evento [ou trigger], antes da mudança (before change), antes de uma deleção (before delete), após uma inserção (after insert), após uma atualização (after update), e após uma deleção (after delete).

Agora pode selecionar um tipo de evento para executar um job, usando uma instrução condicional para expressar a sua lógica de escolher a ação a partir do painel direito. Desta forma, você pode usar if else, looping blocks e pode verificar os dados neste estágio e filtrar, editar e desfazer os dados baseada na sua exigência.

Use este procedimento para adicionar uma macro de dados a uma tabela.

Uma demonstração de como criar uma macro (trigger) está disponível aqui.

Divirtam-se!

Tags: Bernardes, VBA, Office, Access 2010, Events, Microsoft, Office 2010, Triggers, Macros

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

bernardes@.com

VBA - Evocando chamada ao Painel de Controle

2012-01-16T14:39:00.001-08:00

Sei que há alguns posts atrás falei sobre como é rápido usarmos as funcionalidades das APIs dentro do VBA.

Controlling Windows Regional Settings From Vba

VBA controlling IE confirmation popup box

VBA to open control panel's "Internet Date & Time" applet

VBA: How To: Floating VBA Control Panel for Initialization

Panel Class

Controlling Windows Regional Settings from VBA

controlling IE using vba from within a worksheet additional info

Controlling external programs using vba

VBA controlling Acrobat Distiller

Agora, quero fazer uma abordagem distinta, por usar o comendo SHELL.

Para chamar qualquer tela do Painel de Controle não precisamos necessariamente evocar uma API

'Para chamar a tela principal do Painel de Controle:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL", vbNormalFocus)

'Para chamar a tela Adicionar ou Remover Programas:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1", vbNormalFocus)

'Para chamar a tela Adicionar ou Remover Programas, na aba
'Instalao do Windows:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2", vbNormalFocus)

'Para chamar a tela Adicionar ou Remover Programas, na aba
'Disco de Inicializao:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,3", vbNormalFocus)

'Para chamar a tela Vdeo, na aba Segundo Plano:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", vbNormalFocus)

'Para chamar a tela Vdeo, na aba Proteo de Tela:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1", vbNormalFocus)

'Para chamar a tela Vdeo, na aba Aparncia:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2", vbNormalFocus)

'Para chamar a tela Vdeo, na aba Configurao:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3", vbNormalFocus)

'Para chamar a tela Configuraes Regionais, na aba
'Configuraes Regionais:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0", vbNormalFocus)

'Para chamar a tela Configuraes Regionais, na aba
'Nmero:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,1", vbNormalFocus)

'Para chamar a tela Configuraes Regionais, na aba
'Moeda:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,2", vbNormalFocus)

'Para chamar a tela Configuraes Regionais, na aba'Hora:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,3", vbNormalFocus)

'Para chamar a tela Configuraes Regionais, na aba'Data:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,4", vbNormalFocus)

'Para chamar a tela Joystick:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL joy.cpl", vbNormalFocus)

'Para chamar a tela Mouse:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0", vbNormalFocus)

'Para chamar a tela Teclado:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", vbNormalFocus)

'Para chamar a tela Impressoras:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @2", vbNormalFocus)

'Para chamar a tela Fontes:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @3", vbNormalFocus)

'Para chamar a tela Mail e Fax:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mlcfg32.cpl", vbNormalFocus)

'Para chamar a tela Multimdia, na aba Audio:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0", vbNormalFocus)

'Para chamar a tela Multimdia, na aba Vdeo:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,1", vbNormalFocus)

'Para chamar a tela Multimdia, na aba MIDI:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2", vbNormalFocus)

'Para chamar a tela Multimdia, na aba Msica de CD:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,3", vbNormalFocus)

'Para chamar a tela Multimdia, na aba Dispositivos:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,4", vbNormalFocus)

'Para chamar a tela Som:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1", vbNormalFocus)

'Para chamar a tela Modem:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl", vbNormalFocus)

'Para chamar a tela Rede:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl", vbNormalFocus)

'Para chamar a tela Senhas:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL password.cpl", vbNormalFocus)

'Para chamar a tela Sistema, na aba Geral:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0", vbNormalFocus)

'Para chamar a tela Sistema, na aba Gerenciador'de Dispositivos:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1", vbNormalFocus)

'Para chamar a tela Sistema, na aba Perfis deHardware:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,2", vbNormalFocus)

'Para chamar a tela Sistema, na aba Performance:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3", vbNormalFocus)

'Para chamar a tela Opes de Acessibilidade, na aba'Teclado:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1", vbNormalFocus)

'Para chamar a tela Opes de Acessibilidade, na aba'Som:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2", vbNormalFocus)

'Para chamar a tela Opes de Acessibilidade, na aba'Vdeo:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3", vbNormalFocus)

'Para chamar a tela Opções de Acessibilidade, na aba'Mouse:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4", vbNormalFocus)

'Para chamar a tela Opes de Acessibilidade, na aba'Geral:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5", vbNormalFocus)

'Para chamar a tela do Assistente (Adicionar novo'Hardware):
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1", vbNormalFocus)

'Para chamar a tela Data e Hora:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus)

'Para chamar a tela DiskCopy:
Call Shell("rundll32 diskcopy.dll,DiskCopyRunDll", vbNormalFocus)

Tags: Bernardes, VBA, Office, SHELL, API, rundll32.exe, Painel de Controle, Control Painel,

André Luiz Bernardes
A&A® - Work smart, not hard.
bernardess@gmail.com

Skype: inanyplace
Twitter: @bernardess

LinkedIn
Plaxo

MS Access – VBA - Recuperando valores de um Stored Procedure.

2011-12-29T08:35:00.001-08:00

Eventualmente precisamos atualizar as tabelas de uma aplicação MS Access com dados oriundos de outras bases de dados, nem sempre essas informações estão facilmente disponíveis em Views ou Tables.

Inevitavelmente encontraremos informações que dependem de regras de negócio que consolidam os dados que desejamos atualizar em nossas aplicações, na maioria das vezes estas regras estão descritas em Stored Procedures e é por isso que precisamos aprender como utilizá-las. Como posso acessar estas informações através do código VBA?

ADO - Usando Procedimentos Armazenados

Call an Oracle stored procedure using VBA

Calling stored procedures from VBA

Execute SQL stored procedure in Access

Executing SQL Server Stored procedure from VBA

Executing Stored Procedures in Access VBA

Executing a Stored Procedure Containing Parameters

Get stored procedure output value back in VBA

How To Invoke a Stored Procedure with ADO Query Using VBA

How to Call an SQL Stored Procedure Using MS Access VBA

How to Use Stored Procedures with VBA

Passing parameters via VBA to a stored procedure

SQL Stored Procedure with Output Parameters

Stored procedure and VBA

Using stored procedures with VBA

Working with Stored Procedures in an MS Access Project

A técnica demonstrada abaixo é didática e aplicável, adapte-a a sua necessidade. Alguns aspectos do código podem e devem ser simplificados para acelerar a performance.

Estrutura de Tabela com 1 registro em branco gravado

Nome da Tabela: tbl_sys_add

nome do campo | Tipo de dados | Conteúdo

nThing | Texto | 2 Active | Boolean | (true/false)
TimeStamp | Data/Hora | (Dia e Hora)

Código do módulo
' MÓDULO: mdl_sys_Connection

' Microsoft® Office Access PAR Human Resource Planning Tool, developing by A&A - In Any Place.
' Copyright© Promon Engenharia. All Rights Reserved.

Public Colmn0 As Variant
Public Colmn1 As Variant

Public Colmn2 As Variant
Public Colmn3 As Variant
Public Colmn4 As Variant

Public Colmn5 As Variant
Public Colmn6 As Variant
Public Colmn7 As Variant

Public Colmn8 As Variant
Public Colmn9 As Variant
Public Colmn10 As Variant

Public Colmn11 As Variant

Option Compare Database

Function ReturnData()

' Author: Date: Contact:

' André Bernardes 16/10/2008 07:45 bernardess@gmail.com

' Retorna o conteúdo da PROC.
' Fields: Registro, CPF, Nome, funcao, nivel_profis, Disciplina, data_admissao, data_demissao, lotacao, razao_soci, local_trabalho

On Error GoTo Err_Execute ' Prepara para análise de erro.

' Prepare variables.

Dim db As Database
Dim StrConection As String

Dim StrConection1 As String

Dim i, j As Integer

Dim flag As Boolean

Dim nTx1, nTx2, nTx3, nTx4, nTx5, nTx6 As String

' Busca parâmetros de conexão em formulário.

Let nTx1 = [Form_frm_sys_SybaseImport].CxStoredProcedure.Value
Let nTx2 = [Form_frm_sys_SybaseImport].CxDSN.Value

Let nTx3 = [Form_frm_sys_SybaseImport].CxServer.Value

Let nTx4 = [Form_frm_sys_SybaseImport].CxDatabase.Value
Let nTx5 = [Form_frm_sys_SybaseImport].CxUser_ID.Value

Let nTx6 = [Form_frm_sys_SybaseImport].CxPassword.Value

Let flag = True

' String de conexão.

Let StrConection1 = "DSN=spod;" &; _
"SRVR=spod;" &; _

"DB=bdprom1;" &; _

"UID=Cromon_engenharia;" &; _
"PWD=Croeng01"

Let StrConection = "DSN=" &; nTx2 &; ";" &; _
"SRVR=" &; nTx3 &; ";" &; _

"DB=" &; nTx4 &; ";" &; _

"UID=" &; nTx5 &; ";" &; _
"PWD=" &; nTx6

' Ativando objeto da base de dados.
Set db = DBEngine.Workspaces(0).OpenDatabase("", False, False, StrConection)

' Executando a Stored Procedure
Set rs = db.OpenRecordset("EXEC " &; nTx1, dbOpenSnapshot, dbSQLPassThrough)

' Laço no Recordset.
Do Until rs.EOF

' Retorna os Nomes dos campos, caso a linha de Debug seja habilitada.

If flag Then
Let j = 1

While j <= 11
'Debug.Print rs(j).Name

Let j = j + 1
Wend

Let flag = False

End If

' Ao habilitar o Debug, este retornará o conteúdo dos campos.
' Debug.Print i, rs(0).Value, rs(1).Value, rs(2).Value, rs(3).Value, rs(4).Value, rs(5).Value, rs(6).Value, rs(7).Value, rs(8).Value, rs(9).Value, rs(10).Value, rs(11).Value

' Enviar mensagem para linha de status no FORM.
[Form_frm_sys_SybaseImport].lblStatus.Caption = "|" &; Trim(Str(i)) &; "| " &; Now() &; " |" &; rs(0).Value &; " |" &; rs(1).Value &; " |" &; rs(2).Value &; " |" &; Trim(rs(3).Value) &; " |" &; rs(4).Value

[Form_frm_sys_SybaseImport].Repaint

[Form_frm_sys_SybaseImport].Refresh

' Carrega variáveis definidas previamente como públicas, para a posterior utilização pela query "qry_sys_SetPeople".

Let Colmn0 = Trim(rs(0).Value) '

Let Colmn1 = Trim(rs(1).Value) ' Registro
Let Colmn2 = Trim(rs(2).Value) ' CPF

Let Colmn3 = Trim(rs(3).Value) ' Nome

Let Colmn4 = Trim(rs(4).Value) ' funcao
Let Colmn5 = Trim(rs(5).Value) ' nivel_profis

Let Colmn6 = Trim(rs(6).Value) ' Disciplina

Let Colmn7 = Trim(rs(7).Value) ' data_admissao
Let Colmn8 = Trim(rs(8).Value) ' data_demissao

Let Colmn9 = Trim(rs(9).Value) ' lotacao

Let Colmn10 = Trim(rs(10).Value) ' razao_soci
Let Colmn11 = Trim(rs(11).Value) ' local_trabalho

' Atualiza a tabela de Recursos Humanos.
DoCmd.SetWarnings (False)

DoCmd.OpenQuery "qry_sys_SetPeople", acViewNormal, acAdd

DoCmd.SetWarnings (True)

' Avança uma linha no recordset.

rs.MoveNext

' Variável meramente informativa.
Let i = i + 1

Loop

' Fecha Recordset e Base de dados.

rs.Close

Set db = Nothing

' Limpa as variáveis públicas.

Let Colmn0 = Null
Let Colmn1 = Null

Let Colmn2 = Null

Let Colmn3 = Null
Let Colmn4 = Null

Let Colmn5 = Null

Let Colmn6 = Null
Let Colmn7 = Null

Let Colmn8 = Null

Let Colmn9 = Null
Let Colmn10 = Null

' Mensagem para o usuário, identificando o término da atualização.
MsgBox "Atualização terminada", vbInformation, "Colaboradores importados"

Err_Execute:
Call ErrorShow

End Function

Function ReturnField0()

' Author: Date: Contact:
' André Bernardes 16/10/2008 12:05 bernardess@gmail.com

' Return value field.

'

Let ReturnField0 = Colmn0

End Function

Function ReturnField1()

' Author: Date: Contact:

' André Bernardes 16/10/2008 12:05 bernardess@gmail.com

' Return value field.
' Registro.

Let ReturnField1 = Colmn1

End Function

Function ReturnField2()

' Author: Date: Contact:

' André Bernardes 16/10/2008 12:05 bernardess@gmail.com

' Return value field.
' CPF.

Let ReturnField2 = Colmn2

End Function

Function ReturnField3()

' Author: Date: Contact:

' André Bernardes 16/10/2008 12:05 bernardess@gmail.com

' Return value field.
' Nome.

Let ReturnField3 = Colmn3

End Function

Function ReturnField4()

' Author: Date: Contact:

' André Bernardes 16/10/2008 12:05 bernardess@gmail.com

' Return value field.
' funcao.

Let ReturnField4 = Colmn4

End Function

Function ReturnField5()

' Author: Date: Contact:

' André Bernardes 16/10/2008 12:05 bernardess@gmail.com

' Return value field.
' nivel_profis.

Let ReturnField5 = Colmn5

End Function

Function ReturnField6()

' Author: Date: Contact:

' André Bernardes 16/10/2008 12:05 bernardess@gmail.com

' Return value field.
' Disciplina.

Let ReturnField6 = Colmn6

End Function

Function ReturnField7()

' Author: Date: Contact:

' André Bernardes 16/10/2008 12:05 bernardess@gmail.com

' Return value field.
' data_admissao.

Let ReturnField7 = Colmn7

End Function

Function ReturnField8()

' Author: Date: Contact:

' André Bernardes 16/10/2008 12:05 bernardess@gmail.com

' Return value field.
' data_demissao.

Let ReturnField8 = Colmn8

End Function

Function ReturnField9()

' Author: Date: Contact:

' André Bernardes 16/10/2008 12:05 bernardess@gmail.com

' Return value field.
' lotacao.

Let ReturnField9 = Colmn9

End Function

Function ReturnField10()

' Author: Date: Contact:

' André Bernardes 16/10/2008 12:05 bernardess@gmail.com

' Return value field.
' razao_soci.

Let ReturnField10 = Colmn10

End Function

Function ReturnField11()

' Author: Date: Contact:

' André Bernardes 16/10/2008 12:05 bernardess@gmail.com

' Return value field.

Let ReturnField11 = Colmn11

End Function

Function ErrorShow()

' Author: Date: Contact:

' André Bernardes 02/10/2008 10:57 bernardess@gmail.com

' Mostra o erro que ocorreu.

' Erro 55 - Arquivo já está aberto.
' Erro 3065 - Não é possível executar uma consulta seleção.

' Caso haja erro.
If Err.Number <> 0 Then

MsgBox "ATENÇÃO!" &; Chr(13) &; Chr(10) &; Chr(13) &; Chr(10) &; _

"Nº: " &; Err.Number &; Chr(13) &; Chr(10) &; _

"Description: " &; Err.Description &; Chr(13) &; Chr(10) &; _

"Source: " &; Err.Source &; Chr(13) &; Chr(10) &; _

"File|H Context: " &; Err.HelpFile &; " | " &; Err.HelpContext &; Chr(13) &; Chr(10), vbCritical, "Erro:", Err.HelpFile, Err.HelpContext

End If

End Function

Adicionalmente é importante dizer que para abrir um procedimento armazenado dentro de ActiveX Data Objects (ADO), você deve primeiro abrir um preenchimento de objeto de conexão, em seguida, um objeto de comando, o conjunto Parameters com um parâmetro na coleção para cada parâmetro na consulta e, em seguida, use o método Command.Execute() para abrir o Recordset ADO.

Opcionalmente pode usar o método Parameters.Refresh para preencher a coleção de parâmetros para o procedimento armazenado. Além disso, se o procedimento armazenado retor saída ou retornar parâmetros, você precisa fechar o conjunto de registros antes de verificar o valor dos parâmetros de saída.

Isso é demonstrado nos trechos de código abaixo que exclui (se ele já existir) e, em seguida, cria um procedimento armazenado, sp_adoTest, em um SQL Server que tem de entrada, saída e parâmetros de retorno, bem como retornar um conjunto de registros.

Este artigo demonstra como executar esta operação usando o VBA / VBScript:

Dim Conn1 As ADODB.Connection
Dim Cmd1 As ADODB.Command
Dim Rs1 As ADODB.Recordset

Dim strTmp As String
Dim Connect As String
Dim Drop As String

Dim Create As String
Dim sp as string
Dim i As Integer

Dim l As Long

Let sConnect= "driver={sql server};" &; _

"server=server_name;" &; _
"Database=pubs;UID=uder_id;PWD=password;"

Let sCreate = "create proc sp_AdoTest( @InParam int, " &; _
"@OutParam int OUTPUT ) " &; _

"as " &; _
"select @OutParam = @InParam + 10 " &; _
"SELECT * FROM Authors WHERE "&; _

"State <> 'CA' " &; _
"return @OutParam +10"

Let sDrop= "if exists " &; _
"(select * from sysobjects where " &; _

"id = object_id('dbo.sp_AdoTest') and " &; _
"sysstat &; 0xf = 4)" &; _

"drop procedure dbo.sp_AdoTest"

Let sSP = "sp_Adotest"

' Establish connection.
Set Conn1 = New ADODB.Connection
Conn1.ConnectionString = sConnect

Conn1.Open

' Drop procedure, if it exists &; recreate it.

Set Rs1 = Conn1.Execute(sDrop, l, adCmdText)
Set Rs1 = Nothing
Set Rs1 = Conn1.Execute(sCreate, l, adCmdText)

Set Rs1 = Nothing

' Open recordset.

Set Cmd1 = New ADODB.Command
Cmd1.ActiveConnection = Conn1
Cmd1.CommandText = "sp_AdoTest"

Cmd1.CommandType = adCmdStoredProc
Cmd1.Parameters.Refresh
Cmd1.Parameters(1).Value = 10

Set Rs1 = Cmd1.Execute()

' Process results from recordset, then close it.

RS1.Close
Set Rs1 = Nothing

' Get parameters (assumes you have a list box named List1).
Debug.print vbTab &; "RetVal Param = " &; Cmd1.Parameters(0).Value

Debug.print vbTab &; "Input Param = " &; Cmd1.Parameters(1).Value
Debug.print vbTab &; "Output Param = " &; Cmd1.Parameters(2).Value

Para usuários do VBScript, você substituiria as instruções Dim com chamadas de CreateObject equivalentes, como: Set conn1 = CreateObject( "ADODB.Connection.1.5" )

Referências: 172403 EXEMPLO: Adovb.exe demonstra como usar o ADO com o Visual Basic

220152 ARQUIVO: Adovc.exe demonstra como usar o ADO com o Visual C++

Tags: Bernardes, Windows, Office, Access, VBA, automation, SP, Stored Procedure, Views, Tables, field, ADO, ActiveX Data Objects, Database, trigger, Get, SQL,

André Luiz Bernardes
A&A® - Work smart, not hard.

bernardess@gmail.com
Skype: inanyplace

Twitter: @bernardess

LinkedIn
Plaxo

VBA ACCESS - Campo Auto Numérico - Creating an AutoNumber field from code - VBA, DAO, DDL e SQL

2011-11-10T10:51:00.001-08:00

Criar campos de autonumeração em tabelas usando VBA, DAO, DDL e SQL

Creating an AutoNumber field from code

Append a record using vba where there is an auto number field

Auto Increment

Auto-number text field

AutoNumber and INSERT INTO VBA Issue

Autonumber field

Autonumber value of last inserted row

Autonumber vba

Autonumeração complexa

Create an Autonumber Field with VBA For a MS Access

Creating an AutoNumber field from code

Creation of an autonumber with VBA access

Microsoft Access Autonumber Increments

Setting the value of an Autonumber field

VBA - How to create user-defined auto-increment data type

Existem 2 caminhos para acrescentarmos um campo cujo o conteúdo seja autonumerado:

Um dos modos é fazê-lo através do comando SQL DDL Create Table, e o outro é o modo como abordaremos neste artigo usando VBA e DAO para adicionar um campo em uma tabela pré-existente.

A função abaixo, desenvolvida por Dev Ashish, serve para efetuar tal ação em qualquer tabela na qual tenhamos a necessidade de inserirmos um campo numerado.

Function fCreateAutoNumberField (ByVal strTableName As String, ByVal strFieldName As String) As Boolean

   Dim db As DAO.Database

   Dim fld As DAO.Field

   Dim tdf As DAO.TableDef

   On Error GoTo ErrHandler

   Set db = Application.CurrentDb

   Set tdf = db.TableDefs(strTableName)



   ' Primeiro criamos um campo com o tipo = Long Integer

   Set fld = tdf.CreateField(strFieldName, dbLong)



   With fld

   ' Adicionamos o dbAutoIncrField para efetuar chamadas ao Jet que sozinho efetuará a autonumeração do campo

   Let .Attributes = .Attributes Or dbAutoIncrField

   End With



   With tdf.Fields

   .Append fld

   .Refresh

   End With


   Let fCreateAutoNumberField = True



ExitHere:

   Set fld = Nothing

   Set tdf = Nothing

   Set db = Nothing

   Exit Function

ErrHandler:
   Let fCreateAutoNumberField = False



   With Err

   MsgBox "Erro: " & .Number & vbCrLf & .Description, _

   vbOKOnly Or vbCritical, "CreateAutonumberField"

   End With

   Resume ExitHere

End Function

Ei, Ok! tudo bom, tudo legal, mas e quanto a primeira opção? Não chorem, coloquei-a mais abaixo:

Para criar uma tabela com um campo com AutoNumeração e PrimaryKey, além de um campo chamado MyText com o tipo TEXTO e comprimento de 10, insira a instrução a seguir na janela de consulta de definição de dados e, em seguida, executar a consulta.

CREATE TABLE Table1 _
(Id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY, _

MyText TEXT (10))

Tag: Bernardes, MS, Microsoft, VBA, Office, Access, Table, query, SQL, VBA, DAO, autonumber, increment, Function, Dev Ashish, counter, create, key, code

André Luiz Bernardes

A&A® - Work smart, not hard.

bernardess@gmail.com

ENVIE-ME SUA PLANILHA - E FAÇO A SUA Tabela Dinâmica - Promoção de Novembro/2011

2011-10-29T11:20:00.001-07:00

QUE TAL MELHORAR A PERFORMANCE E A APARÊNCIA DAS SUAS PLANILHAS?

Precisa regularmente construir relatórios com layouts diferentes e perde muito tempo com isto?

Seus arquivos texto têm dezenas, centenas de milhares de linhas e você fica copiando para outras planilhas para poder caber?

Precisa consolidar informações de fontes diferentes?

Tem arquivos imensos, com dezenas de megabytes onde coloca dados extraídos de ERP e sistemas de gestão diversos?

Percebe que o filtro do MS Excel não está mais te atendendo?

Gasta mais tempo montando o relatório do que o analisando?

ACRESCENTE TABELAS DINÂMICAS!

Traga dados de fora do Excel

Importando dados de arquivos: Texto, Access, Dbase, Oracle, SQL Server, CSV e outros arquivos de Excel

Usando o MS Query para fazer consultas avançadas

Trazendo dados para suas planilhas sem a necessidade da tabela dinâmica

Tags: Bernardes, MS, Microsoft, Office, MS Excel, Excel, Planilhas, Dados, Data, workshet, workbook, Pivot Table, Tabela Dinâmica, Gráfico Dinâmico, Dynamic Chart, Texto, Access, Dbase, Oracle, SQL Server, CSV, query

André Luiz Bernardes

A&A® - Work smart, not hard.

bernardess@gmail.com

Promoção de Novembro/2011 - Tabela Dinâmica - Pivot Table.

2011-10-29T06:25:00.001-07:00

QUE TAL MELHORAR A PERFORMANCE E A APARÊNCIA DAS SUAS PLANILHAS?

Precisa regularmente construir relatórios com layouts diferentes e perde muito tempo com isto?

Seus arquivos texto têm dezenas, centenas de milhares de linhas e você fica copiando para outras planilhas para poder caber?

Precisa consolidar informações de fontes diferentes?

Tem arquivos imensos, com dezenas de megabytes onde coloca dados extraídos de ERP e sistemas de gestão diversos?

Percebe que o filtro do MS Excel não está mais te atendendo?

Gasta mais tempo montando o relatório do que o analisando?

ACRESCENTE TABELAS DINÂMICAS!

Traga dados de fora do Excel

Importando dados de arquivos: Texto, Access, Dbase, Oracle, SQL Server, CSV e outros arquivos de Excel;
Usando o MS Query para fazer consultas avançadas
Trazendo dados para suas planilhas sem a necessidade da tabela dinâmica

André Luiz Bernardes

A&A® - Work smart, not hard.

bernardess@gmail.com