Oprettelse af en SQL Server lagret procedure ved hjælp af Microsoft Visual Basic.NET kan gøre din ansøgning mere dynamisk. VB.NET er en computer programmeringssprog, der anvendes til at oprette Windows-programmer. Lagrede procedurer i SQL Server accepterer inputparametre og kan bruges til at returnere data ved at kalde proceduren. Du kan nemt oprette en tabel , føje data til tabellen , skal du oprette en lagret procedure , og bruge det til at hente data ved hjælp af VB.NET . Instruktioner
1

Start Microsoft Visual Basic Express , klik på " Nyt projekt ... " på den venstre rude på skærmen , og vælg derefter "Windows Forms Application ". Klik på "OK".
2

Dobbeltklik på " Button " på " Toolbox" for at tilføje en ny knap . Dobbeltklik på " DataGridView " for at tilføje en ny kontrol. Dobbeltklik på " Button1 " for at åbne " Form1.vb "-modulet
3

Kopier og indsæt følgende linje kode på toppen af modulet : .
< P > Import System.Data.SqlClient
4

Kopier og indsæt følgende kode nedenfor " Button1_Click " for at oprette en forbindelse til din server database og oprette en ny tabel : Hej

Dim sql Som String

ConnectionString = "Data Source = , Initial Catalog = , User ID = , Password = "

conn = Ny SqlConnection ( ConnectionString )

conn.Open ()

sql = " CREATE TABLE MinTabel " + "( mittid INTEGER CONSTRAINT PKeyMyId PRIMARY KEY , " + " mitNavn CHAR ( 50) , myAddress CHAR ( 255) , myBalance FLOAT ) "

cmd = Ny SqlCommand ( sql , conn )

cmd.ExecuteNonQuery ()

Rediger følgende kode , og skriv navnet på din server , database og login legitimationsoplysninger : Hej

ConnectionString = "Data Source = , Initial Catalog = , User ID = , Password = < password > "
5

Kopier og indsæt følgende kode under koden på forrige trin for at tilføje værdier til tabellen , du har oprettet : Hej

' Tilføjelse records bordet
< p> sql = " INSERT INTO MinTabel ( mittid , mitNavn , myAddress , myBalance ) " + " VALUES (1, 'John Smith ', ' Los Angeles ' 25.14 ) "

cmd = Ny SqlCommand ( sql , conn )

cmd.ExecuteNonQuery ()

sql = " INSERT INTO MinTabel ( mittid , mitNavn , myAddress , myBalance ) " + " VALUES (2, 'Jose Lopez ', ' Dallas , TX ' , 425,25 ) "

cmd = Ny SqlCommand ( sql , conn )

cmd.ExecuteNonQuery ()

sql =" INSERT INTO MinTabel ( mittid , mitNavn , myAddress , myBalance ) "+" VALUES (3, ' Oscar Gonzalez ', ' Fort Worth, TX ' , 14,25 ) "

cmd = Ny SqlCommand ( sql , conn )

cmd.ExecuteNonQuery ()

sql = " INSERT INTO MinTabel ( mittid , mitNavn , myAddress , myBalance ) " + " VALUES (4, ' Ana Ramos ', ' New York , NY ' , 14,63 ) "

cmd = Ny SqlCommand ( sql , conn )

cmd.ExecuteNonQuery ()
6

Kopier og indsæt følgende kode til at oprette en ny lagret procedure, du vil bruge til at hente data : < br >

'Opret lagret procedure

sql = " CREATE pROCEDURE myProc AS " + " SELECT mitNavn , myAddress FRA MinTabel GO "

ExecuteSQLStmt (SQL)

forbind. Luk ()
7

Kopier og indsæt følgende kode til at hente data fra den tabel, du oprettede : Hej

' hentning data

conn = Ny SqlConnection ( ConnectionString )

conn.Open ()

Dim da som nye SqlDataAdapter ( " myProc " , conn )

Dim ds As New DataSet ( "SP" )
< p > da.Fill ( ds , "SP" )

DataGridView1.DataSource = ds.Tables (0)

conn.Close ()
8

Copy og indsæt følgende kode til at oprette en ny procedure for at sende en SQL-kommando : Hej

Private Sub ExecuteSQLStmt ( ByVal sql As String )
p Hvis conn.State = ConnectionState.Open Så
< p > conn.Close ()

End If

ConnectionString = "Data Source = , Initial Catalog = , User ID = ; password = "

conn.ConnectionString = ConnectionString

conn.Open ()

cmd = Ny SqlCommand ( sql , conn )

Prøv

cmd.ExecuteNonQuery ()

Fang ae Som SQLException

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

End Prøv < br >

End Sub

Rediger følgende kode , og skriv navnet på din server, database og login legitimationsoplysninger : Hej

ConnectionString = "Data Source = , Initial Catalog = , User ID = , Password = "
9

Tryk på" F5 "for at køre dit program og derefter klikke på" Button1 "for at vise data via data Netoversigt kontrol.