Insertion de données dans Excel

Version imprimable

Bonjour,

Dans une appli VB6, j'ai besoin d'ajouter des enregistrements dans une feuille Excel 2002.
Voila le code :
Code:

1 2 3 4 5 6 7 8 Conn = "Driver={Microsoft Excel Driver (*.xls)}; DBQ="Test.xls" Set Conn1 = CreateObject("ADODB.Connection") Conn1.Open (Conn) insert into [Feuil3$] ([N° ordre], [Nom]) values('111', 'A') Conn1.Execute (mysql) Conn1.Close Set Conn1 = Nothing
Et le message que je reçois.

Citation:

L'opération doit utiliser une requête qui peut être mise à jour.

Après une journée de recherche, je m'en remets à vous si quelqu'un avait une piste pour régler ce problème.

Par contre, aucun problème avec une requête SQL de type SELECT.

Merci

Bonjour,

Essaye éventuellement cette approche :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub Command1_Click()
 
   'Ajouter "Microsoft ActiveX Data Objects 2.X Library" (cf. menu Projet > Références...)
 
   Dim sCnx As String
   Dim sWbk As String
 
   Dim oCnx As New ADODB.Connection
   Dim oRst As New ADODB.Recordset
 
   sWbk = "C:\Test.xls" '<-- Chemin complet du classeur Excel
 
   'Ouvrir la connexion ADO
   sCnx = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & sWbk & ";Extended Properties=Excel 8.0"
   oCnx.Open sCnx
 
   'Insérer les nouvelles valeurs
   With oRst
      '.CursorLocation = adUseClient
      .Open "SELECT * FROM [Feuil3$]", oCnx, adOpenStatic, adLockOptimistic
      .AddNew
      .Fields("N° ordre").Value = "111"
      .Fields("Nom").Value = "A"
      .Update
      .Close
   End With
 
   'Fermer la connexion ADO
   oCnx.Close
 
   'Libérer les ressources
   Set oRst = Nothing
   Set oCnx = Nothing
 
End Sub

wape

01/02/2008, 16h16
pc75

Re,

Merci, je regarderai ça en début de semaine prochaine because autre urgence.
02/02/2008, 03h32
zazaraignée
Salut pc75

Déjà, je vois des irrégularités dans ton code, sur les deux premières lignes, à tout le moins.
Code:

1 2 Conn = "Driver={Microsoft Excel Driver (*.xls)}; DBQ="Test.xls" Set Conn1 = CreateObject("ADODB.Connection")
Sur la première ligne, tu as la variable Conn et sur la deuxième ligne, c'est Conn1. Les deux noms ne concordent pas.

Attention aux guillemets dans les chaînes de caractères :

Code:

Conn1 = "Driver={Microsoft Excel Driver (*.xls)}; DBQ=""Test.xls"""

Une façon d'insérer un guillemet dans une chaîne : le doubler. Exemple

Code:

Label1.Caption = """"

Les deux guillemets extérieurs délimitent la chaîne, les deux du centre servent à afficher un seul guillemet dans le Label1.

Mais n'ayant pas vérifié la validité de ton code, il vaudrait mieux explorer aussi la solution proposée par wape.

Ceci dit, si tu souhaite utiliser une autre méthode, tu peux utiliser les objets d'Excel en ajoutant une référence à Excel dans ton projet. Il y a un tutoriel que tu as peut-être déjà exploré : Utiliser Excel à partir de Visual Basic.
02/02/2008, 06h19
Invité

Bonjour

En complément du lien de Zaza, cet article de Silkyroad devrait t'aider : Lire et modifier les propriétés des classeurs et autres fichiers.

Starec
04/02/2008, 15h07
pc75

Re,

Tout d'abord, merci de vos réponses.

J'ai testé la méthode de wape, et l'enregistrement a bien été créé.

Par contre, je ne vois pas comment l'utiliser dans mon cas. Je me plante peut-être sur la démarche.

En fait, j'ai deux feuilles avec exactement les mêmes colonnes. Le but de l'opération est de créer une troisième feuille avec les données de la première et y ajouter les données de la seconde qui n'existent pas déjà dans la première.
Je dois ensuite appliquer un tri sur plusieurs colonnes dans cette troisième feuille.

Merci à vous.
04/02/2008, 16h21
zazaraignée

À mon avis, tout ça peut se faire sans utiliser une connexion de type base de données.

En incluant une référence à Excel dans ton projet et en utilisant les objets d'excel, tu devrait y arriver. Un peu comme si tu créais un programme en VBA mais dans VB6. Jette un œil au lien que je t'ai fourni.
05/02/2008, 08h27
pc75

Re,

Merci, mais je suis plus à l'aise en SQL qu'en VBA.

Un début de piste sur les objets qu'il faudrait utiliser m'aiderait. Après, pour la manipulation des propriété et des méthodes, je devrai m'en sortir.

Je suppose que l'idée est de fusionner mes deux feuilles dans une troisième, de trier cette troisième feuille par N° et ensuite de boucler sur toutes les lignes en supprimant celles pour lesquelles le N° précédent est le même ?

Merci.
06/02/2008, 08h24
pc75

Re,

C'est OK avec l'objet excel.application

Merci