Opprette en SQL Server lagret prosedyre bruker Microsoft Visual Basic.NET kan gjøre programmet mer dynamisk. VB.NET er et programmeringsspråk som brukes til å lage Windows-programmer . Lagrede prosedyrer i SQL Server akseptere inndataparametere og kan brukes til å returnere data ved å kalle prosedyren. Du kan enkelt lage en tabell , legge til data på bordet, lage en lagret prosedyre og bruke den til å hente data ved hjelp av VB.NET . Instruksjoner
en

start Microsoft Visual Basic Express , klikker du "New Project ... " på venstre side av skjermen , og velg deretter "Windows Forms Application ". Klikk "OK".
2

Dobbeltklikk på " Button" på " Toolbox" for å legge til en ny knapp . Dobbeltklikk på " DataGridView " for å legge til en ny kontroll. Dobbeltklikk på " Button1 " for å åpne " Form1.vb " modul
3

Kopier og lim inn følgende linje med kode på toppen av modulen : .
< P > Import System.Data.SqlClient
4

Kopier og lim inn følgende kode under " button1_click " for å opprette en tilkobling til din server database og lage en ny tabell : en

Dim sql As String

ConnectionString = "Data Source = ; første katalogen = , bruker-ID = ; Password = "

conn = Ny SqlConnection ( ConnectionString )

conn.Open ( )

sql = "CREATE TABLE MyTable " + " ( myId INTEGER CONSTRAINT PKeyMyId PRIMARY KEY , " + " myname CHAR ( 50 ) , myAddress CHAR ( 255 ) , myBalance float) "

cmd = Ny SqlCommand ( sql , conn )

cmd.ExecuteNonQuery ( )

Rediger følgende kode og skriv inn navnet av din server , database , og påloggingsinformasjon : en

ConnectionString = "Data Source = ; første katalogen = , bruker-ID = ; Password = < passord > "
5

Kopier og lim inn følgende kode under koden på forrige trinn for å legge til verdier i tabellen du opprettet:

'Legger poster tabellen
< p> sql = " INSERT INTO MyTable ( myId , myname , myAddress , myBalance ) " + " VALUES ( 1 , ' John Smith ", " Los Angeles ", 25.14 ) "

cmd = Ny SqlCommand ( sql , conn )

cmd.ExecuteNonQuery ( )

sql = " INSERT INTO MyTable ( myId , myname , myAddress , myBalance ) " + " VALUES ( 2 , ' Jose Lopez ', ' Dallas , TX ' , 425,25 ) "

cmd = Ny SqlCommand ( sql , conn )

cmd.ExecuteNonQuery ( )

sql =" INSERT INTO MyTable ( myId , myname , myAddress , myBalance ) "+" VALUES ( 3 , ' Oscar Gonzalez ', ' Fort Worth, TX ' , 14.25 ) "

cmd = Ny SqlCommand ( sql , conn )

cmd.ExecuteNonQuery ( )

sql = " INSERT INTO MyTable ( myId , myname , myAddress , myBalance ) " + " VALUES ( 4 , 'Ana Ramos ', ' New York , NY ' , 14.63 )"

cmd = Ny SqlCommand ( sql , conn )

cmd.ExecuteNonQuery ( )
6

Kopier og lim inn følgende kode for å opprette en ny lagret prosedyre du vil bruke til å hente data :

'Opprett lagret prosedyre

sql = "CREATE pROSEDYRE myProc AS " + "SELECT myname , myAddress FRA MyTable GO"

ExecuteSQLStmt ( sql )

tilk . Lukk ( )
7

Kopier og lim inn følgende kode for å hente data fra tabellen du opprettet : en

' hente data

conn = Ny SqlConnection ( ConnectionString )

conn.Open ( )

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

Dim ds som nye datasett ( "SP" )
< p > da.Fill (ds , "SP" )

DataGridView1.DataSource = ds.Tables ( 0 )

conn.Close ( )
8

Kopier og lim inn følgende kode for å opprette en ny prosedyre for å sende en SQL-kommando : en

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

End If

ConnectionString = "Data Source = ; første katalogen = , bruker-ID = ; Passord = "

conn.ConnectionString = ConnectionString

conn.Open ( )

cmd = Ny SqlCommand ( sql , conn )

Prøv

cmd.ExecuteNonQuery ( )

Catch ae Som SQLException

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

End Prøv

End Sub

Rediger følgende kode og skriv inn navnet på din server, database og påloggingsinformasjon : en

ConnectionString = "Data Source = ; første katalogen = , bruker-ID = ; Password = "
9

Trykk" F5 "for å kjøre programmet og klikk på« Button1 "for å vise data gjennom data Grid View kontroll.