PREENCHER OS CAMPOS SOMENTE OS PRODUTOS ATIVOS
olá pessoal
estou com um problema que nao consigo resolver, e passei por aqui para saber se vcs conseguem me dar esta ajuda, acontece que tenho uma coluna de nome Status do produto. aonde se trabalha os produtos ativos e os inativos, já tentei muitas outras formas de fazer qe os produtos inativos, nao apareçam no preenchimento dos campos ao momento q dispare o DataReader, mas não consigo bloquear e que o banco de dados somente me retorne apenas os ativos,
este é meu codigo de consulta.
Public Sub PesquisarProdutos()
Dim dr As OleDbDataReader = Nothing
Using cn As OleDb.OleDbConnection = conexao_bd()
Try
cn.Open()
If Cod_prodTextBox.Text = [Ô][Ô] Then
MsgBox([Ô]O campo Código Do Produto, encontra-se vazio favor informar um valor[Ô], MsgBoxStyle.Information, [Ô] Projetos T.I.[Ô])
Exit Sub
Else
Dim sql As String = [Ô]Select * From produtos Where cod_prod Like[ô][Ô] & Cod_prodTextBox.Text & [Ô][ô][Ô]
Dim cmd As OleDb.OleDbCommand = New OleDbCommand(sql, cn)
dr = cmd.ExecuteReader
If dr.HasRows Then
dr.Read()
NomeprodTextBox.Text = dr.Item([Ô]nomeprod[Ô])
PrecovendaTextBox.Text = FormatCurrency(dr.Item([Ô]precovenda[Ô]))
StrEstoq_Min = (dr.Item([Ô]estoqmin[Ô]))
StrEstoq_saldo = (dr.Item([Ô]estoqatual[Ô]))
QtdeTextBox.Focus()
ElseIf Not dr.HasRows Then
dr.Read()
My.Forms.frmAguarde.ShowDialog()
MsgBox([Ô]Código não registrado no sistema[Ô], MsgBoxStyle.Information, [Ô] Projetos T.I.[Ô])
End If
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
cn.Close()
End Try
End Using
End Sub
estou com um problema que nao consigo resolver, e passei por aqui para saber se vcs conseguem me dar esta ajuda, acontece que tenho uma coluna de nome Status do produto. aonde se trabalha os produtos ativos e os inativos, já tentei muitas outras formas de fazer qe os produtos inativos, nao apareçam no preenchimento dos campos ao momento q dispare o DataReader, mas não consigo bloquear e que o banco de dados somente me retorne apenas os ativos,
este é meu codigo de consulta.
Public Sub PesquisarProdutos()
Dim dr As OleDbDataReader = Nothing
Using cn As OleDb.OleDbConnection = conexao_bd()
Try
cn.Open()
If Cod_prodTextBox.Text = [Ô][Ô] Then
MsgBox([Ô]O campo Código Do Produto, encontra-se vazio favor informar um valor[Ô], MsgBoxStyle.Information, [Ô] Projetos T.I.[Ô])
Exit Sub
Else
Dim sql As String = [Ô]Select * From produtos Where cod_prod Like[ô][Ô] & Cod_prodTextBox.Text & [Ô][ô][Ô]
Dim cmd As OleDb.OleDbCommand = New OleDbCommand(sql, cn)
dr = cmd.ExecuteReader
If dr.HasRows Then
dr.Read()
NomeprodTextBox.Text = dr.Item([Ô]nomeprod[Ô])
PrecovendaTextBox.Text = FormatCurrency(dr.Item([Ô]precovenda[Ô]))
StrEstoq_Min = (dr.Item([Ô]estoqmin[Ô]))
StrEstoq_saldo = (dr.Item([Ô]estoqatual[Ô]))
QtdeTextBox.Focus()
ElseIf Not dr.HasRows Then
dr.Read()
My.Forms.frmAguarde.ShowDialog()
MsgBox([Ô]Código não registrado no sistema[Ô], MsgBoxStyle.Information, [Ô] Projetos T.I.[Ô])
End If
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
cn.Close()
End Try
End Using
End Sub
Dim sql As String = [Ô]Select * From produtos Where cod_prod Like[ô][Ô] & Cod_prodTextBox.Text & [Ô][ô] and status = true[Ô]
inclua um critério pra retornar apenas os q estão marcados como ativo no BD
inclua um critério pra retornar apenas os q estão marcados como ativo no BD
Citação::
Dim sql As String = [Ô]Select * From produtos Where cod_prod Like[ô][Ô] & Cod_prodTextBox.Text & [Ô][ô] and status = true[Ô]
inclua um critério pra retornar apenas os q estão marcados como ativo no BD
mano deu certo, vlw mesmo justo isso que estava precisando. rsrsrs
vlw
COQUITO, se sua dúvida foi sanada, por favor encerre o tópico e pontue o usuário que mais contribuiu para resolver sua questão.
Obrigado.
Obrigado.
Tópico encerrado , respostas não são mais permitidas