Página 1 de 1

Como hacer una consulta SQL que devuelva datos en particular

NotaPublicado: Mar Mar 06, 2012 10:45 pm
por samyy_g
Buenos dias, agradeceria pudieran ayudarme mi problemas es que no tengo mucha experiencia con visual, este es mi primer proyecto, agradeceria pudieran guiarme en donde me estoy equivocando tengo un form con un datetimepicker, un boton para realizar la consulta y un listview para mostrar los datos que me devuelve la consulta pero al correr la aplicacion me tira un error, dice "No se encontro OleDBexception, No se han especificado valores para algunos de los parámetros requeridos." GRACIAS!!!

Option Explicit On
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Text
Public Class FrmCajadiaria
Dim con As New OleDb.OleDbConnection
Dim dbProvider As String
Dim dbSource As String
Dim da As OleDb.OleDbDataAdapter
Dim ds As New DataSet
Dim Maximo As Integer
Dim i As Integer

Private Sub FrmCajadiaria_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0; "
dbSource = "Data Source = D:\Bdsplash.mdb"

con.ConnectionString = dbProvider & dbSource
End Sub

Private Sub BtLimpiar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtLimpiar.Click
LstMovimientos.Items.Clear()

End Sub

Private Sub BtBuscar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtBuscar.Click
con.Open()

Dim Listar As New OleDbCommand
Listar.Connection = con
Listar.CommandType = CommandType.Text
Listar.Parameters.AddWithValue("@fecha", Me.DtpFecha.Value.Date)
Listar.CommandText = "Select * FROM Ingresos WHERE (((Ingresos.fecha)=@fecha))"



Dim Lector As OleDbDataReader
Lector = Listar.ExecuteReader
Do While Lector.Read
Dim MITem As ListViewItem
MITem = LstMovimientos.Items.Add(Lector("CodCuenta"))
MITem.SubItems.Add(Lector("Codsocio"))
MITem.SubItems.Add(Lector("Apellido"))
MITem.SubItems.Add(Lector("Importe"))
Loop
Lector.Close()
con.Close()
End Sub
End Class