[VB .NET 2005] Lire les données de SQL Server Résolu/Fermé

Question

Bonjour,

Je développe une me permettant d'ajouter, de supprimer et de rechercher des éléments dans une base de données SQL Server.

L'ajout des données est réalisé.

Par contre la recherche de données et leur affichage m'échappe.

Dans une interface graphique, je saisis par exemple un nom et je souhaite le rechercher dans la base de données pour afficher l'ensemble des colonnes correspondant à ce nom dans un DataGridView. Mon prob est que je n'arrive pas à aller récupérer les informations dans la base de données. Si quelqu'un sait comment faire, ça m'aiderait beaucoup.

Merci d'avance.

angel59 · Accepted Answer

Prob résolu.

julien · Answer

salut
sous quelle version de SQL server 2005 tu travail la standard !

progfann · Answer

bonsoir,

s'il vous plait je voulais un code d'une base de donnée sql server crée sous le vb.net, 

merci d'avance...

voila mon email: progfann@gmail.com

remerci...

wgreg · Answer

Bonjour Angel59, 
Pourrais-tu m'envoyer sur greg_3008@yahoo.fr ton projet par mail s'il te plait ?
Je cherche aussi à intéragir avec une base de données en vb2005.

Merci d'avance.
à bientôt. 
Greg

adil · Answer

salut tt le monde , 
c la 1er fois que j 'essayé d utiliser sql server 2005 et vb.net (visual studio 2005),mes problèmes sans les suivants:
1) je ne sais pas comment je peux indiqué les relations entre les tables a partir de visual studio 2005 !
2) j arrive pas a établire la connection!! 
merci de m aider!! 
bj

hajarussa · Answer

salut  ,

Même pb avec la recherche sous vb.net et sql 2005, pourriez vous nous passer le code.

Merci d'avance
voilà mon code 
Private Sub bt_search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_search.Click
        Dim recherche As String
        recherche = InputBox("Veuillez saisir le nom du Patient ")
        If Not recherche = String.Empty Then
      
            On Error Resume Next
            'definition de notre table
            Dim Matable As DataTable
            Matable = DS_cabinet.Tables("_tbPATIENT")

            'cree un objet dataview pour filtrer les enregistrements
            Dim filtre As New DataView(Matable)
            filtre.RowFilter = "nom like '*" & recherche & "*'"

            'affiche les valeurs
            txt_id.Text = filtre.Item(0)(0)
            txt_nom.Text = filtre.Item(0)(1)
            txt_prenom.Text = filtre.Item(0)(2)
            txt_s.Text = filtre.Item(0)(3)
            txt_a.Text = filtre.Item(0)(4)
            txt_p.Text = filtre.Item(0)(5)
            txt_adr.Text = filtre.Item(0)(6)
            txt_tel.Text = filtre.Item(0)(7)
            txt_m.Text = filtre.Item(0)(8)

        End If

    End Sub

maestro1303 · Answer

Bonjour,

J'ai un serveur sous sql 2005 server(auquel je ne connais presque rien, mais je suis un utilisateur avancé de Mysql et je connais bien le langage SQL). J'ai deux contraintes:

1. Sur ce serveur tournent plusieurs applications et BD et je veux être sûr de ne rien déranger en créant ma petite base de données à part de façon bien cloisonnée avec les autres syèstèmes.
2. Si j'ai choisi d'avoir recours à sql 2005 server, c'est bien pour pouvoir utiliser l'environnement de programmation et aussi les stored procedures.
3. Je ne connais pas par où commencer déjà pour crééer ma BD et mes tables que je connais bien et qui sont limitées, si quelqu'un peut me donner un bon tuto pour commencer ou un coup de pouce.



Merci infiniment.


Voilà le problème que j'ai évoqué sur plusieurs forums il y a plus d'un mois et qui est resté malheureusement sans réponse:

J'ai un problème que je ne suis pas arrivé à regler, et je serais vraiment reconnaissant si quelqu'un peut m'aider à y arriver: j'ai une table dont chaque enregistrement est ainsi constitué 

désignation ,x,y ,z,t avec x,y,z et t des valeurs numériques et je voudrais pouvoir dire pour chaque ligne l'ordre décroissant des colonnes x, y, z et t 

