Comment accéder à une requête de VB

January 20

Comment accéder à une requête de VB


Savoir comment exécuter des requêtes et accéder aux informations renvoyées par une requête en utilisant Microsoft Visual Basic.NET peut vous faire économiser du temps si vous travaillez avec des bases de données. Microsoft Office Access est un système de gestion de base de données relationnelle offert dans la suite Office, alors qu'une requête est utilisée pour récupérer des informations à partir d'une table de base de données. VB.NET est un langage de programmation informatique qui est relativement facile à apprendre et à utiliser. Heureusement, vous pouvez écrire du code VB et accéder à une requête de VB en seulement quelques minutes.

Instructions

1 Ouvrez Microsoft Visual Basic Express. Cliquez sur "Nouveau projet ...», puis sélectionnez "Application Windows Forms." Cliquez sur "OK".

2 Double-cliquez sur "Button" sur le volet "Boîte à outils" pour ajouter un nouveau contrôle de bouton. Double-cliquez sur "DataGridView" pour ajouter un nouveau contrôle de grille. Double-cliquez sur "Button1" pour ouvrir le module "Form1.vb". Appuyez sur "Ctrl" et "A" suivie simultanément par "Supprimer" pour supprimer tout le code existant.

3 Copiez et collez le code ci-dessous pour vous connecter à la base de données Northwind, interrogez la table "Produits" et afficher le contenu à travers le "Data Grid View" contrôle:

importations System.Data.Odbc.OdbcConnection

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim nwindConn Comme Odbc.OdbcConnection

Dim qryStr As String

nwindConn = New Odbc.OdbcConnection ( "DSN = NORTHWIND")

nwindConn.Open ()

qryStr = "SELECT produits. [Code de produit], les produits. [Nom du produit],"

qryStr = qryStr & "Products.Description, Produits. [Coût Standard],"

qryStr = qryStr & "produits. [Prix], les produits. [Réorganiser Level]"

qryStr = qryStr & "FROM Products;"

Dim da As New Odbc.OdbcDataAdapter (qryStr, nwindConn)

ds Dim As New Data.DataSet

da.Fill (ds, "myTable")

Avec DataGridView1

.DataSource = Ds.Tables ( "myTable")

Terminer par

nwindConn.Close ()

nwindConn.Dispose ()

nwindConn = Nothing

End Sub

End Class

4 Modifiez la ligne de code suivante en supprimant "NORTHWIND" et en tapant le nom de votre DSN (DSN = <votre nom DSN>):

nwindConn = New Odbc.OdbcConnection ( "DSN = NORTHWIND")

Appuyez sur "F5" pour exécuter le programme et cliquez sur "Button1".


          

Post a comment: