P
Pierre
Guest
Bonjour à tous
Tout d'abord un grand merci à tous les participants actifs de ce forum.
Je souhaite écrire des données dans un champ qui porte un nom composé de "db_budget_" suivi du numéro du mois extrait de la date "DateDA" et de la forme "14/02/2005".
Voici mon problème:
Dans le sript ci-desous je n'arrive pas à faire prendre à ma variable "budget" après "INSERT INTO" la valeur budget déclarée dans "Affectation du champ"
Pouvez vous m'aider ?
Merci d'avance à vous tous
-----------------------------------------------------------------
fichier = "E:\DPR\MGR\LOM\GMAO\Budget\" & "FG2005-Ligne" & ligneBud & ".xls"
Set source = New ADODB.Connection
source.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"data source=" & fichier & ";" & _
"extended properties=""Excel 8.0;"""
'Recherche N° Mois
Dim Mois As String
Mois = Mid(DateDA, 4, 2)
'Affectation du nom du champ
Dim budget As String
budget = "db_budget" & "_" & Mois
''texte_SQL = "INSERT INTO db_budget (Numéro,Date_DA,Descriptif,NumCde,Montant_DA,Oui) VALUES ('" & (valeur1) & "','" & (Date_DA) & "','" & (valeur3) & "','" & (valeur4) & "','" & (valeur5) & "','" & (valeur6) & "')"
texte_SQL = "INSERT INTO budget (Numéro,Date_DA,Descriptif,NumCde,Montant_DA,Oui) VALUES ('" & (valeur1) & "','" & (Date_DA) & "','" & (valeur3) & "','" & (valeur4) & "','" & (valeur5) & "','" & (valeur6) & "')"
'Insertion données
Set externe = New ADODB.Recordset
Set externe = source.Execute(texte_SQL)
source.Close
Tout d'abord un grand merci à tous les participants actifs de ce forum.
Je souhaite écrire des données dans un champ qui porte un nom composé de "db_budget_" suivi du numéro du mois extrait de la date "DateDA" et de la forme "14/02/2005".
Voici mon problème:
Dans le sript ci-desous je n'arrive pas à faire prendre à ma variable "budget" après "INSERT INTO" la valeur budget déclarée dans "Affectation du champ"
Pouvez vous m'aider ?
Merci d'avance à vous tous
-----------------------------------------------------------------
fichier = "E:\DPR\MGR\LOM\GMAO\Budget\" & "FG2005-Ligne" & ligneBud & ".xls"
Set source = New ADODB.Connection
source.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"data source=" & fichier & ";" & _
"extended properties=""Excel 8.0;"""
'Recherche N° Mois
Dim Mois As String
Mois = Mid(DateDA, 4, 2)
'Affectation du nom du champ
Dim budget As String
budget = "db_budget" & "_" & Mois
''texte_SQL = "INSERT INTO db_budget (Numéro,Date_DA,Descriptif,NumCde,Montant_DA,Oui) VALUES ('" & (valeur1) & "','" & (Date_DA) & "','" & (valeur3) & "','" & (valeur4) & "','" & (valeur5) & "','" & (valeur6) & "')"
texte_SQL = "INSERT INTO budget (Numéro,Date_DA,Descriptif,NumCde,Montant_DA,Oui) VALUES ('" & (valeur1) & "','" & (Date_DA) & "','" & (valeur3) & "','" & (valeur4) & "','" & (valeur5) & "','" & (valeur6) & "')"
'Insertion données
Set externe = New ADODB.Recordset
Set externe = source.Execute(texte_SQL)
source.Close