Connessione ad access

2 Risposte

• Y

  y2ksw

  Molto attivo

  Iscritto da

  lug, 2003

  Messaggi:

  741

  Re: Connessione ad access

  06 set 2004, 15:37

  Dim db as DAO.Database
  
  Set db = DBEngine.OpenDatabase(App.Path & "\DB1.MDB", False, False)
  
  '...
  
  Giovanni
  ---
  http://www.y2ksw.com/vbulletin
• B

  bottomap

  Utente Attivo

  Iscritto da

  mar, 2004

  Messaggi:

  312

  Re: Connessione ad access

  08 set 2004, 16:08

  Oppure:
  
  Dim conn as ADODB.Connection
  Dim tabella as ADODB.Recordset
  
  'Quando vuoi aprire la connessione
  Set conn = new ADODB.Connection
  Set tabella = new ADODB.Recordset
  
  conn.Open App.Path & "\DB1.MDB"
  tabella.Open "SELECT * FROM [tabella] ... etc etc", conn, adOpenStatic, adLockBatchOptimistic, adCmdText
  'A questo punto hai la tabella/query che ti interessa
  
  'Quando hai finito
  Set tabella = Nothing
  conn.Close
  Set conn = Nothing
  
  Ciaociao
  
  Venite a visitarci qui: http://spazioinwind.libero.it/bottomapsoftware