Bonjour à tous,
J'ai donc ce problème uniquement pour mon UPDATE. Les INSERT et SELECT se passent bien. J'ai exploré ce forum et d'autres, ait trouvé des choses intéressantes mais aucune ne marche pour moi. Je suis désespérément bloqué. Quelqu'un a-t-il eu ce problème?
par ailleurs, peut-être est-ce lié, mes INSERT écrivent dans des csv les champs numériques avec des guillemets double bien qu'ayant pris la précaution de ne pas mettre de simple ' dans ces champs.
Merci
Le code qui appelle:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 Sub RSQLU(vPt As String, vStrSql As String) 'Requête insert 'entrées path,requête 'sorties (pBe est ce que la base existe) Dim vEm As String 'error message Dim vCC As String 'chaine de connection Dim vSQ As String 'chaine sql Dim vAR As ADODB.Connection 'On Error GoTo ErrTrap pBe = True vCC = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _ & vPt & "\;Extended Properties='text;HDR=YES;FMT=Delimited'" vSQ = vStrSql Set vAR = New ADODB.Connection vAR.Open vCC vAR.Execute vSQ, , adCmdText Or adExecuteNoRecords vAR.Close Set vAR = Nothing Exit Sub ErrTrap: Select Case Err.Number Case -2147217865 pBe = False Exit Sub Case Else MsgBox (vStrSql) vEm = "erreur n°: = " & Err.Number & vbCr vEm = vEm & Err.Description & vbCr & vbCr MsgBox (vEm) End Select End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58 Sub MjEc() 'objectif MJ des tables écart to do controles fichiers prm & controle par cat Dim vSr As String Dim i As Integer Dim vEm As String Dim vAcV As Long 'On Error GoTo ErrTrap PathLoad 'chargement variables Path CsvNmLoad 'chargement variables Noms des csv pIf = False 'requête version d'Excel SqlSUVrsn If pIf = True Then Exit Sub pPrmEV = pRR AcShDl 'Liste des Items à charger - requête catégories présentes dans pCscat et attribution SqlSLCatNm If pIf = True Then Exit Sub Call ItemLoad("Choisissez une catégorie") AcShDl If pBtC2 = True Then MsgBox ("Fin du Programme") Exit Sub End If 'déduction du nom de la loterie pLtrNm = Left(pUfIs, 4) 'requete nom du fichier source SqlSUSrcFil If pIf = True Then Exit Sub AcShDl pCsSrc = pRR 'récup du chemin vers import SqlSUPathI If pIf = True Then Exit Sub AcShDl pPtImp = pRR 'vérif présence du fichier source Call FicPre(pPtImp, pCsSrc) If pFP = False Then MsgBox (pCsSrc & " est absent. Fin du programme") Exit Sub End If 'création fichier bis pCsBis = pLtrNm & "Bis.csv" Call ImpLtrCsv(pLtrNm) If pIf = True Then Exit Sub 'move XlsToCsv (pCsBis) FileCopy pPtWrk & "\" & pCsBis, pPtDtS & "\" & pCsBis Kill pPtWrk & "\" & pCsBis Cells(pPrmEV, 1).Select Selection.End(xlUp).Select vAcV = ActiveCell.Value 'écriture de l'age 'vSr = "UPDATE " & pCsLtr & " SET SFAge = '" & vAcV & "' WHERE LtrNm = '" & pLtrNm & "'" Call RSQLU(pPtPrm, vSr)
Partager