dark0 Postado Abril 12, 2004 Denunciar Share Postado Abril 12, 2004 Criar MDB pelo Dao 3.6Const dbVersion10 = 1 Const dbVersion11 = 8 Const dbVersion20 = 16 Const dbVersion30 = 32 Const dbVersion40 = 64 Sub CreateNewMDB(FileName, Format) Dim Engine Set Engine = CreateObject("DAO.DBEngine.36") Engine.CreateDatabase FileName, ";LANGID=0x0409;CP=1252;COUNTRY=0", Format End Sub 'Create Access2000 database CreateNewMDB "G:\a2000.mdb", dbVersion40Fonte: http://www.portaldaprogramacao.com/artigos2.asp?n=61 Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
dark0
Criar MDB pelo Dao 3.6
Const dbVersion10 = 1 Const dbVersion11 = 8 Const dbVersion20 = 16 Const dbVersion30 = 32 Const dbVersion40 = 64 Sub CreateNewMDB(FileName, Format) Dim Engine Set Engine = CreateObject("DAO.DBEngine.36") Engine.CreateDatabase FileName, ";LANGID=0x0409;CP=1252;COUNTRY=0", Format End Sub 'Create Access2000 database CreateNewMDB "G:\a2000.mdb", dbVersion40Fonte: http://www.portaldaprogramacao.com/artigos2.asp?n=61
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.