Jump to content
williamjda

PESQUISA EM BD SQL

Recommended Posts

williamjda

Amigos preciso de uma ajuda.

Tenho em minha aplicação 2 formulários.

1º Grava as notas em um BD_1 em SQL criado no próprio visual studio2010.

2º Grava os produtos em um BD_2 criado também dentro do visual studio2010 que irão aparecer na nota do formulário 1º.

Formulário 1º

Código        Nome do Produto

-----------------------------------------------------------------

|  13245  |  Nome do Produto que está no formulário 2º |                                                                 

-----------------------------------------------------------------

Os dados do formulário 1º são gravado em um banco de dados. BD_1

Preciso que quando eu digitar o código no formulário 1º ele busque a informação que esta no BD_2 do formulário 2º.

Não sei por onde começar o código para esta pesquisa, alguém poderia me ajudar.

Share this post


Link to post
Share on other sites
obamaself

Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class ProdutosBD
    Private scon As String
    Private objCon As New SqlConnection

    Property stringConexao() As String
        Get
            Return scon
        End Get
        Set(ByVal Value As String)
            scon = Value
        End Set
    End Property

    Public Sub New()
        scon = ""
    End Sub

    Public Sub New(ByVal scon As String)
        Me.scon = scon
    End Sub
Private Sub abrir()
        objCon.ConnectionString = scon
        objCon.Open()
    End Sub 

    Private Sub fechar()
        objCon.Close()
    End Sub

public sub Procurar_Produto(cod_produto)
  Dim p As metodo_cor = Nothing
        Dim sSql As String = "Select * from produtos where cod_produto='" & cod_produto & "'"

        Dim sqlComando As New SqlCommand(sSql, objCon)

        Me.abrir()

        Dim registo As SqlDataReader = sqlComando.ExecuteReader

        If registo IsNot Nothing Then
            If registo.Read Then

                p.cod_produto = IIf(registo.Item("cod_produto") Is System.DBNull.Value, Nothing, registo.Item("cod_produto"))
                   p.nome= IIf(registo.Item("nome") Is System.DBNull.Value, Nothing, registo.Item("nome"))
            
            
            
            End If
            registo.Close()
        End If

        Me.fechar()

        Return p
end sub

''No formulário onde chamas esta classe :
public sub Carregar_Produto
dim obj_produto as new produtosBD()'aqui poes a string de conecção
dim p as produto 'estructura produto
p=obj_produto.Procurar_Produto(1)
end sub

Se quiseres outro comando de SQL é so alterar a varíavel "sSQL"

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.