• Lunes 23 de Diciembre de 2024, 00:05

Autor Tema:  Realizar consulta y mostrar resultados en un datagridview us  (Leído 3549 veces)

laumile

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Realizar consulta y mostrar resultados en un datagridview us
« en: Miércoles 6 de Abril de 2011, 17:56 »
0
Buenas tardes

Acudo a su colaboración y esta vez estoy en el meollo de querer realizar una consulta y mostrarlos resultados en un datagridview, lo que trato de hacer es que pueda mostrar datos de una tabla en el data gridview, y de igual forma al modificar el contenido en el datagridview se refleje en la tabla. Estoy trabajando con visual basic .net y npgsql de postgres. Aqui les dejo el código para su consideración, de antemano gracias por toda su colaboración:

mensaje error:"ERROR: 42P01: relation "factura" does not exist"

Imports System
Imports Npgsql
Imports System.Data
Imports System.Data.SqlClient
Imports System.Xml

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.FacturaTableAdapter.Fill(Me.DataSet2.Factura)
        ' Declaramos las variables a utilizar
        Dim Conexion As String = "host=localhost;uid=postgres;pwd=postgres;database=Salud"
        Dim strSQL As String = "SELECT * FROM Factura"
        Dim myConnection As NpgsqlConnection = New NpgsqlConnection(Conexion)
        myConnection.Open()
        'Dim command As New NpgsqlCommand(strSQL, myConnection)  ojo
        'Dim da As New NpgsqlDataAdapter(command) ojo
        Dim dt As New DataTable()
        Dim da = New NpgsqlDataAdapter(strSQL, myConnection)
        'Dim command = New NpgsqlCommandBuilder(da)
        'command.ExecuteNonQuery()

        '////////////////otra forma
        ' Adaptador enlazado a la consulta
        'da.SelectCommand = command.  ojo
        ' Instanciamos el DataSet
        'Dim objetoDataSet = New DataSet2.FacturaDataTable
        ' Llenamos el DataSet con los datos obtenidos de la consulta
        da.Fill(Me.DataSet2, "Factura")   'da.Fill(dt)
        '//////////////////////

        ' Volcamos los datos en el control DataGridView
        DataGridView1.DataSource = Me.DataSet2     'MiDataTable   //.DataSource = objDataSet
        ' Cerramos la Conexión
        myConnection.Close()
    End Sub

   
    Private Sub FillByToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FillByToolStripButton.Click
        Try
            Me.FacturaTableAdapter.FillBy(Me.DataSet2.Factura)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try

    End Sub
End Class