Voici un exemple de quelques valeurs extraites du tableau initial: 

Valeur1 29.802 58.6891 22.144872 17.389612 
Valeur2 59.469 117.3457 44.164955 34.746724 
Valeur3 14.9148 29.3492 11.08262 8.699456 
Valeur4 950.515 1875.7157 706.012579 555.422693 
Valeur5 118.915 234.6812 88.317102 69.483248 
Valeur6 7.5314 14.7284 5.5969 4.403528 
Valeur7 1901.03 3751.4314 1412.025158 1110.845386 
Valeur8 237.715 469.301 176.559313 138.905096 
Valeur9 3.8397 7.418 2.85404 2.255564 
Valeur10 475.315 938.5406 353.043735 277.748792 
Valeur11 1.9704 3.7448 1.465266 1.163582 
Valeur12 1.0427 1.9177 0.783776 0.627091 


Et voici un exemple ce à quoi je voudrais arriver 

Valeur1 1er 3ème 4ème 2ème 
Valeur2 1er 3ème 2ème 4ème 
Valeur3 2ème 3ème 4ème 1er 
Valeur4 4ème 3ème 1er 2ème 
Valeur5 1er 3ème 4ème 2ème 
Valeur6 3ème 1er 4ème 2ème 
Valeur7 2ème 3ème 4ème 1er 
Valeur8 2ème 3ème 4ème 1er 
Valeur9 4ème 3ème 1er 2ème 
Valeur10 4ème 3ème 1er 2ème 
Valeur11 1er 3ème 2ème 4ème 
Valeur12 4ème 3ème 1er 2ème 

1er, 2ème,3ème et 4ème sont par rapport au classement dans chaque ligne. 

Merci infiniment de toute aide ou indication.

maestro1303 · Answer

Merci beaucoup Adil de ta réponse qui m'aidera sans aucun doute.

Pour ce qui est de l'exemple imagine que tu as une table T:

T a la structure:

Valeur :string
coutA: float
coutB: float
coutC: float
coutD: float

Je vais peupler cette table avec quelques lignes:
=====================================
val1  |   1 |0.2|3|0.01|
val2  |0.1|0.1|1|0.02|
val3  |0.3|0.2|3|0.07|

val4  |1 |0.2|3|0.01|
val5  |1 |0.2|3|0.01|
val6  |1 |0.2|3|0.01|
val7  |1 |0.2|3|0.01|
val8  |1 |0.2|3|0.01|
val9  |1 |0.2|3|0.01|
....
valn  |1 |0.2|3|0.01|

Considérons seulement les 3 premiers enregistrements correspondant à val1,2 et 3,

je voudrais qu'à la fin de ma requête afficher
val1 |3|2|4|1|
val2 |2|3|4|1|
val2 |3|2|4|1|



donc le n° d'ordre croissant de la valeur du champ car pour val1 :
le nombre réel 1 est le 3 ème en commençant du plus petit au plus grand au sein de cette même ligne
le nombre  réel 0.02 est le 2 ème en commençant du plus petit au plus grand au sein de cette même ligne
le nombre réel 3 est  le 4 ème en commençant du plus petit au plus grand au sein de cette même ligne
le nombre réel 0.01 est le 1 er  en commençant du plus petit au plus grand au sein de cette même ligne
 
d'où le classement 3,2,4,1 au sein de cette ligne.

En d'autres termes je veux une procédure qui me garantisse que le tri se fera  au niveau de chaque ligne.

Merci infiniment.

maestro1303 · Answer

ReBonjour à tous
J'ai seulement entendu parler des procédures stockées et quelqu'un m'a dit qu'elles pourraient être mon sauveur et je veux bien le crooire et m'y mettre

Merci Adill, merci à tous!

adil · Answer

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

salima36 · Answer

bjr !
       Je voudrais savoir comment puis-je faire pour faire un login et mot de passe dans  mon application vb.net qui compte sur la lecture des données  sql server  svp  c urgent . 
Merci d'avance

salima111 · Answer

Bjr !
  Svp puis-je savoir le code pr faire un login et mot de passe de mon application vb.net ki lit des données apartir d'une base de données SQl
   server ! 

merci d'avance

