Come creare una stored procedure per il recupero di dati in VB 2008

October 22

Come creare una stored procedure per il recupero di dati in VB 2008


Creazione di una stored procedure SQL Server utilizzando Microsoft Visual Basic.NET può rendere l'applicazione più dinamico. VB.NET è un linguaggio di programmazione utilizzato per creare applicazioni Windows. Procedure memorizzate in SQL Server accettano parametri di input e possono essere utilizzati per restituire dati chiamando la procedura. Si può facilmente creare una tabella, aggiungere dati alla tabella, creare una stored procedure e usarlo per recuperare i dati utilizzando VB.NET.

istruzione

1 Avviare Microsoft Visual Basic Express, fai clic su "Nuovo progetto ..." nel riquadro sinistro dello schermo, quindi selezionare "Applicazione Windows Form." Fai clic su "OK".

2 Fare doppio clic su "pulsante" a "Toolbox" per aggiungere un nuovo pulsante. Fare doppio clic su "DataGridView" per aggiungere un nuovo controllo. Fare doppio clic su "Button1" per aprire il modulo "Form1.vb".

3 Copiare e incollare il seguente riga di codice nella parte superiore del modulo:

Imports System.Data.SqlClient

4 Copiare e incollare il seguente codice sotto "Button1_Click" per effettuare una connessione al database del server e creare una nuova tabella:

sql As String Dim

ConnectionString = "Data Source=<server name>;Initial Catalog=<database name>;User ID=<user name>;Password=<password>"

conn = new SqlConnection (ConnectionString)

conn.Open ()

sql = "CREATE TABLE myTable" + "(myid INTERO VINCOLO PKeyMyId PRIMARY KEY," + "myName CHAR (50), myAddress CHAR (255), myBalance FLOAT)"

cmd = nuovo SqlCommand (sql, conn)

cmd.ExecuteNonQuery ()

Modificare il seguente codice e digitare il nome del server, database e credenziali di accesso:

ConnectionString = "Source = <nome server> Dati; Initial Catalog = <nome del database>; ID utente = <nome utente>; Password = <password>"

5 Copiare e incollare il seguente codice sotto il codice a passaggio precedente per aggiungere i valori alla tabella creata:

' Adding records the table

sql = "INSERT INTO myTable (MyID, myName, myAddress, myBalance)" + "VALORI (1, 'John Smith', 'Los Angeles', 25.14)"

cmd = nuovo SqlCommand (sql, conn)

cmd.ExecuteNonQuery ()

sql = "INSERT INTO myTable (MyID, myName, myAddress, myBalance)" + "VALORI (2, 'Jose Lopez', 'Dallas, TX', 425,25)"

cmd = nuovo SqlCommand (sql, conn)

cmd.ExecuteNonQuery ()

sql = "INSERT INTO myTable (MyID, myName, myAddress, myBalance)" + "VALORI (3, 'Oscar Gonzalez', 'Fort Worth, TX', 14.25)"

cmd = nuovo SqlCommand (sql, conn)

cmd.ExecuteNonQuery ()

sql = "INSERT INTO myTable (MyID, myName, myAddress, myBalance)" + "VALORI (4, 'Ana Ramos', 'New York, NY', 14.63)"

cmd = nuovo SqlCommand (sql, conn)

cmd.ExecuteNonQuery ()

6 Copia e incolla il seguente codice per creare una nuova stored procedure che si intende utilizzare per recuperare i dati:

'Creare stored procedure

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

ExecuteSQLStmt (SQL)

conn.Close ()

7 Copia e incolla il seguente codice per recuperare i dati dalla tabella si è creato:

'retreive data

conn = new SqlConnection (ConnectionString)

conn.Open ()

Dim da come nuovo SqlDataAdapter ( "myProc", conn)

Dim ds come nuovo DataSet ( "SP")

da.Fill (ds, "SP")

DataGridView1.DataSource = ds.Tables (0)

conn.Close ()

8 Copiare e incollare il seguente codice per creare una nuova procedura per inviare un comando SQL:

Private Sub ExecuteSQLStmt (ByVal sql As String)

If conn.State = ConnectionState.Open Then

conn.Close ()

Finisci se

ConnectionString = "Data Source = & lt; nome server>; Initial Catalog = & lt; nome del database>; User ID = & lt; nome utente>; Password = & lt; password>"

conn.ConnectionString = ConnectionString

conn.Open ()

cmd = nuovo SqlCommand (sql, conn)

Provare

cmd.ExecuteNonQuery ()

Cattura AE come SqlException

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

End Try

End Sub

Modificare il seguente codice e digitare il nome del le credenziali del server, database e accesso:

ConnectionString = "Source = <nome server> Dati; Initial Catalog = <nome del database>; ID utente = <nome utente>; Password = <password>"

9 Premere il tasto "F5" per eseguire il programma poi cliccare su "Button1" per visualizzare i dati attraverso il controllo Data Grid View.