Requête sql INSERT

J'ai lu cette discussion.

Citation:

---

Envoyé par rdurupt

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() Dim Cn As Object Set Cn = CreateObject("Adodb.connection") With Cn .Provider = "MSDASQL" .ConnectionString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};driverid=1046;" & _ "DBQ=" & ThisWorkbook.FullName & ";ReadOnly=False;HDR=NO;IMEX=1;" .Open End With Cn.Execute "Update [Feuil1$] Set [Champ]='2'" End Sub

---

Voila cette écriture fonctionne, mais considère la première valeur de la colonne comme l'entête du champ!

Code:

---

HDR=NO set [Champ]='2'"

---

---

J'ai le même problème que toi. Dans ton premier message tu voulais faire un INSERT. Et ton dernier message porte un UPDATE. Je souhaite faire un INSERT, comment puis-je faire?

Lorsque j'utilise la chaine de connexion :

Code:

---

Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};driverid=1046

---

J'ai le message : "Pilote ISAM introuvable"...

Salut Robert

Comme cela ca fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub Write2XL() Dim Cnn As Object   Set Cnn = CreateObject("ADODB.Connection") repertoire = ThisWorkbook.Path & "\" Fichier = repertoire & "ADOsource.xlsx" Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & Fichier & ";" & _ "Extended Properties=Excel 12.0;" 'oCn.Execute "Insert Into [Feuil1$] (texte) Values('mon texte')" Dim cm As New ADODB.Command With cm .ActiveConnection = Cnn .CommandText = "INSERT INTO [Feuil1$] ([texte]) Values (?)" .CommandType = adCmdText Set Pm = .CreateParameter("@texte", adLongVarChar, adParamInput, 30000, Workbooks("Ajout enregistrements.xls").Sheets("feuil1").Cells(2, 3)) .Parameters.Append Pm 'On Error Resume Next .Execute Debug.Print Err.Description End With Cnn.Close End Sub

---