|
|
Postada em 21/10/2010 09:24 hs
Amigos, tenho uma aplicação que deve rodar em um servidor, porém não posso instalar o Access. Preciso criar um MDB temporario para gravar alguns registros extraidos de um bco de dados oracle e DB2 para montar emails... O erro (429-activex) ocorre no momento que estou executando no seguinte momento: ---- Set ODTn = DBEngine.Workspaces(0).CreateDatabase(App.Path & "FC.MDB", dbLangGeneral, dbVersion30)
ODTn.Close ---- Esse problema pode ser resolvido? Grato, |
|
|
|
|
|
|
|
Postada em 21/10/2010 09:37 hs
tenta isso:
Criando o banco DAO
Dim banco As Database
Set banco = CreateDatabase("C:\bancodados\nomebanco.mdb", dbLangGeneral)
|
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 21/10/2010 09:48 hs
Juan, Antes de mudar o código passo o restante, veja se com essa mudança preciso alterar mais alguma coisa. --- tmpMDB = "Create Table FCsCred " & _
"(CONTR INTEGER, " & _
"NME_PRODR CHAR(40), " & _
"NME_FAVORECIDO CHAR(40), " & _
"DSC_END_INTERNET CHAR(48), " & _
"NUM_PROPOSTA CHAR(12), " & _
"COD_CIA INTEGER, " & _
"COD_UNID_RECEPCAO INTEGER, " & _
"COD_PROD INTEGER, " & _
"NUM_PROTOCOLO INTEGER, " & _
"FLG_ENVIO CHAR(1))"
'>>>Onde gero o erro 429 e onde terei que mudar a linha como informou
Set ODTn = DBEngine.Workspaces(0).CreateDatabase(App.Path & "FC.MDB", dbLangGeneral, dbVersion30)
ODTn.Close '>>>Onde gero o erro 429 e onde terei que mudar a linha como informou
Set OWTn = Workspaces(0) Set ODTn = OWTn.OpenDatabase(App.Path & "FC.MDB", False, False, ";") ODTn.Execute tmpMDB, 0 ---- Grato, |
|
|
|
|
|
Postada em 21/10/2010 09:58 hs
Criado e testado em DAO.
Vc referencia nas propiedades do projeto microsoft DAO 3.6 OBJETCT LIBRARY
Dim banco As Database
Dim SQL As String
Set banco = CreateDatabase("C:\Bancodados\Nomebanco.mdb", dbLangGeneral)
SQL = "CREATE TABLE FCsCred "
SQL = SQL & " (CONTR INTEGER, " & _
"NME_PRODR CHAR(40), " & _
"NME_FAVORECIDO CHAR(40), " & _
"DSC_END_INTERNET CHAR(48), " & _
"NUM_PROPOSTA CHAR(12), " & _
"COD_CIA INTEGER, " & _
"COD_UNID_RECEPCAO INTEGER, " & _
"COD_PROD INTEGER, " & _
"NUM_PROTOCOLO INTEGER, " & _
"FLG_ENVIO CHAR(1));"
banco.Execute SQL
banco.Close
|
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 21/10/2010 15:46 hs
Juan, Blz funcionou... Não estou conseguindo dar insert na tabela criada no MDB. Estou tentando assim. --- banco.Execute SQL 'onde, o SQL é INSERT... --- Tenho que criar alguma variavel? |
|
|
|
|
|
Postada em 21/10/2010 16:18 hs
VC PODE USAR A MESMA VARIAVEL SQL , TESTADO E APROVADO. PQ DEPOIS DE CRIAR A TABELA A VARIVEL SQL FICA LIVRE E VC USA PARA INSERIR REGISTROS
SQL = "insert into FCsCred(CONTR, " & _
"NME_PRODR, " & _
"NME_FAVORECIDO, " & _
"DSC_END_INTERNET, " & _
"NUM_PROPOSTA, " & _
"COD_CIA, " & _
"COD_UNID_RECEPCAO, " & _
"COD_PROD, " & _
"NUM_PROTOCOLO, " & _
"FLG_ENVIO) " & _
"values(1,'produto x','favorecido','enredeco x', 'PRO.2',1,1,35,5,'A')"
banco.Execute SQL
banco.Close
|
|
TÓPICO EDITADO
|
|
|
|
|
