• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

RedDevils

Pesquisa : Query em dataset

2 mensagens neste tópico

Boas. Estou a fazer Um Programa em VB para trabalho de final de curso e só me falta uma coisa. Criar um campo de pesquisa:

Tenho uma base d dados criada no proprio VB que esta em sql, o forme que tenho tem 2 text boxes, um datagrid com 4 tabelas da base de dados e o k pretendia era que kuando

colocasse neste caso numero e letra ( 1.12 numa text box, e na outra :) por ex. carregasse no botao pesquisar aparecesse a informação no datagrid.

O código k tenho é este ja sei k n esta bem porque ja andei a dar aqui mtas voltas mas a maior duvida é

como por num dataset o resultado de uma query , espero k me possam ajudar.

Public Class frmPesquisa
    Inherits System.Windows.Forms.Form
    Dim ALOCACAOConnection As SqlConnection
    Dim ALOCACAOCommand As SqlCommand
    Dim ALOCACAOAdapter As SqlDataAdapter
    Dim ALOCACAOTable As DataTable
    Dim ALOCACAOManager As CurrencyManager

    

    
    


    Private Sub frmPesquisa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DsPesquisa.ALOCACAO' table. You can move, or remove it, as needed.
        Me.ALOCACAOTableAdapter.Fill(Me.DsPesquisa.ALOCACAO)
        Me.Validate()
        Me.ALOCACAOBindingSource.EndEdit()
        'Me.ALOCACAOTable.GetChanges()

    End Sub

    Private Sub ALOCACAO_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
        'Me.ALOCACAOTableAdapter.Fill(Me.DsPesquisa.ALOCACAO)

    End Sub


    Private Sub btnPesquisar2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPesquisar2.Click
        'conecta com o banco de dados
        ALOCACAOConnection = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename= " + Application.StartupPath + "TFC.mdf")

        ALOCACAOConnection.Open()


        If txtSalaP.Text.Trim <> "" Then

            'cria um objeto command
            ALOCACAOCommand = New SqlCommand("select count (*) FROM ALOCACAO WHERE SALA_ID=@SALA_ID and BLOCO=@BLOCO", ALOCACAOConnection)
            'define um data adapter/data table para pessoas
            ALOCACAOAdapter = New SqlDataAdapter()
            ALOCACAOAdapter.SelectCommand = ALOCACAOCommand
            ALOCACAOTable = New DataTable()
            ALOCACAOAdapter.Fill(ALOCACAOTable)

            'ALOCACAOTable.DefaultView.Sort = "nome"
            Dim FoundRow As Integer = ALOCACAOTable.DefaultView.Find(txtSalaP)
            If FoundRow <> -1 Then
                ALOCACAOManager.Position = FoundRow
            End If

            'fecha a conexão e libera os objetos
            ALOCACAOConnection.Close()
            ALOCACAOCommand.Dispose()
            ALOCACAOAdapter.Dispose()
            ALOCACAOTable.Dispose()

        End If


    End Sub

    Private Sub btnSair2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSair2.Click
        Me.Close()
    End Sub
End Class

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora