adil
22 août 2007 à 12:29
salam
je m 'excuse pr le retard ,mais je me suis pas connécté ces derniers jours
code a testé en Vb.NET
'declaration des variable de connexion
Private nom_connexion As New SqlConnection
Private cmd As New SqlCommand()
Public myReader As SqlDataReader
' inicialisation de la chaine de connexion dans le cas d une authentification windows
nom_connexion.ConnectionString = "server=nom_du_serverur;"& _
"database=nom_de_la_base;"& _
"Persist Security Info=false;" & _
"Integrated Security=SSPI;"
' inicialisation de la chaine de connexion dans le cas d une authentification sql server
nom_connexion.ConnectionString = "server=nom_du_serverur;"& _
'"database=nom_de_la_base;"&
'"Persist Security Info=True;" & _
'"User ID=sa;" & _ 'sa ou un autre login!!
'"Password=mot_de_passe;"
' ouverture de la connexion
nom_connexion.Open()
'initialisation de la commande
cmd.Connection = nom_connexion
i=1
Do While i <> nbr_totale_de_lign
str_ma_requette="SELEC Valeur,CoutA,CoutB,CoutC,CoutD From Ma_Table WHERE " & _
" valeur = Val"& i.toString
cmd.CommandText = str_ma_requette
myReader = cmd.ExecuteReader()
if(myReader.Read)
Ma_Procedure_De_Tri(i,myReader.GetValue(1).toString,myReader.GetValue(2).toString,myReader.GetValue(3).toString,myReader.GetValue(4).toString)
myReader.Close()
i = i + 1
Loop
'la fonction Ma_Procedure_De_Tri
Sub Procedur Ma_Procedure_De_Tri(ByVal i as int,ByVal ValA as String,ByVal ValB as String,ByVal ValC as String,ByVal ValD as String)
'cette procedure doit stocké les 4 valeur dans une table :T
' effectué le trie de cette table (il ya +ieur méthode de trie !)
'les resultat de l ordre doit etre stocké dans une autre table :Table_resultat :
'si valA = T[k] alors tu dois Table_resultat[0]=k & eme
'et si ValB =T[m] alors tu Tab_Resultat[1]=m et ansi de suite ....
'puis tu inser ces valeurs dans ta base de donné apr le code suivant
str_ma_requette="INSERT into Ma_Table(CoutA,CoutB,CoutC,CoutD ) Value" & _
Table_resultat[0] & "," & Table_resultat[1] & "," & Table_resultat[2] & "," & Table_resultat[3] & _
"WHERE Valeur =val" &
" valeur = Val"& i.toString
cmd.CommandText = str_ma_requette
myReader = cmd.ExecuteReader()
RQ: j ai pas tester ce code mais j espère qu il t aide un peut
END Sub
j un problem avec vb.net et sql 2005 comme celui que tu la eu avant je saisd sa fait leongtemps que tu as poser ton problem sur le forom mai je le consulter maint si tu peux m'aider reponds moi stp
merci