1
« en: Miércoles 6 de Abril de 2011, 17:56 »
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