Imports Microsoft.Office.Interop

using Microsoft.Office.Interop;

Try

Dim DaoCompatta As dao._DBEngine

DaoCompatta = New dao.DBEngine()

'primo db origine, secondo db destinazione

DaoCompatta.CompactDatabase("C:\dati.mdb", "C:\dati2.mdb")

MessageBox.Show("DB Compattato")

Catch ex As Exception

MessageBox.Show("Errore: " & ex.Message)

End Try

try

{

dao.DBEngine DaoCompatta = new dao.DBEngine();

//primo db origine, secondo db destinazione (che crea il metodo)

DaoCompatta.CompactDatabase("C:\\dati.mdb", "C:\\dati2.mdb", null,null,null);

MessageBox.Show("DB Compattato");

}

catch (Exception ex)

{

MessageBox.Show("Errore: " + ex.Message);

}

Per coloro che scrivono applicazioni con vari linguaggi (VB.Net, c#, ecc) ed in vari ambienti (windows e web)  in cui si utilizza il database Microsoft Access 2007, avranno notato come viene generato un errore nel caso che da codice si esegua una query (es update) in cui un campo è chiamato note.

Come mi ha fatto notare il mio amico Seb, questo è dovuto al fatto che la parola note, è una parola chiave sql, e quindi genera un eccezione nel momento che si va ad eseguire una query dal linguaggio di programmazione.

Questo bug (si potrebbe evitare l'uso di campi di tipo parole chiave), presente anche con la versione precedente (2003) può essere risolto, cambiando il nome del campo da note a nota o come suggerito da Seb, mettendo tale parola chiave tra parentesi quadrate [note]

Ringrazio l'amico Seb, per averli avvisato di tale svista, sperando che ora sia più comprensibile il post, inserito sopratutto per coloro che si stanno avviciando alla programmazione .Net, con i linguaggi VB.Net e C# ed il database Access 2007.

Che dirvi ....portatevi sempre lo spary anti baco :-)))))

Pubblicato un nuovo articolo riguardante la programmazione Office, tramite VBA.

Da questo sito http://blog.shareoffice.it/emanuele/articles/9542.aspx potete leggere un articolo su come creare un calendario da utilizzare in Microsoft Access 2007.

Che dirvi.. buona lettura :-)))

L'esempio qui proposto illustra una tecnica di come utilizzare Microsoft Access 2007, in un progetto di tipo windows Application.

Dopo aver aggiunto il riferimento a Microsoft Access, è possibile utilizzare gli oggetti di access per gestire tale database.

Di seguito si riporta un esempio di codice.

VB.Net

Spazio dei nomi:

Per aprire il database Microsoft Access 2007:

Apertura e stampa di un report, e visualizzazione di una maschera.

C#

Per aprire il database Microsoft Access 2007:

Apertura e stampa di un report, e visualizzazione di una maschera.

Tramite la parola download è possibile scaricare il file di Esempio

Download

Il frammento di codice qui di seguito, verifica che un anno è bisestile, la funzione ritorna true se è bisestile o false se non lo è.

'Funzione richiamata dall'evento click di un pulsante

Private Sub CommandButton1_Click()
    MsgBox (AnnoBisestile(TextBox1.Text))
End Sub

'Funzione di verifica dell'anno

Private Function AnnoBisestile(IntAnno As Integer) As Boolean

If IntAnno Mod 4 = 0 And IntAnno Mod 100 <> 0 Or IntAnno Mod 400 = 0 Then
    AnnoBisestile = True
Else
    AnnoBisestile = False
End If

End Function

Il seguente frammento di codice, permette di rilevare alcune informazione relativo al sistema, in particolare Hard Disk.

Aggiungere il riferimento a Microsoft Scripting RunTime.

'caricare il file system object
Dim Fso As FileSystemObject
Dim ObjDrive As Drive
Set Fso = New FileSystemObject
Set ObjDrive = Fso.GetDrive("C:\")
MsgBox "Il numero seriale Hard Disk: " & ObjDrive.SerialNumber, vbInformation, "Drive"
MsgBox "Spazio libero: " & ObjDrive.FreeSpace, vbInformation, "Drive"
MsgBox "Sistema: " & ObjDrive.FileSystem, vbInformation, "Drive"
MsgBox "Quantità massima: " & ObjDrive.TotalSize, vbInformation, "Drive"
MsgBox "Nome Hard Disk " & ObjDrive.VolumeName, vbInformation, "Drive"

I file chm sono file utilizzati per fornire informazioni agli utenti,ossia delle guide, se vogliamo corredare il nostro programma, con una guida, possiamo crearli e poi richiamarli nelle nostre applicazioni.

Tramite le api di Windows, si può richiamare un file chm, in particolare tramite l'api HtmlHelpTopic  Di seguito si riporta un esempio di codice.

'dichiarazione api
Private Declare Function HtmlHelpTopic Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByVal dwData As String) As Long
 

Di seguito si riporta una funzione che può essere utilizzate nella varie parti del programma.

'funzione per avviare il file chm
Sub AvviaHtmlHelp(ByVal sHelpFile As String, ByVal sHelpPage As String)
Const HH_DISPLAY_TOPIC = &H0
On Error Resume Next
' apro il file chm nella pagina, passata tramite il parametro sHelpPage

HtmlHelpTopic 0, sHelpFile, HH_DISPLAY_TOPIC, sHelpPage
End Sub
 

Frammento di codice da utilizzare nell'evento click di un pulsante o menu:

Call AvviaHtmlHelp("c:\guida.chm", "pagina.htm")

Vi segnalo questo nuovo articolo http://blog.shareoffice.it/emanuele/articles/9233.aspx riguardante la programmazione VBA con microsoft Access.

In particolare la gestione della rotella del mouse.

Che dirvi... buona lettura :-)))

Pubblicato un nuovo articolo riguardante la programmazione Visual Basic application, in particolare da questo sito http://blog.shareoffice.it/emanuele/articles/9216.aspx potete leggere un articolo riguardante l'importanzione dei dati da un database access in Microsoft Outlook 2003, il programma per la posta elettronica.

Che dirvi... buona lettura :-)))

Trucco: vba - Rilevare la lettera del cd-rom

Tramite l'api GetDriveType, possiamo ottenere la lettera che contraddistingue il cd-rom.

Di seguito si riporta un frammento di codice del suo utilizzo.

'Dichiarazione di api

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
 

'Funzione per ottenere il drive

Private Sub OttieniCDROM()
    Dim intDrive As Integer
    Dim StrMessaggio As String
    Const DRIVE_CDROM = 5
    StrMessaggio = "Nessun CD_ROM Installato"
    For intDrive = 65 To 90
        If GetDriveType(Chr(intDrive) & ":\") = DRIVE_CDROM Then
            StrMessaggio = "La lettera del cd-rom è:" & Chr(intDrive) & ":\"
            Exit For
        End If
    Next intDrive
MsgBox (StrMessaggio)

End Sub