Hur man skapar en lagrad procedur för att hämta data i VB 2008

Skapa ett SQL Server lagrad procedur med hjälp av Microsoft Visual Basic.NET kan göra din ansökan mer dynamisk . VB.NET är en dator programmeringsspråk som används för att skapa Windows-program . Lagrade procedurer i SQL Server accepterar indataparametrar och kan användas för att returnera data genom att anropa proceduren . Du kan enkelt skapa en tabell , lägga till data i tabellen , skapa en lagrad procedur och använda den för att hämta data med VB.NET . Instruktioner
1

Starta Microsoft Visual Basic Express , klicka på " Nytt projekt ... " på vänster sida av skärmen och välj sedan " Windows Forms Application . " Klicka på " OK . "
2

Dubbelklicka på " knappen " på " Toolbox " för att lägga till en ny knapp . Dubbelklicka på " DataGridView " för att lägga till en ny kontroll . Dubbelklicka på " Button1 " för att öppna " Form1.vb " modul
3

Kopiera och klistra in följande kodrad högst upp på modulen : .

Import System.Data.SqlClient
4

Kopiera och klistra in följande kod under " Button1_click " för att göra en anslutning till din server databas och skapa en ny tabell :

Dim SQL som String

ConnectionString = " Data Source = , Initial Catalog = , användar-id = , Password = "

ansl = Ny SqlConnection ( ConnectionString ) katalog

conn.Open ( ) katalog

sql = " CREATE TABLE mytable " + "( myid INTEGER CONSTRAINT PKeyMyId primärnyckel, " + " myname CHAR ( 50 ) , myAddress CHAR ( 255 ) , myBalance FLOAT ) "

cmd = New SqlCommand ( sql , conn ) katalog

cmd.ExecuteNonQuery ( ) katalog

Redigera följande kod och skriv namnet av din server, databas , och referenser inloggning :

ConnectionString = " Data Source = , Initial Catalog = , användar-id = , Lösenord = < lösenord > "
5

Kopiera och klistra in följande kod under koden i föregående steg för att lägga till värden i tabellen du skapat :

" lägga till poster i tabellen

sql = " INSERT INTO mytable ( myid , myname , myAddress , myBalance ) " + "-värden ( 1 , " John Smith " , " Los Angeles " , 25.14 ) "

cmd = New SqlCommand ( sql , ansl ) katalog

cmd.ExecuteNonQuery ( ) katalog

sql = " INSERT INTO mytable ( myid , myname , myAddress , myBalance ) " + " VÄRDEN ( 2 , ' Jose Lopez ", " Dallas , TX ' , 425,25 ) "

cmd = New SqlCommand ( sql , conn ) katalog

cmd.ExecuteNonQuery ( ) katalog

sql = " INSERT INTO mytable ( myid , myname , myAddress , myBalance ) " + " värden ( 3 , ' Oscar Gonzalez ' , ' Fort Worth , TX " , 14,25 ) "

cmd = New SqlCommand ( sql , conn ) katalog

cmd.ExecuteNonQuery ( )

sql = " INSERT INTO mytable ( myid , myname , myAddress , myBalance ) " + "värden ( 4 , ' Ana Ramos ' , ' New York , NY " , 14,63 ) "

cmd = nya SqlCommand ( sql , conn ) katalog

cmd.ExecuteNonQuery ( )
6

Kopiera och klistra in följande kod för att skapa en ny lagrad procedur du ska använda för att hämta data :

'Skapa lagrad procedur

sql = " CREATE fÖRFARANDE myProc AS " + " SELECT myname , myAddress FRÅN mytable GO "

ExecuteSQLStmt ( sql ) katalog

ansl . Stäng ( )
7

Kopiera och klistra in följande kod för att hämta data från tabellen du skapat :

" retreive uppgifter

conn = Ny SqlConnection ( ConnectionString )

conn.Open ( ) katalog

Dim da Som Nya SqlDataAdapter ( " myProc " , conn ) katalog

Dim ds As New DataSet ( " SP " ) katalog

da.Fill ( ds , " SP " ) katalog

DataGridView1.DataSource = ds.Tables ( 0 ) katalog

conn.Close ( )
8

Kopiera och klistra in följande kod för att skapa en ny procedur för att skicka en SQL- kommando :

Private Sub ExecuteSQLStmt ( ByVal sql As String ) katalog p Om conn.State = ConnectionState.Open Då

conn.Close ( ) katalog

End If

ConnectionString = " Data Source = , Initial Catalog = , användar-id = ; Lösenord = "

conn.ConnectionString = ConnectionString

conn.Open ( ) katalog

cmd = New SqlCommand ( sql , conn ) katalog

Prova

cmd.ExecuteNonQuery ( ) katalog

Catch ae Som SqlException

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

End Försök

End Sub

Redigera följande kod och skriv namnet på din server , databas och login credentials :

ConnectionString = " Data Source = , Initial Catalog = , användar-id = , Password = "
9

Tryck " F5 " för att köra programmet och klicka sedan på " Button1 " för att visa data genom Data Grid View kontroll .