Criar a procedure no banco de dados

Ex.: Procedure para buscar os carros de acordo com o modelo digitado

Create proc mostrar_carro

@modelo varchar(50)

as

select placa,cor,ano_fabricacao,ano_modelo,versao,qtde_portas,km,valor,carro.descricao,combustivel.descricao,nome_modelo,nome_marca from carro inner join Modelo on carro.id_Modelo = Modelo.id_modelo inner join Marca on Modelo.Id_marca=Marca.id_marca inner join combustivel on carro.id_combustivel=combustivel.id_tp_combustivel where Modelo.Nome_modelo=@modelo

go

Adicionar um dataset no Projeto

Dar duplo clique no Dataset criado

Abrir Server Explorer (Ctrl + Alt + S) e conecte no SQL Server, boto direito em Data Connections, Add Connection.

Clicar em Ok.

Digitar o nome do Servidor . ou .\SqlExpress .

Digitar Login e senha do SA.

Escolher o banco de dados.

Arrastar a procedure que para dentro do DataSet.

Se a mensagem acima aparecer clicar em Sim.

Visualizao do DataSet aps arrastar a procedure.

Adicionar novo Item, Reporting, Crystal Report

Escolher a opo Using the Report Wizard e no modo Standard. OK.

Expandir Project Data, ADO.NET DataSets, expandir o dataset criado e adicionar a procedure

Expandir a procedure e adicionar os campos que iro aparecer no relatrio (no nosso caso todos).

Next.

Next

Next.

Escolher o layout do relatrio e Finish.

Adicionar CrystalReportViewer em formulrio para exibir o relatrio.

Na caixa de ferramentas, expandir a guia Reporting

No formulrio que possui o CrystalReportViewer.

Imports System.Data.SqlClient Imports Dados 'VARIAVEIS Dim rpt As New CrystalReport1 Dim dare As SqlDataAdapter Dim dataset As New DataSet

No evento FormLoad

'INSTANCIAR A CONEXAO Dim cx As New conexao ' CRIAR COMMAND (PROC + PARAMETRO(S)) Dim cmd As New SqlCommand With cmd cx.conectar() .CommandText = "mostrar_carro" .CommandType = CommandType.StoredProcedure .Parameters.AddWithValue("modelo", Form1.txtcarro.Text) cmd.Connection = cx.cn End With 'PASSA PROPRIEDADE DO COMMAND PARA O DATAADAPTER dare = New SqlDataAdapter(cmd) 'CARREGA O DATASET COM OS DADOS DA PROC dare.Fill(dataset, "mostrar_carro") 'CRIA INSTANCIA DO RELATORIO rpt = New CrystalReport1 'PASSA O DATASET PARA O RELATORIO rpt.SetDataSource(dataset) rpt.SetDataSource(dataset.Tables(0)) 'ALIMENTA O REPORTVIEWER COM O RELATORIO CrystalReportViewer1.ReportSource = rpt cx.desconectar()