none
transfert des données du VB vers Microsoft SQL server RRS feed

  • Question

  • Salut .

    J’ai besoin de votre aide.

    Je veux stocker les données qui existent dans une interface graphique Visual Basic dans une base de données en utilisant Microsoft SQL server.

    Merci .

    samedi 8 mars 2014 18:25

Réponses

  • Bon jour

    Merci 

    Imports System.Data.SqlClient
    Public Class Form1
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
            Dim connexion As SqlConnection = New SqlConnection("Data Source=HP\MSSQL10;Initial Catalog=GPL_final;Integrated Security=True")
            '==>Data Source=HP\MSSQL10;Initial Catalog=GPL_final;Integrated Security=True  == c'est le chemain ou path du  base de données 
            Dim Commande As SqlCommand = New SqlCommand()
            Commande.Connection = connexion
    
            Try
    
                connexion.Open()
    
                Commande.CommandText = "INSERT INTO quali_compo_gaz VALUES (" + lab1.Text + "," + lab2.Text + "," + lab3.Text + "," + lab4.Text + ",'" + lab5.Text + "')"
                'quali_compo_gaz  c'est le nom du tableau  qui a 5 champs  
                Commande.ExecuteNonQuery()
                MsgBox("connexion open") '==> pour verifier est ce qu'on a une connexion ou non 
                connexion.Close()
            Catch ex As Exception
                MsgBox("can not open")
    
            End Try
    
        End Sub

    j'ai résolu mon probléme en utilisant ce programme

    mercredi 12 mars 2014 19:08

Toutes les réponses

  • Bonjour

    Cet example vous sera utile :

    http://social.msdn.microsoft.com/Forums/fr-FR/4d1bad0d-2114-43a9-9656-9c44fc0b982f/afficher-une-table-sql-dans-un-datagridview-sans-crire-code?forum=vstudiofr

    Une autre solution c'est de utiliser Entity Framework avec POCO :

    http://www.codeproject.com/Articles/615499/Models-POCO-Entity-Framework-and-Data-Patterns

     

    Cordialement,


    Aurel BERA, MSFT
    MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
    S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.


    lundi 10 mars 2014 08:16
  • Bon jour Merci Mais Je veux faire une importation des données qui existent dans mon interface VB (les label.text et les textbox.text … par ce que je suis en train de faire une acquisition des données qui vont être enregistrées dans l’interface VB et en fin elles vont stockées dans la base des données avant la mise à jour. ) vers mon base des données. Ce n’est pas un transfert des données qui existent dans la base de données vers mon interface.
    lundi 10 mars 2014 10:21
  • Quel est le type de DB que vous utilisez?
    Le plus simple c'est d’utiliser SqlCommand avec des commandes " insert ....".
    Ici vous avez un exemple :
    http://csharpdotnetfreak.blogspot.com/2012/05/sqlcommand-executenonquery-example-c-vb.html
    Même sans un DataGridView vous pouvez créer les structures de données, faire l'insert/Update/Delete en mémoire (DataSet ou Entity Framework) et enregistrer les modifs avec un SqlDataAdapter ou Entity Framework.

    Cordialement,

     

    Aurel BERA, MSFT
    MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
    S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

    lundi 10 mars 2014 10:34
  • Bon jour Tout d’abord merci beaucoup pour votre aide . J’essaye plusieurs fois .Mais il n’y aucun transfert de données. En plus si je compile, des erreurs apparaissent comme Error 6 : 'txtPassword' is not declared. It may be inaccessible due to its protection level. Error 2 Type 'SqlCommand' is not defined. ……….. Mais si j’exécute ce programme, la connexion s’établie .Mais la base de données reste vide c.à.d. le remplissage du tableau ne s’effectue plus Le programme est le suivant ; Imports System.Data.SqlClient Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim connexion As SqlConnection= New SqlConnection("Data Source=HP\MSSQL10;Initial Catalog=GPL_final;Integrated Security=True;") Dim Commande As SqlCommand = connexion.CreateCommand() Try Commande.Connection = connexion connexion.Open() Commande.CommandText = "insert into qualitée_données_physiques_liquide values ('&aa')" 'Commande.ExecuteNonQuery() Commande.CommandText = "SELECT * FROM qualitée_données_physiques_liquide" MsgBox("connexion open") connexion.Close() Catch ex As Exception MsgBox("can not open") End Try End Sub
    mardi 11 mars 2014 08:32
  • Bonjour

    Si vous avez des erreurs de compilation vous exécutez la dernière version qui a bien compilé.

    'txtPassword' – c’est un TextBox. Vous devez évidement adapter l’exemple a vos besoins, donc soit vous changez  'txtPassword' soit vous nommez un TextBox  en 'txtPassword'.

    Le code est incomprehensible, veuillez le boutton comme en image pour inserer le code :

    Cordialement,


    Aurel BERA, MSFT
    MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
    S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

    mardi 11 mars 2014 08:43
  • Bonjour

    Un petit retour SVP?

    Merci!

    Cordialement,


    Aurel BERA, MSFT
    MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
    S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

    mercredi 12 mars 2014 15:31
  • Bon jour

    Merci 

    Imports System.Data.SqlClient
    Public Class Form1
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
            Dim connexion As SqlConnection = New SqlConnection("Data Source=HP\MSSQL10;Initial Catalog=GPL_final;Integrated Security=True")
            '==>Data Source=HP\MSSQL10;Initial Catalog=GPL_final;Integrated Security=True  == c'est le chemain ou path du  base de données 
            Dim Commande As SqlCommand = New SqlCommand()
            Commande.Connection = connexion
    
            Try
    
                connexion.Open()
    
                Commande.CommandText = "INSERT INTO quali_compo_gaz VALUES (" + lab1.Text + "," + lab2.Text + "," + lab3.Text + "," + lab4.Text + ",'" + lab5.Text + "')"
                'quali_compo_gaz  c'est le nom du tableau  qui a 5 champs  
                Commande.ExecuteNonQuery()
                MsgBox("connexion open") '==> pour verifier est ce qu'on a une connexion ou non 
                connexion.Close()
            Catch ex As Exception
                MsgBox("can not open")
    
            End Try
    
        End Sub

    j'ai résolu mon probléme en utilisant ce programme

    mercredi 12 mars 2014 19:08
  • Merci de votre retour.

    Cordialement,


    Aurel BERA, MSFT
    MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
    S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

    jeudi 13 mars 2014 07:37