Ecrire dans une base de données sql server
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:
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.