Base de données ACCESSRésolu

Question

Bonjour à tous,
Seriez-vous comment rajouter dynamiquement (en VB2005 - ADO)  un nouveau champ (de type image) dans une table Access déjà existante ?
Merci d'avance,

Renfield · Accepted Answer

tu pourrais executer une requete ALTER TABLE

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Renfield · Answer

*"sauriez"

je pense que ce que tu cherches, c'est la méthode Fields.Append...

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_Nurgle · Answer

Question redirigé de "CodeS-SourceS > Le Bar > Discussions libres" vers "VB 2005 > Base de données > Access".

<hr width="100%" size="2" />Nurgle (Antoine)

bounz_56 · Answer

Bonjour à tous,

Je ne pense pas que cela soit la méthode Fields.Append...
J'ai cherché sur MSDN et j'ai trouvé qu'il fallait utiliser les membres "Column" de la table à modifier pour ensuite ajouter ce nouveau champ. (voir ci-dessous le bout de code).
Cela semble fonctionner (pas d'erreur de compilation) mais au final, le champ PHOTOW  n'est pas crée dans la table....
Auriez-vous une idée ?

Sub

 BDD_ADD_NEW_FIELD(
ByVal chemin_base$, 
ByVal nom_table$)

Dim strConn 
As
String, chaine_SQL$

Dim ObjetConnection 
As OleDbConnection

Dim ObjetCommand 
As OleDbCommand

Dim ObjetDataAdapter 
As OleDbDataAdapter

Dim ObjetDataSet 
As
New DataSet

Dim ObjetDataTable 
As DataTablestrConn = 

"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & chemin_base$ & 
";User ID=Admin;Password=; "chaine_SQL$ = 

"SELECT * FROM [" & nom_table$ & "]"ObjetConnection New OleDbConnectionObjetConnection.ConnectionString strConn

ObjetConnection.Open()
ObjetCommand New OleDbCommand(chaine_SQL$)ObjetDataAdapter 

New OleDbDataAdapter(ObjetCommand)ObjetCommand.Connection() = ObjetConnection

ObjetDataAdapter.Fill(ObjetDataSet, nom_table$)

'----------------------------------------------------------

'Mettre dans un Objet DataTable une table du DataSet

'----------------------------------------------------------ObjetDataTable = ObjetDataSet.Tables(nom_table$)

'----------------------------------------------------------

'Création d'un nouveau champ

'----------------------------------------------------------

Dim workCol 
As DataColumn = ObjetDataTable.Columns.Add(
"PHOTOW", Type.GetType("System.Int32"))workCol.AllowDBNull TrueworkCol.Unique 

False

'----------------------------------------------------------

Dim CmdBuild As OleDbCommandBuilderCmdBuild New OleDb.OleDbCommandBuilder(ObjetDataAdapter)ObjetDataAdapter.InsertCommand CmdBuild.GetInsertCommand

ObjetDataAdapter.Update(ObjetDataSet, nom_table$)

ObjetConnection.Close()

End
Sub

Renfield · Answer

Comme ceci :

    Private Sub BDD_ADD_NEW_FIELD(ByVal chemin_base$, ByVal nom_table$)
        Dim strConn As String, chaine_SQL$
        Dim ObjetConnection As OleDbConnection
        Dim ObjetCommand As OleDbCommand

        strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & chemin_base$ & ";User ID=Admin;Password=; "
        chaine_SQL$ = "SELECT * FROM [" & nom_table$ & "]"
        ObjetConnection = New OleDbConnection

        ObjetConnection.ConnectionString = strConn
        ObjetConnection.Open()

        ObjetCommand = New OleDbCommand("ALTER TABLE " & nom_table & " ADD PHOTOW Int", ObjetConnection)

        Try
            ObjetCommand.ExecuteNonQuery()
        Finally
            ObjetConnection.Close()
        End Try
    End Sub

Renfield
Admin CodeS-SourceS- MVP Visual Basic

bounz_56 · Answer

Bonjour à tous,
J'ai testé avec succès la proposition de Renfield... 
Merci beaucoup de votre aide.

Base de données ACCESS

6 réponses

Votre réponse