Como hacer una consulta SQL que devuelva datos en particular

Para debatir interrogar o exponer cualquier duda o sugerencia sobre el curso SQL desde cero.

Como hacer una consulta SQL que devuelva datos en particular

Notapor samyy_g » Mar Mar 06, 2012 10:45 pm

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
samyy_g
 
Mensajes: 1
Registrado: Mar Mar 06, 2012 10:39 pm

Volver a Soporte SQL desde cero

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 47 invitados

cron