Newsgroup: it.comp.appl.access
Titolo: CreateDB

Un saluto a tutti i partecipanti al NG.
Dovrei scrivere una Routine per la creazione di un nuovo "mdb", che dovrebbe
lavorare in una macchina sulla quale non so in precedenza di quali librerie
dispone.
Nei limiti del possibile vorrei evitare di caricare "DAO" o "ADOX".
Di quali strumenti dispongo per risolvere il problema ?
Il dialetto "SQL" di Access mi può risolvere il problema ?
Grazie per l'aiuto.
Ciao - Daniele

 wrote in message
news:lv92e.2891$
aH3....@news.edisontel.com

Con queste funzioni puoi discriminare se hai ADO o DAO
già referenziati, ma devi apportare una modifica all'Oggetto
Application che ora è basato sull'istanza di lavoro, poi potresti
passarlo come oggetto alla Funzione stessa.
In ogni caso il Linguaggio SQL credo possa aiutarti fino ad
un certo punto.
Public Const cDAOGUID As String =
"{00025E01-0000-0000-C000-000000000046}"
Public Const cVBAGUID As String =
"{000204EF-0000-0000-C000-000000000046}"
Public Const cADOGUID As String =
"{00000205-0000-0010-8000-00AA006D2EA4}"
Public Const cACCESSGUID As String =
"{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}"
Public Function IsDAO_Referenced() As Boolean
'==========================================================================
'Name      : IsDAO_Referenced (Function)
'Purpose   : Verifica se Sono Settati i Riferimenti alle Lib. DAO
'Author    : Alessandro Baraldi
'Date      : 01 febbraio 2002
'Called by :
'Calls     :
'Inputs    : Nothing
'Output    : True only if is DAO Reference SET
'==========================================================================
  On Error GoTo 0
  Dim ref As Access.Reference
  Dim blnBroken As Boolean
 
  IsDAO_Referenced = False
  Application.SetOption "Error Trapping", 2
 
  For Each ref In Application.References
    blnBroken = ref.IsBroken
    If ref.Name = "DAO" And ref.Kind = 0 And StrComp(ref.Guid, cDAOGUID,
1) = 0 And Not blnBroken Then
      IsDAO_Referenced = True
      Exit For
    End If
  Next ref
  Set ref = Nothing
End Function
Public Function IsADO_Referenced() As Boolean
'==========================================================================
'Name      : IsADO_Referenced (Function)
'Purpose   :
'Author    : Alessandro Baraldi
'Date      : 01 febbraio 2002
'Called by :
'Calls     :
'Inputs    :
'Output    :
'==========================================================================
  On Error GoTo 0
  Dim ref As Access.Reference
  Dim blnBroken As Boolean
 
  IsADO_Referenced = False
  Application.SetOption "Error Trapping", 2
 
  For Each ref In Application.References
    blnBroken = ref.IsBroken
    If ref.Name = "ADODB" And ref.Kind = 0 And StrComp(ref.Guid,
cADOGUID, 1) = 0 And Not blnBroken Then
      IsADO_Referenced = True
      Exit For
    End If
  Next ref
  Set ref = Nothing
End Function
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:lv92e.2891$aH3....@news.edisontel.com...

Se la creazione del database la esegui da Access puoi usare la property
DbEndine appartenente alla libreria di Access quindi senza avere tra i
riferimenti la libreria DAO
es..
--------------------------
Sub CreaDb()
Dim DbNuovo As Variant
Dim LangGeneral as String
LangGeneral=";LANGID=0x0409;CP=1252;COUNTRY=0"
Set DbNuovo = DBEngine.CreateDatabase("C:\NuovoDb.mdb", LangGeneral)
Set DbNuovo = Nothing
End Sub
-------------------------
Ciao Giorgio

 ha scritto nel
messaggio news:4249388d$0$18149$5fc...@news.tiscali.it...

Giorgio ti ringrazio per la tua esauriente risposta e per l'inestimabile
aiuto.
 Ciao - Daniele

 ha scritto nel messaggio
news:b6573ab7634592c069...@mygate.mailgate.org...

Alessandro ti ringrazio per la tua esauriente risposta e per l'inestimabile
aiuto.
 Ciao - Daniele