Message d'erreur "Le fournisseur ou l'objet ne prend pas en charge cette m&

Question

Bonjour,
Je veux tout simplement ajouter un nouvel enrégistrement à  ma table DEPARTEMENT qui comporte les champs NoDept et NomDept avec l'objet Recordset de l'ADODB. Mais voilà que j'ai ce message d'erreur (j'ai fait la référence à la DLL). Je vous prie de m'aider. Je ne saurai exprimer l'urgence;
Merçi
voici le code qui génere l'erreur:

Option Explicit
 Dim conn As New ADODB.Connection  ' Connection au moteur ADO
Dim Cmd As New ADODB.Command      ' Commande pour le moteur ADO
Dim rsADO As New ADODB.Recordset      ' enreg resultat
  Option Explicit
 Dim conn As New ADODB.Connection  ' Connection au moteur ADO
Dim Cmd As New ADODB.Command      ' Commande pour le moteur ADO
Dim rsADO As New ADODB.Recordset      ' enreg resultat
Dim strQuery As String            ' Chaine de requête
 
 
Private Sub Command1_Click(Index As Integer)

 If Index = 0 Then 'Si on a cliqué sur OK alors
    ' Definition de la chaine de connection
     conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Stagiaire\Stage\GestionParc.mdb;Persist Security Info=False"
    
    ' Connection à la base de donnée
    conn.Open
    
    ' Affectation des commandes à la connection active
    Cmd.ActiveConnection = conn
    
    ' Table des Départements
     strQuery = "Alter table Departement "NoDept,NomDept  "
    Cmd.CommandText = strQuery
    
    ' Initialisation du Curseur Client
    rsADO.CursorLocation = adUseClient
    ' Utilisation d'un Curseur Client Dynamique
    rsADO.CursorType = adOpenDynamic

    rsADO.Open "MATERIEL", conn, , , adCmdTable
    
    
    rsADO.AddNew 'l'erreur est siganlée ici
    rsADO.Fields!Trim("NoDept").Value = CStr(Text1(0).Text)
    rsADO.Fields(1).Value = Text1(1).Text
    rsADO.Update
     
    'Libérer les ressources de la machine
    Set rsADO = Nothing
    
End If

End Sub

emerde · Answer

-------------------------------
 Réponse au message :		  
-------------------------------

> Bonjour,
> Je veux tout simplement ajouter un nouvel enrégistrement à  ma table DEPARTEMENT qui comporte les champs NoDept et NomDept avec l'objet Recordset de l'ADODB. Mais voilà que j'ai ce message d'erreur (j'ai fait la référence à la DLL). Je vous prie de m'aider. Je ne saurai exprimer l'urgence;
> Merçi
> voici le code qui génere l'erreur:
> 
> Option Explicit
>  Dim conn As New ADODB.Connection  ' Connection au moteur ADO
> Dim Cmd As New ADODB.Command      ' Commande pour le moteur ADO
> Dim rsADO As New ADODB.Recordset      ' enreg resultat
>   Option Explicit
>  Dim conn As New ADODB.Connection  ' Connection au moteur ADO
> Dim Cmd As New ADODB.Command      ' Commande pour le moteur ADO
> Dim rsADO As New ADODB.Recordset      ' enreg resultat
> Dim strQuery As String            ' Chaine de requête
>  
>  
> Private Sub Command1_Click(Index As Integer)
> 
>  If Index = 0 Then 'Si on a cliqué sur OK alors
>     ' Definition de la chaine de connection
>      conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Stagiaire\Stage\GestionParc.mdb;Persist Security Info=False"
>     
>     ' Connection à la base de donnée
>     conn.Open
>     
>     ' Affectation des commandes à la connection active
>     Cmd.ActiveConnection = conn
>     
>     ' Table des Départements
>      strQuery = "Alter table Departement "NoDept,NomDept  "
>     Cmd.CommandText = strQuery
>     
>     ' Initialisation du Curseur Client
>     rsADO.CursorLocation = adUseClient
>     ' Utilisation d'un Curseur Client Dynamique
>     rsADO.CursorType = adOpenDynamic
> 
>     rsADO.Open "MATERIEL", conn, , , adCmdTable
>     
>     
>     rsADO.AddNew 'l'erreur est siganlée ici
>     rsADO.Fields!Trim("NoDept").Value = CStr(Text1(0).Text)
>     rsADO.Fields(1).Value = Text1(1).Text
>     rsADO.Update
>      
>     'Libérer les ressources de la machine
>     Set rsADO = Nothing
>     
> End If
> 
> End Sub
>

Message d'erreur "Le fournisseur ou l'objet ne prend pas en charge cette m&

1 réponse

Discussions similaires