Discussion :

[mims1664]

Bonjour,

Je n'arrive pas a écrire dans une base de donnée, j'ai réussi a effectuer un script qui lit les données, par contre impossible d'effectuer un insert.
Au passage je lis les données d'un fichier csv pour les inclures dans la base.
Pour les tests j'enregistre les mêmes données.

Voici mon script :

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
'sql
Const adOpenStatic = 3 
Const adLockOptimistic = 3 
 
'csv
Dim fso 
Dim fCsv 
Dim tb 
Const ForReading = 1
 
'sql
Set objConnection = CreateObject("ADODB.Connection") 
Set objRecordSet = CreateObject("ADODB.Recordset") 
objConnection.Open _ 
  "Provider=SQLOLEDB;Data Source=localhost;" & _ 
      "Trusted_Connection=Yes;Initial Catalog=maj;" & _ 
           "User ID=ch-test0\administrateur;Password=xxxxx" 
 
Set fso = CreateObject("scripting.filesystemobject")
Set fCsv = fso.OpenTextFile("Annuaire_Principal.csv", ForReading)
If Not fCsv.AtEndOfStream Then fCsv.ReadLine ' lecture ligne d'entête
 While Not fCsv.AtEndOfStream
  tb = Split(fCsv.ReadLine, ";")
	sqlstring ="INSERT INTO [maj].[dbo].[user] (id ,prenom ,nom ,matricule ,mail ,pwd) VALUES('2' ,'prenom','nom','matricule' ,'mail','pwd')"
	objRecordSet.Execute(sqlstring)
	objConnection, adOpenStatic, adLockOptimistic 
 
 
 Wend

Merci de votre aide.

[ced600]

Quelle erreur est remontée ?