[SQL2005] pousser des données dans une variable

Version imprimable

25/03/2008, 13h46
Monnier Eric

[SQL2005] pousser des données dans une variable
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:

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
25/03/2008, 13h51
serge0934

c'est quoi pousser ...

affecter à une variable la valeur sélectée dans une requête?
remplir un tableau avec des données....
25/03/2008, 13h55
Monnier Eric

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

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

Code:

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

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:

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