CREER BASE DE DONNER ACCESS ET TABLE

dans le prog on import la dll
et on la declare

Public Class Form1

    Private Creer As New cbdd.BaseAccess

    Private Sub BtnCreerTable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCreerTable.Click
        If Not Me.TxtChamp.Text = "" Then
            Creer.CreateTable(Me.TxtNomTable.Text, Me.TxtChamp.Text)
            MessageBox.Show("Table créer")
        Else
            MessageBox.Show("Chemin Vide", "Erreur", MessageBoxButtons.OK)
        End If

        '"CREATE TABLE PARENT (Id INTEGER NOT NULL PRIMARY KEY, Nom CHAR(32) NOT NULL, Prenom VARCHAR(32))"
    End Sub

    Private Sub BtnCreerBase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCreerBase.Click
        If Not Me.TxtChemin.Text = "" And Me.TxtNomTable.Text = "" Then
            Creer.CreateBDD(Me.TxtChemin.Text)
            MessageBox.Show("Base créer")
        Else
            MessageBox.Show("Chemin Vide", "Erreur", MessageBoxButtons.OK)
        End If
    End Sub
End Class

Télécharger le zip

09 mars 2007 10:48:48 :

un bug ou autre, contactez moi !