adil · Answer

salam salima,
voici une classe de connexion que tu peut l'utilisée directement:

Public Class ClasseConnexion

    Private nom_connexion As New SqlConnection
    Private cmd As New SqlCommand()
    Public myReader As SqlDataReader
    Sub New()
        'Connexion sans mot de passe
        ' nom_connexion.ConnectionString = "server=nomduserveur\SQLEXPRESS;" & _
        '   "database=nomdeBD;" & _
        '  "Persist Security Info=false;" & _
        ' "Integrated Security=SSPI;"
       
        'Connexion avec mot de passe
        nom_connexion.ConnectionString = "server=nomduserveur\SQLEXPRESS;" & _
       "database=nomdeBD;" & _
       "Persist Security Info=True;" & _
       "User ID=sa;" & _
       "Password=motdepasse;"

 End Sub


    Public Sub Ouverture()
        nom_connexion.Open()
               cmd.Connection = nom_connexion
    End Sub


    Public Sub Fermetur()
              nom_connexion.Close()
    End Sub


    Public Sub Requette(ByVal str_ma_requette As String)
        Dim Resultat As New String("")
               cmd.CommandText = str_ma_requette
               myReader = cmd.ExecuteReader()
    End Sub
    


End Class


et oici un exemle d'utilisation de cette classe:

Private MaConnexion As New ClasseConnexion
MaConnexion.Ouverture()
StrRequette = "SELECT meschamps FROM matable
MaConnexion.Requette(StrRequette)

while (MaConnexion.myReader.Read) Then
                    ListResultat = MaConnexion.myReader.GetString(LIndexduChampsqueTuVeux) 'ou getint ou .....
                   'traitement
endwhile
MaConnexion.myReader.Close()
'j ai passé bcp de tmps afin de savoir comment créeer et utilisé la classe connexion!!!!'

bonne réception et je serai tjr a votre  disposition

salima111 · Answer

Bonsoir , 

Merci beaucoup AdIL 

 On ma parlé de Procedure Stoquée k'il est  trés important ...J'aimerai bien  savoir de quoi il s'agit avec un exemple si c' possible bien sur !

    Un special Merci d'avance  :)

naoual_sr · Answer

Bonjour, 
je veux just un simple code qui me permet d'afficher le contenu d'une table sql en utilisant l'odbc dans une application vb.net

salima111 · Answer

Bonjour Ramdane ! 
 
Merci  bcp   pour  l'aide  !

salima111 · Answer

Bonjour, 

 Mon probleme  c'est que  J'arrive pas à afficher des données dans  une  dataGrid  apartir d'une Base-De-Données.
S'il y a un tout petit code  Merci de me le donner  pour pouvoir  terminer mon programme.

hikma · Answer

Bonjour, 
moi mon probleme c'est que je ne peux pas accedé a ma base de donnée sql si tu peus me envoyé ton code stp
merci d'avance

salima111 · Answer

Bonsoir ! 
  Merci  Ramadane de m'ecrire un petit code concernant le fonctionment de DATAGrIDView pour bien comprendre parce que je l'ai jamais utilisé dans mes programmes en vb.net.
  Actuellement  je  travaille sur un programme en utilisant  le mode connecté , et je veux bien sur afficher des données enregistrées dans ma base de donées dans  ce dataGridView !

  Un spécial Merci d'avance

salima111 · Answer

Bonjour, 

 Merc i bcp, mais moi je connais bien faire ce code là et voila comment !!

Dim Reader As OdbcDataReader
 Reader = commande.ExecuteReader()
        While Reader.Read()
            Dim oo As String = ""
            Dim i As Integer
            For i = 0 To Reader.VisibleFieldCount - 1
                oo += Reader(i).ToString + ""
            Next
           listbox1.Items.Add(oo)
        End While


Et ça est deja executé  sans aucun blem,  jai pas de problemes avec laffichage , le seul souci c'est que je veux pas afficher les données dans une LISTBOX    mais les affichées dans un DATAGRIDVIEW (les données dans un datagridview saffichent clairement), et je sais pas comment faire le code d'affichage pour le DATAGRIDVIEW !

   SI tu le connais merci de me le dire !

              Dsl pr le derangement !

