Hvordan lage en lagret prosedyre til å hente data i VB 2008
Opprette en SQL Server lagret prosedyre ved hjelp av 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 aksepterer inngangsparametre og kan brukes til å returnere data ved å kalle prosedyren. Du kan enkelt lage en tabell, legge til data i tabellen, opprette en lagret prosedyre og bruke den til å hente data ved hjelp av VB.NET.
Bruksanvisning
1 Start Microsoft Visual Basic Express, klikk på "Nytt prosjekt ..." på venstre side av skjermen, og velg deretter "Windows Forms Application". Klikk på "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 kode på toppen av modulen:
importen 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:
Dim sql As String
ConnectionString = "Data Source=<server name>;Initial Catalog=<database name>;User ID=<user name>;Password=<password>"
conn = Ny SqlConnection (Connection)
conn.Open ()
sql = "CREATE TABLE MyTable" + "(myId INTEGER CONSTRAINT PKeyMyId PRIMARY KEY," + "mittnavn CHAR (50), myAddress CHAR (255), myBalance FLOAT)"
cmd = Ny SqlCommand (sql, conn)
cmd.ExecuteNonQuery ()
Redigere følgende kode og skriv inn navnet på din server, database, og påloggingsinformasjon:
Connection = "Data Source = <servernavn>; Initial Catalog = <databasenavn>; Bruker ID = <brukernavn>; Password = <passord>"
5 Kopier og lim inn følgende kode under koden på forrige trinn for å legge til verdier i tabellen du opprettet:
' Adding records the table
sql = "INSERT INTO MyTable (myId, myname, myAddress, myBalance)" + "verdier (1, 'John Smith", "Los Angeles', 25,14)"
cmd = Ny SqlCommand (sql, conn)
cmd.ExecuteNonQuery ()
sql = "INSERT INTO MyTable (myId, myname, myAddress, myBalance)" + "VERDIER (2, 'Jose Lopez', 'Dallas, TX", 425,25) "
cmd = Ny SqlCommand (sql, conn)
cmd.ExecuteNonQuery ()
sql = "INSERT INTO MyTable (myId, myname, myAddress, myBalance)" + "verdier (3, 'Oscar Gonzalez', 'Fort Worth, TX", 14,25) "
cmd = Ny SqlCommand (sql, conn)
cmd.ExecuteNonQuery ()
sql = "INSERT INTO MyTable (myId, myname, myAddress, myBalance)" + "VERDIER (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 for å hente data:
'Opprette lagret prosedyre
sql = "CREATE PROCEDURE myProc AS" + " SELECT myName, myAddress FROM myTable GO"
ExecuteSQLStmt (sql)
conn.Close ()
7 Kopier og lim inn følgende kode for å hente data fra tabellen du opprettet:
'retreive data
conn = Ny SqlConnection (Connection)
conn.Open ()
Dim da som ny SqlDataAdapter ( "myProc", conn)
Dim ds Som nytt datasett ( "SP")
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:
Private Sub ExecuteSQLStmt (ByVal sql As String)
If conn.State = ConnectionState.Open Then
conn.Close ()
Slutt om
Connection = "Data Source = & lt; servernavn>; Initial Catalog = & lt; databasenavn>; Bruker ID = & lt; brukernavn>; Password = & lt; passord>"
conn.ConnectionString = Connection
conn.Open ()
cmd = Ny SqlCommand (sql, conn)
Prøve
cmd.ExecuteNonQuery ()
Catch ae Som SQLException
MessageBox.Show (ae.Message.ToString ())
End Try
End Sub
Redigere følgende kode og skriv inn navnet på din server, database og påloggingsinformasjon:
Connection = "Data Source = <servernavn>; Initial Catalog = <databasenavn>; Bruker ID = <brukernavn>; Password = <passord>"
9 Trykk "F5" for å kjøre programmet og klikk på "Button1" for å vise data gjennom data Grid View kontroll.