Dos SQL
escrow
Messages postés
7
Date d'inscription
lundi 26 mai 2003
Statut
Membre
Dernière intervention
19 décembre 2005
-
29 janv. 2005 à 11:09
cs_labout Messages postés 1356 Date d'inscription samedi 8 décembre 2001 Statut Membre Dernière intervention 23 octobre 2006 - 30 janv. 2005 à 10:58
cs_labout Messages postés 1356 Date d'inscription samedi 8 décembre 2001 Statut Membre Dernière intervention 23 octobre 2006 - 30 janv. 2005 à 10:58
A voir également:
- Dos SQL
- Problème du sac à dos ✓ - Forum C
- Decimal sql ✓ - Forum C# / .NET
- Lpad sql server ✓ - Forum SQL
- Delete sql ✓ - Forum Foxpro
- Modif colonne MONEY en decimal - Forum SQL
1 réponse
cs_labout
Messages postés
1356
Date d'inscription
samedi 8 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2006
8
30 janv. 2005 à 10:58
30 janv. 2005 à 10:58
Utilise plutot du VBScript
Voici un exemple qui lit un fichier texte puis
met a jour une table d'une base de données.
L'exemple est dans fichier nomme vbs
' ***********************************************
' jmb juillet 2004
' appellé avec le paramêtre adresse des fichiers et
' le nom et adresse du fichier trace de CFT
' ex c:\temp\cft.log
'************************************************
Dim fs, f, ts, d, dc, s, n, atab2, i, j, sfichier, sLigne, svar,objconn, connstr
Set args = Wscript.Arguments
sFichier = args(0)
Set fs = CreateObject("Scripting.FileSystemObject")
if not fs.FileExists(sFichier) Then
MsgBox sfichier & " n'existe pas, procéder au transfert"
End if
' définition de la connection
Set objConn = CreateObject("adodb.connection")
connStr = "Provider=MSDataShape.1;Persist Security Info=False;Data Source=le SERVEUR;User ID=sa;Initial Catalog=la base;Data Provider=SQLOLEDB.1"
' mettre le nom du serveur et de la base
objConn.open (connStr)
cernées par la date d'envoie Atab2
Set f = fs.GetFile(sfichier)
Set ts = f.OpenAsTextStream(1, -2)
Do While Not ts.atendofstream
s = ts.ReadLine
atab2 = Split(s, ",")
'msgbox atab2(0) & Right(atab2(1), 4) & Mid(atab2(1), 4, 2) & Left(atab2(1), 2) & ".txt"
objconn.execute "UPD_TB_FICHIERS_DONNEES_ENVOI " & " '" & _
Replace(atab2(2), ":", "") & "','" & _
Right(atab2(1), 4) & Mid(atab2(1), 4, 2) & Left(atab2(1), 2) & _
"','" & atab2(0) & Right(atab2(1), 4) & Mid(atab2(1), 4, 2) & Left(atab2(1), 2) & ".txt" & "'"
Loop
ts.Close ' fermeture du fichier trace de CFT
objConn.Close
Le fichier est par exemple nommé toto.vbs
sous dos toto "c:\machin\titi.txt
labout
Voici un exemple qui lit un fichier texte puis
met a jour une table d'une base de données.
L'exemple est dans fichier nomme vbs
' ***********************************************
' jmb juillet 2004
' appellé avec le paramêtre adresse des fichiers et
' le nom et adresse du fichier trace de CFT
' ex c:\temp\cft.log
'************************************************
Dim fs, f, ts, d, dc, s, n, atab2, i, j, sfichier, sLigne, svar,objconn, connstr
Set args = Wscript.Arguments
sFichier = args(0)
Set fs = CreateObject("Scripting.FileSystemObject")
if not fs.FileExists(sFichier) Then
MsgBox sfichier & " n'existe pas, procéder au transfert"
End if
' définition de la connection
Set objConn = CreateObject("adodb.connection")
connStr = "Provider=MSDataShape.1;Persist Security Info=False;Data Source=le SERVEUR;User ID=sa;Initial Catalog=la base;Data Provider=SQLOLEDB.1"
' mettre le nom du serveur et de la base
objConn.open (connStr)
cernées par la date d'envoie Atab2
Set f = fs.GetFile(sfichier)
Set ts = f.OpenAsTextStream(1, -2)
Do While Not ts.atendofstream
s = ts.ReadLine
atab2 = Split(s, ",")
'msgbox atab2(0) & Right(atab2(1), 4) & Mid(atab2(1), 4, 2) & Left(atab2(1), 2) & ".txt"
objconn.execute "UPD_TB_FICHIERS_DONNEES_ENVOI " & " '" & _
Replace(atab2(2), ":", "") & "','" & _
Right(atab2(1), 4) & Mid(atab2(1), 4, 2) & Left(atab2(1), 2) & _
"','" & atab2(0) & Right(atab2(1), 4) & Mid(atab2(1), 4, 2) & Left(atab2(1), 2) & ".txt" & "'"
Loop
ts.Close ' fermeture du fichier trace de CFT
objConn.Close
Le fichier est par exemple nommé toto.vbs
sous dos toto "c:\machin\titi.txt
labout