ramdane · Answer

Bonjour,
voila le code si tu utilise un dataset et bindingsource (mais c le mode déconnecté)
 
'dts le nom du dataset
'temployés nom de la table

            'affichage des données dans le datagrid             
            DataGrid1.SetDataBinding(dts, "temployés")


bonne chance salima

salima111 · Answer

Bonsoir,
 
Merci pour l'aide :d .

trabelsineji808 · Answer

Salut monde
Je realise une application vb.net  qui gere une base de donneé sql server 2005 local (client/serveur sur meme machine) 
SVP j'ai eu un probleme pour realiser la connexion et la manupilation (Insert, Update, ...)
Qui peut me donne les etape pour les realiser 
mon Email est trabelsineji@yahoo.fr

nis · Answer

salut,
svp est-ce que je peux avoire un exemple qui explique comment lire les donnees d'une base de donnee sql server a partire du vb en mode connecte

stitch88 · Answer

salut stp je pourrai avoir ton code pour l'accès aux données mon ad est leelou_tem@hotmail.com. merci d'avance^^ 

Bonjour,

Voici la réponse à ta question. J'ai utilisé un DataSet pour faire le lien entre mon programme et la base de données SQL Server, des BindingSources pour faire le lien avec les différentes tables et des TableAdapters pour lesquels j'ai créé des requêtes SQL.

Si tu veux je peux te passer mon code (il n'a rien de confidentiel et il n'a aucun brevet dessus ;) ) pour que tu puisses voir plus précisément. Mais pour cela, il faudra que tu me donnes un adresse mail (par MP) pour que je t'envoies le projet complet (sauf la base de données - mais je te donnerais les tables et champs à créer).

ring · Answer

salut tout le mond , j'éspère une reponce sur un probléme que je puisse pas resoudre.
j'utilise VB6 avec une base de donnée Accesse 2000. je voi pas comment crée le code d'un bouton qui réalise la recherche , en donnant par exemple un numére de code dans le prmier champs qui est unique ,dans ma base et affiche le reste des valeurs relatif à la resultat trouvée.
S'il est possible ,donnez un exemple en utilisant trrois champs .
MERCI INFINIMENT.
dbatef@hotmail.fr

asilune · Answer

Bonjour à ts le monde;
Merci de m'aider pour telecharger SQL SERVER 2005 et VB.net 2005, j'arrive pas à les telecharger,c trés urgent.
merci a tous

info2008 · Answer

je vous demande des cours pratique en pdf SVP en vb avec le sql serveur

info2008 · Answer

je vous demande de me donne des cours pratique en vb avec sql serveur merci

gap2005 · Answer

jai les memes problemes je cree mon aplication et ma base de donnee mais je ne peut pas les connecter afin d'avoir a utiliser ma base dans mon application

mimi600 · Answer

Bsr ! 
Svp puis-je savoir le code pr faire un login et mot de passe de mon application vb.net un simple code pour l'utilisateur !
 

merci d'avance

princesse · Answer

j essaye  de rechercher par nom des salarié (par exp) en utilisant un inputbox et d afficher mon resultat dans des zones de textes
j utilise le vb.net com langage et sql server com bd
voici mon code mé ca marche pa:



PrivateSub parNomDeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ParNomToolStripMenuItem.Click

Dim commande AsNew SqlCommand

Dim reche

Try
DataGridView1.DataSource = DBNull.Value

 

reche = InputBox(

"Entrez le nom que vous voulez rechercher", "Recherche")
commande.CommandText = 

"select * from salari, where nom_sal like '" & reche & "' "
da = 

New SqlClient.SqlDataAdapter(commande)
ds = 

New DataSet
da.Fill(ds, commande.CommandText)

DataGridView1.DataSource = ds.Tables(commande.CommandText)

DataGridView1.RefreshEdit()


Me.mat.Text = dt.Rows(rownumber).Item("matricule").ToString

Me.nom.Text = dt.Rows(rownumber).Item("nom_sal").ToString

Me.prenom.Text = dt.Rows(rownumber).Item("prenom_sal").ToString

Me.adresse.Text = dt.Rows(rownumber).Item("adr_sal").ToString

Me.ville.Text = dt.Rows(rownumber).Item("ville_sal").ToString

