Comment faire pour créer une procédure stockée pour récupérer des données en VB 2008

Démarrez Microsoft Visual Basic Express, cliquez sur "Nouveau projet ... " Dans le volet gauche de l'écran , puis sélectionnez « Application Windows Forms . " Cliquez sur « OK ».
2

Double-cliquez sur "Button" sur la " boîte à outils " pour ajouter un nouveau bouton . Double -cliquez sur " DataGridView " pour ajouter un nouveau contrôle. Double -cliquez sur " Button1 " pour ouvrir le "Form1.vb" module
3

Copiez et collez la ligne de code suivante au sommet du module : .

Imports System.Data.SqlClient
4

Copiez et collez le code suivant sous " Button1_click " pour établir une connexion à votre base de données serveur et créer une nouvelle table :

Dim SQL comme chaîne

ConnectionString = "Data Source = ; initial Catalog = ; ID d'utilisateur = , mot de passe = "

conn = new SqlConnection ( ConnectionString )

conn.Open ()

sql = "CREATE TABLE myTable " + "( myId ENTIER CONTRAINTE PKeyMyId PRIMARY KEY ," + " myName CHAR ( 50) , myAddress CHAR ( 255) , Char de myBalance ) "

cmd = new SqlCommand ( sql , conn)

cmd.ExecuteNonQuery ()

Modifier le code suivant et tapez le nom de votre serveur, base de données, et identifiants de connexion :

ConnectionString = "Data Source = ; initial Catalog = ; ID d'utilisateur = , mot de passe = < mot de passe > "
5

Copiez et collez le code suivant sous le code de l'étape précédente pour ajouter des valeurs à la table que vous avez créé :

« Ajout d'enregistrements de la table
< p> sql = "INSERT INTO MaTable ( myId , myName , myAddress , myBalance ) " + " VALUES ( 1, ' John Smith ', ' Los Angeles ' , 25.14 ) "

cmd = new SqlCommand ( sql , conn)

cmd.ExecuteNonQuery ()

sql = "INSERT INTO MaTable ( myId , myName , myAddress , myBalance )" + " VALUES (2, 'Jose Lopez », « Dallas , TX », 425.25 ) "

cmd = new SqlCommand ( sql , conn)

cmd.ExecuteNonQuery ()

sql = "INSERT INTO MaTable ( myId , myName , myAddress , myBalance ) "+" VALUES ( 3 , ' Oscar Gonzalez »,« Fort Worth, TX ", 14.25 ) "

cmd = new SqlCommand ( sql , conn)

cmd.ExecuteNonQuery () Photos

sql = "INSERT INTO MaTable ( myId , myName , myAddress , myBalance ) " + " VALUES ( 4 , ' New York, NY' , 14,63 ' Ana Ramos ')"

cmd = New SqlCommand ( sql , conn)

cmd.ExecuteNonQuery ()
6

Copiez et collez le code suivant pour créer une nouvelle procédure stockée que vous allez utiliser pour récupérer des données : < br >

«créer une procédure stockée

sql =" CREATE PROCEDURE myProc AS " + " SELECT myName , myAddress de myTable GO "

ExecuteSQLStmt ( sql)

conn. Close ()
7

Copiez et collez le code suivant pour récupérer les données de la table que vous avez créé :

' retreive données

conn = new SqlConnection ( ConnectionString ) Photos

conn.Open ()

da As New SqlDataAdapter ( " myProc " , conn)

ds As New DataSet ( "SP" )

da.Fill (ds , "SP" )

DataGridView1.DataSource = ds.Tables ( 0)

conn.Close ()
8

Copier et collez le code suivant pour créer une nouvelle procédure pour envoyer une commande SQL :

Private Sub ExecuteSQLStmt ( ByVal sql As String )

Si conn.State = ConnectionState.Open Puis

conn.Close ()

End If

ConnectionString = "Data Source = ; initial Catalog = ; ID d'utilisateur = ; Mot de passe = "

conn.ConnectionString = ConnectionString

conn.Open ()

cmd = new SqlCommand ( sql , conn)

essayer et

cmd.ExecuteNonQuery ()

Catch AE comme SqlException

MessageBox.Show ( ae.Message.ToString ())

End Try < br >

End Sub

Modifier le code suivant et tapez le nom de votre serveur, base de données et les informations de connexion :

ConnectionString = "Data Source = ; initial Catalog = ; ID d'utilisateur = , mot de passe = "
9

Appuyez sur" F5 "pour exécuter votre programme, puis cliquez sur" Button1 " pour afficher les données à travers le Data Grid View contrôle.