Discussion :

[Monnier Eric]

Bonjours,

Pour mon travail de semestre j'ai besoin de pousser les données d'une base de donnée dans une variable.

Pour se faire j'ai essayé plusieurs méthode qui n'ont pas fonctionné correctement.

j'ai d'abord pensé sortir les données de la base avec une tâche et ensuite avec une autre tâches les pousser dans différente variables, mais je n'ai pas trouvé de tâche pour pousser mes données.

Ensuite j'ai essayé avec un script.
Le serveur est configuré pour se connecter à la base de donnée par une authentification Windows.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim cnn As New OleDb.OleDbConnection
cnn.ConnectionString = "Provider=SQLOLEDB.1;Data Source=Mac_213;Initial Catalog=ESNIG_StagingArea"
cnn.Open()

je voudrai savoir si ma connection es possible si je n'indique aucune authentification.
je voudrai aussi savoir si il existe une tâches pour poussé des données dans une variable.

merci.

Eric

[serge0934]

c'est quoi pousser ...

affecter à une variable la valeur sélectée dans une requête?
remplir un tableau avec des données....

[Monnier Eric]

affecter.
je n'ai que 2 colonnes dans ma table et pas beaucoup plus de ligne.
c'est une table de configuration.

[serge0934]

tu peux faire un truc du style, je ne sais pas la syntaxe exacte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim cnn AS New OleDb.OleDbConnection
cnn.ConnectionString = "Provider=SQLOLEDB.1;Data Source=Mac_213;Initial Catalog=ESNIG_StagingArea;Password=MON_PWD;User ID=MON_ID;"
sql="select top 1 champ1,champ2 from matable"
cnn.Open(sql)
 
IF NOT cnn.eof then
ma_variable1=cnn("champ1")
ma_variable2=cnn("champ2")
end IF

[Monnier Eric]

voila se que j'ai fait.
maintenant es qu'il y a un moyen de tester ma fonction en affichant les valeur des variables.

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
 
Public Sub Main()
	Dim connection AS New OleDb.OleDbConnection
	Dim command AS OleDb.OleDbCommand
	Dim Sql AS String
	Dim DATA AS OleDb.OleDbDataReader
	connection.ConnectionString = "Provider=SQLOLEDB.1;Data Source=Mac_213;Initial Catalog=ESNIG_StagingArea;"
	Sql = "select top 1 DifferenceDateMin,DifferenceDateMax from CONFIG_RecupDifferenceDate"
	command = New OleDb.OleDbCommand(Sql)
	command.Connection = connection
 
	connection.Open()
	DATA = command.ExecuteReader()
	Dts.VARIABLES("DifferenceDateMin").Value = DATA("DifferenceDateMin")
	Dts.VARIABLES("DifferenceDateMax").Value = DATA("DifferenceDateMax")
 
	Dts.TaskResult = Dts.Results.Success
End Sub