Me.nombre.Text = dt.Rows(rownumber).Item("nb_enf").ToString

Me.telephone.Text = dt.Rows(rownumber).Item("tel_sal").ToString

Me.datenaissance.Text = dt.Rows(rownumber).Item("Date_naissance").ToString

Me.situation.Text = dt.Rows(rownumber).Item("situation_famil").ToString

Catch ex As Exception
DataGridView1.DataSource = dt


EndTry
(aidez moi svp cé urgent)

ikram · Answer

bjr
j ai un formulaire ki permet de changer le mot de passe mé mon code ne marche pa
j travaill avec vb.net  et sql server
 voici mon code :
If ancien.Text = "" Then
            ancien.Focus()
        End If
        If nouvo.Text = "" Then
            nouvo.Focus()
        End If
        dr = ds.Tables("karima").Rows(Int(rownumber))
        If (Me.nouvo.Text = Me.confirm.Text) And dr("mot_passe").ToString = Me.ancien.Text Then


            dr("mot_passe") = Me.nouvo.Text


            combuilder = New SqlCommandBuilder(da)
            da.Update(ds, "karima")
            ds.Clear()
            da.Fill(ds, "karima")
            dt = ds.Tables("karima")
            MsgBox("mot de passe modifié", MsgBoxStyle.Information)
            Me.Hide()
            authentif.Show
    Else

            MsgBox("non valide", MsgBoxStyle.Information)

        End If

ikram66 · Answer

j essaye d faire une recherche dans un inputbox mé ca marche pa
j travaille avec vb.net et sql server 2005
voici mon code/
 Private Sub parNomDeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ParNomToolStripMenuItem.Click
        Dim commande As New SqlCommand
        Dim reche
        Try
            DataGridView1.DataSource = DBNull.Value


            reche = InputBox("Entrez le nom que vous voulez rechercher", "Recherche")

            ' commande.CommandText = "select * from salarié where nom_sal like '" & reche & "' "
            Dim filtre As New DataView
            filtre.RowFilter = "nom_sal like '*" & reche & "*'"
            da = New SqlClient.SqlDataAdapter(commande)
            ds = New DataSet
            da.Fill(ds, commande.CommandText)
            DataGridView1.DataSource = ds.Tables(commande.CommandText)
            DataGridView1.RefreshEdit()
            If Not reche = String.Empty Then
                Me.mat.Text = dt.Rows(rownumber).Item("matricule").ToString
                Me.nom.Text = dt.Rows(rownumber).Item("nom_sal").ToString
                Me.prenom.Text = dt.Rows(rownumber).Item("prenom_sal").ToString
                Me.adresse.Text = dt.Rows(rownumber).Item("adr_sal").ToString
                Me.ville.Text = dt.Rows(rownumber).Item("ville_sal").ToString
                Me.nombre.Text = dt.Rows(rownumber).Item("nb_enf").ToString
                Me.telephone.Text = dt.Rows(rownumber).Item("tel_sal").ToString
                Me.datenaissance.Text = dt.Rows(rownumber).Item("Date_naissance").ToString
                Me.situation.Text = dt.Rows(rownumber).Item("situation_famil").ToString

            End If


        Catch ex As Exception

            DataGridView1.DataSource = dt

        End Try





    End Sub

Prince · Answer

Salut, 
Je développe une application java sous NetBeans que j'ai connecté avec SQLSERVER 2005 et j e veux savoir comment appeler une procédure SQL SERVER  à partir  d'une classe Java.
Merci

HACHIR · Answer

declaration et initiamlisation d'une table sur vb 2005

fati · Answer

bonjour je suis une  éléve qui fait de la foresterie et j'ai vraiment besoin de savoir comment on peut trouver ou comment réaliser un code sur visual basic.net permettant d'exécuter une analyse de la regression ( régression lineaire avec ses coff de regression ) 
je suis vraiment besoin de ce code 
a noter que je suis tres débutant dans ce domaine et j'ai envie vraiment de realiser cette application 
et merci a l'avane pour votre aide

hal14 · Answer

salut svp qq px m'aider à savoir ce ke je dois installer pour travailler avec une base de donnée ds vb.net
merci