CONSULTA NOME REPETIDO

GODMEC 15/05/2013 13:54:17
#423534
Boa tarde pessoal.

Tenho um cadastro de produto e um campo txtNomePro. Como faço para após digitar o nome do produto e no evento ao perder o foco o programa verificar na base de dados que é MDF se existe o mesmo nome já cadastrado.

Muito obrigado e que Deus os abençoe.
VELDRAME 15/05/2013 14:24:04
#423536 
  Dim rs As SqlDataReader
        Using conn As New SqlConnection(wConnectionString)
            conn.Open()
            [ô]Criando nova instancia
            Using ComandoProc As New SqlCommand()

                With ComandoProc
                    .Connection = conn
                    .CommandType = CommandType.Text
                    .CommandText = [Ô]SELECT Nome FROM agencia  where  nome = [ô] [Ô]& txtNomePro.text &[Ô] [ô] [Ô]
                    rs = .ExecuteReader()

                    If rs.HasRows = True Then
                        [ô]Já tem registro
                    End If

                End With
            End Using
        End Using
GODMEC 15/05/2013 16:21:23
#423542
Poderia me dar um exemplo?

Dim CnnSql = [Ô]Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Cheats.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True[Ô]
Dim StrSql As String
StrSql = ([Ô]SELECT * FROM DETONADO_PS1 WHERE NOME Like [ô]%[Ô] & txtNome.Text & [Ô]%[ô][Ô])

Ai está a minha conexão e o Select mas, não sei onde inserir
FELLIPEASSIS 16/05/2013 21:12:33
#423624
vc pode colocar uma chave unica UNIQUE KEY no campo da tabela dai nao replica dados e cai no bloco catch da aplicaçao e nao grava ou pode colocar isso aq no evento Validating do campo

Dim cmdpedido As New SqlClient.SqlCommand
Try
[ô]evento validating
Dim dtrcliente As SqlDataReader
If Val( txtnomeprod.Text) = 0 Then Exit Sub
strSql = ([Ô]select*from produto where nome=[Ô] txtnomeprod.Text)
cmdpedido.CommandText = strSql
cmdpedido.Connection = cnnSql
dtrcliente = cmdpedido.ExecuteReader


dtrcliente.Read()
txtnomeprod.Text = dtrcliente([Ô]nome[Ô]).ToString
dtrcliente.Close()
MsgBox([Ô]produto cadastrado[Ô])
[ô]cmdpedido.Parameters.Clear()

Catch ex As Exception
MsgBox(ex.Message)
End Try
FAIO 17/05/2013 09:25:25
#423636
Coloca uma verificação no evento leave, quando ele for acionado ele verifica no banco se existi um nome igual ou não.
Tópico encerrado , respostas não são mais permitidas
Voltar