Creazione di un Server SQL stored procedure utilizzando Microsoft Visual Basic.NET può rendere l'applicazione più dinamico. VB.NET è un linguaggio di programmazione utilizzato per creare applicazioni Windows. Stored procedure in SQL Server accettano parametri di input e possono essere utilizzate per restituire dati chiamando la procedura. Può facilmente creare una tabella, aggiungere dati alla tabella, creare una stored procedure e utilizzarlo per recuperare i dati utilizzando VB.NET.
Istruzioni
1
Avviare Microsoft Visual Basic Express, fare clic su "Nuovo progetto..." nel riquadro sinistro dello schermo, quindi selezionare "Applicazione Windows Form." Fare clic su "OK".
2
Fare doppio clic sul "Pulsante" su "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 di "Form1. vb".
3
Copiare e incollare la seguente riga di codice in cima del modulo:
Imports System.Data.SqlClient
4
Copiare e incollare il codice seguente sotto "Button1_click" per effettuare una connessione al database di server e creare una nuova tabella:
Dim sql As String
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 INTEGER CONSTRAINT PKeyMyId PRIMARY KEY," + "myName CHAR(50), myAddress CHAR(255), myBalance FLOAT)"
cmd = New SqlCommand(sql, conn)
cmd.ExecuteNonQuery()
Modificare il seguente codice e digitare il nome del tuo server, database e le credenziali di accesso:
ConnectionString = "Data Source = < nome server >; Initial Catalog = < nome database >; ID utente = < nome utente >; Password = < password > "
5
Copiare e incollare il seguente codice sotto il codice nel passaggio precedente per aggiungere i valori per la tabella creata:
' Adding records the table
sql = "INSERT INTO myTable(myId, myName, myAddress, myBalance) " + "VALUES (1, 'John Smith', 'Los Angeles', 25.14 ) "
cmd = New SqlCommand(sql, conn)
cmd.ExecuteNonQuery()
sql = "INSERT INTO myTable(myId, myName, myAddress, myBalance) " + "VALUES (2, 'Jose Lopez', 'Dallas, TX', 425.25) "
cmd = New SqlCommand(sql, conn)
cmd.ExecuteNonQuery()
sql = "INSERT INTO myTable(myId, myName, myAddress, myBalance) " + "VALUES (3, 'Oscar Gonzalez', 'Fort Worth, TX', 14.25) "
cmd = New SqlCommand(sql, conn)
cmd.ExecuteNonQuery()
sql = "INSERT INTO myTable(myId, myName, myAddress, myBalance) " + "VALUES (4, 'Ana Ramos', 'New York, NY', 14.63) "
cmd = New SqlCommand(sql, conn)
cmd.ExecuteNonQuery()
6
Copiare e incollare il codice seguente per creare una nuova stored procedure che verrà utilizzato per recuperare i dati:
' creare stored procedure
sql = "CREATE PROCEDURE myProc AS" + " SELECT myName, myAddress FROM myTable GO"
ExecuteSQLStmt(sql)
conn.Close()
7
Copiare e incollare il codice seguente per recuperare i dati dalla tabella creata:
'retreive data
conn = New SqlConnection(ConnectionString)
conn.Open()
Dim da As New SqlDataAdapter("myProc", conn)
Dim ds As New DataSet("SP")
da.Fill(ds, "SP")
DataGridView1.DataSource = ds.Tables(0)
conn.Close()
8
Copiare e incollare il codice seguente per creare una nuova procedura per l'invio di un comando SQL:
Private Sub ExecuteSQLStmt(ByVal sql As String)
If conn.State = ConnectionState.Open Then
conn.Close()
End If
ConnectionString = "Data Source=<server name>;Initial Catalog=<database name>;User ID=<user name>;Password=<password>"
conn.ConnectionString = ConnectionString
conn.Open()
cmd = New SqlCommand(sql, conn)
Try
cmd.ExecuteNonQuery()
Catch ae As SqlException
MessageBox.Show(ae.Message.ToString())
End Try
End Sub
Modificare il seguente codice e digitare il nome delle credenziali di login, database e server:
ConnectionString = "Data Source = < nome server >; Initial Catalog = < nome database >; ID utente = < nome utente >; Password = < password > "
9
Premere "F5" per eseguire il programma e quindi fare clic su "Button1" per visualizzare i dati tramite il controllo di visualizzazione della griglia di dati.