Criação de um procedimento armazenado do SQL Server usando o Microsoft Visual Basic.NET pode fazer sua aplicação mais dinâmica. VB.NET é uma linguagem de programação de computador usado para criar aplicativos do Windows. Os procedimentos armazenados no SQL Server aceita parâmetros de entrada e pode ser usado para retornar dados chamando o procedimento. Você pode facilmente criar uma tabela, adicionar dados à tabela , criar um procedimento armazenado e usá-lo para recuperar dados utilizando VB.NET . Instruções
1

Inicie o Microsoft Visual Basic Express , clique em " New Project ... " no painel esquerdo da tela, selecione " Windows Forms Application ". Clique em " OK".
2

Clique duas vezes em "Button" na " caixa de ferramentas " para adicionar um novo botão . Clique duas vezes em " DataGridView " para adicionar um novo controle. Clique duas vezes em "Button1 " para abrir o módulo " Form1.vb "
3

Copie e cole a seguinte linha de código no topo do módulo: .

Imports System.Data.SqlClient
4

copie e cole o seguinte código abaixo " Button1_click " para fazer uma conexão com o banco de dados do servidor e criar uma nova tabela :

Dim sql Como corda

ConnectionString = " Data Source = ; User ID = ; Password = "

conn = New SqlConnection ( ConnectionString )

conn.Open ()

sql = " CREATE TABLE myTable " + "( myId INTEGER CONSTRAINT PKeyMyId PRIMARY KEY, " + " myName CHAR ( 50) , myAddress CHAR (255), FLOAT mybalance ) "

cmd = New SqlCommand ( sql, conn)

cmd.ExecuteNonQuery ()

Edite o seguinte código e digite o nome do seu servidor, banco de dados e credenciais de login :

ConnectionString = " Data Source = ; User ID = ; Password = "
5

Copie e cole o seguinte código sob o código da etapa anterior para adicionar valores para a tabela que você criou :

'Adicionando registra a mesa

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, ' José 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

Copie e cole o seguinte código para criar um novo procedimento armazenado que você irá usar para recuperar os dados : < br >

"criar procedimento armazenado

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

ExecuteSQLStmt ( sql)

conn . close ()
7

Copie e cole o seguinte código para recuperar dados a partir da tabela que você criou :

' retreive dados

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

Copie e cole o seguinte código para criar um novo procedimento para enviar um comando SQL:

Private Sub ExecuteSQLStmt (ByVal sql as String)

Se conn.State = ConnectionState.Open Então

conn.Close ()

End If

ConnectionString = " Data Source = ; User ID = ; password = "

conn.ConnectionString = ConnectionString

conn.Open ()

cmd = New SqlCommand ( sql, conn)

Experimente em

cmd.ExecuteNonQuery ()

Pegar ae Como SqlException

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

End Try < br >

End Sub

Edite o seguinte código e digite o nome do seu servidor, banco de dados e credenciais de login :

ConnectionString = " Data Source = ; User ID = ; Password = "
9

Pressione" F5 " para executar o programa e clique em" Button1 "para exibir dados através do Data Grid View controle .