Criando Formulário de Pesquisa
Neste episódio vamos criar o formulário de pesquisa, onde será feita a consulta do cliente e ao clicar duas vezes em um cliente ele passa para a tela de cadastro.
Veja o episódio completo abaixo:
Código completo do formulário:
Imports System.Data.SqlClient
Imports DBOCadastro
Public Class frmConsultaCliente
Public Property ID As Integer
Private Sub btnPesquisar_Click(sender As Object, e As EventArgs) Handles btnPesquisar.Click
Dim cliente As New CAD_CLIENTE
Dim ds As DataSet
Dim par As New List(Of SqlParameter)
Try
If txtNome.TextLength > 0 Then
par.Add(New SqlParameter("@NOME", txtNome.Text))
ds = cliente.ConsultaDataSet("SELECT * FROM CAD_CLIENTE WHERE NOME LIKE '%%' + @NOME + '%%'", par)
Else
ds = cliente.ConsultaDataSet("SELECT * FROM CAD_CLIENTE", par)
End If
dgvDados.AutoGenerateColumns = False
dgvDados.DataSource = ds.Tables(0)
Catch ex As Exception
MessageBox.Show("Problema na consulta.")
End Try
End Sub
Private Sub dgvDados_DoubleClick(sender As Object, e As EventArgs) Handles dgvDados.DoubleClick
If dgvDados.Rows.Count > 0 Then
ID = dgvDados.CurrentRow.Cells("colID").Value
Me.Close()
End If
End Sub
Private Sub dgvDados_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvDados.KeyDown
If dgvDados.Rows.Count > 0 And e.KeyCode = Keys.Enter Then
ID = dgvDados.CurrentRow.Cells("colID").Value
Me.Close()
End If
End Sub
End Class
Artigos relacionados:
Link permanente
Bom dia, Marcos!
Usei o código abaixo com MySql e o parâmetro @NOME no LIKE não é reconhecido.
Com SQL Server funciona normalmente.
Se puder me ajudar agradeço, abraços.
If txtNome.TextLength > 0 Then
par.Add(New MySqlParameter(“@NOME”, txtNome.Text))
ds = cliente.ConsultaDataSet(“SELECT * FROM CAD_CLIENTE WHERE NOME LIKE ‘%’ + @NOME + ‘%'”, par)
Else
ds = cliente.ConsultaDataSet(“SELECT * FROM CAD_CLIENTE”, par)
End If