NAO CONSIGO EXCLUIR MEU REGISTRO
mas respondendo sua pergunta
Dim con As String = My.Settings.EstoqueConnectionString1
Dim ds2 As New DataSet
Dim da2 As New OleDb.OleDbDataAdapter([Ô]select * from tb_estoque Where nome_produto Like [ô]%[Ô] & txtprocura.Text & [Ô]%[ô][Ô] _
& [Ô]or cod_produto like [ô]%[Ô] & txtprocura.Text & [Ô]%[ô][Ô] _
& [Ô]or fornecedor like [ô]%[Ô] & txtprocura.Text & [Ô]%[ô][Ô], con)
da2.Fill(ds2)
DataGridView1.DataSource = ds2.Tables(0)
DataGridView1.Refresh()
Dim con As String = My.Settings.EstoqueConnectionString1
Dim ds2 As New DataSet
Dim da2 As New OleDb.OleDbDataAdapter([Ô]select * from tb_estoque Where nome_produto Like [ô]%[Ô] & txtprocura.Text & [Ô]%[ô][Ô] _
& [Ô]or cod_produto like [ô]%[Ô] & txtprocura.Text & [Ô]%[ô][Ô] _
& [Ô]or fornecedor like [ô]%[Ô] & txtprocura.Text & [Ô]%[ô][Ô], con)
da2.Fill(ds2)
DataGridView1.DataSource = ds2.Tables(0)
DataGridView1.Refresh()
vlw vou da uma olha e coloco aki se de tudo certo
tidysolft ve se meu raciocino foi igual ao teu.. vc usa cod estoque como chave primaria e codigo de produto nao... ai fica sendo esse codigo produto o codigo que vc escolhe
isso_
esse cod estoque eh a chave primaria e que o sql Gera automatico e que nao tem como alterar, e o outro cod produto é o que eu escolho podendo alterar por exemplo
pego o cod 1 e decido que ele nao vai ser mais o 1 e sim vai ser o 3 . esse posso excluir e alterar,
esse cod estoque eh a chave primaria e que o sql Gera automatico e que nao tem como alterar, e o outro cod produto é o que eu escolho podendo alterar por exemplo
pego o cod 1 e decido que ele nao vai ser mais o 1 e sim vai ser o 3 . esse posso excluir e alterar,
e foi o que eu entendi mesmo.. vou fazer isso na minha tabela.
agora essa parte que vc botou da busca aqui no forum.. nao tem funçao e nem procedure neh?
pq aki no meu projeto to trabalhando tudo com funçao e procedure no sql
pq aki no meu projeto to trabalhando tudo com funçao e procedure no sql
esse codigo é no evento txtchanging do txtprocura.text
e que vc ta usando ole eu nao usei to usando outro modo vou botar a minha funçao que exibi tudo pra vc ve
minha funçao exibir todos registro
Public Function exibir() As clientesdetalhes()
Dim conn As SqlConnection = New SqlConnection(strcon)
Dim cmd As SqlCommand = conn.CreateCommand
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = [Ô]exibir[Ô]
Dim arrrclientes As ArrayList = New ArrayList
Try
conn.Open()
Dim dr As SqlDataReader = cmd.ExecuteReader
Dim cliente As clientesdetalhes
If dr.HasRows Then
While dr.Read
cliente = New clientesdetalhes(CType(dr([Ô]cod_cli[Ô]), Integer), CType(dr([Ô]cod1_cli[Ô]), Integer), CType(dr([Ô]Nome_cli[Ô]), String),
CType(dr([Ô]cep_cli[Ô]), String), CType(dr([Ô]logradouro_cli[Ô]), String), CType(dr([Ô]Endereco_cli[Ô]), String),
CType(dr([Ô]compl_cli[Ô]), String), CType(dr([Ô]bairro_cli[Ô]), String), CType(dr([Ô]cidade_cli[Ô]), String),
CType(dr([Ô]estado_cli[Ô]), String), CType(dr([Ô]sexo_cli[Ô]), String), CType(dr([Ô]cpf_cli[Ô]), String),
CType(dr([Ô]datanasc_cli[Ô]), Date), CType(dr([Ô]fone1_cli[Ô]), String), CType(dr([Ô]ramal_cli[Ô]), String),
CType(dr([Ô]fone2_cli[Ô]), String), CType(dr([Ô]renda_cli[Ô]), Decimal), CType(dr([Ô]Email_cli[Ô]), String))
arrrclientes.Add(cliente)
End While
Else
cliente = Nothing
End If
dr.Close()
conn.Close()
Return CType(arrrclientes.ToArray(GetType(clientesdetalhes)), clientesdetalhes())
Catch ex As SqlException
Throw New ApplicationException([Ô]Erro : [Ô] & Microsoft.VisualBasic.Chr(10) & [Ô][Ô] + ex.Message)
End Try
End Function
minha funçao exibir todos registro
Public Function exibir() As clientesdetalhes()
Dim conn As SqlConnection = New SqlConnection(strcon)
Dim cmd As SqlCommand = conn.CreateCommand
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = [Ô]exibir[Ô]
Dim arrrclientes As ArrayList = New ArrayList
Try
conn.Open()
Dim dr As SqlDataReader = cmd.ExecuteReader
Dim cliente As clientesdetalhes
If dr.HasRows Then
While dr.Read
cliente = New clientesdetalhes(CType(dr([Ô]cod_cli[Ô]), Integer), CType(dr([Ô]cod1_cli[Ô]), Integer), CType(dr([Ô]Nome_cli[Ô]), String),
CType(dr([Ô]cep_cli[Ô]), String), CType(dr([Ô]logradouro_cli[Ô]), String), CType(dr([Ô]Endereco_cli[Ô]), String),
CType(dr([Ô]compl_cli[Ô]), String), CType(dr([Ô]bairro_cli[Ô]), String), CType(dr([Ô]cidade_cli[Ô]), String),
CType(dr([Ô]estado_cli[Ô]), String), CType(dr([Ô]sexo_cli[Ô]), String), CType(dr([Ô]cpf_cli[Ô]), String),
CType(dr([Ô]datanasc_cli[Ô]), Date), CType(dr([Ô]fone1_cli[Ô]), String), CType(dr([Ô]ramal_cli[Ô]), String),
CType(dr([Ô]fone2_cli[Ô]), String), CType(dr([Ô]renda_cli[Ô]), Decimal), CType(dr([Ô]Email_cli[Ô]), String))
arrrclientes.Add(cliente)
End While
Else
cliente = Nothing
End If
dr.Close()
conn.Close()
Return CType(arrrclientes.ToArray(GetType(clientesdetalhes)), clientesdetalhes())
Catch ex As SqlException
Throw New ApplicationException([Ô]Erro : [Ô] & Microsoft.VisualBasic.Chr(10) & [Ô][Ô] + ex.Message)
End Try
End Function
os comandos nao mudam, a unica coisa que muda é em vez de ser OLEDBCONNETCION voce troca pra SQLCONNEction pq
eu ja peguei uma aplicação completa na internet que era em oledb e apenas troquei sql
eu ja peguei uma aplicação completa na internet que era em oledb e apenas troquei sql
blz.. agora ali vc ta usando ele no programa principal ne.. eu to fazendo as funçoes em uma class de conexao e chamando no programa principal...essa ta sendo a minha dificuldade na hora de fazer a chamanda comparando o text
Tópico encerrado , respostas não são mais permitidas