consultas de Fechas
Tengo un codigo de la siguiente forma: en un procedemiento
Dim vbfecha As String
vbfecha = "Select * from VENTA where fecha = #" & Trim(txtfechainial.Text) & "#)"
Informe.Mode = adModeReadWrite
Informe.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:proyecto_sonacoPROYECTO.mdb;Persist Security Info=False"
Informe.CommandType = adCmdText
Informe.RecordSource = vbfecha
Informe.Refresh
Set infor.DataSource = Informe.Recordset
End Sub
Estoy cargando a UN ADODC mediante el codigo EL problema que tengo es que la cosulta no reconoce la fecha:txtfechainial.Text esto es un objeto texto que yo lo digito la fecha, el mensaje del error dice: EXTRA)inquery espresion Fecha¡##)!
Por favor asi alguen me podria coloborar con el codigo es muy urgente, gracias les agradesco.
ATTE.
Pedro D.
Dim vbfecha As String
vbfecha = "Select * from VENTA where fecha = #" & Trim(txtfechainial.Text) & "#)"
Informe.Mode = adModeReadWrite
Informe.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:proyecto_sonacoPROYECTO.mdb;Persist Security Info=False"
Informe.CommandType = adCmdText
Informe.RecordSource = vbfecha
Informe.Refresh
Set infor.DataSource = Informe.Recordset
End Sub
Estoy cargando a UN ADODC mediante el codigo EL problema que tengo es que la cosulta no reconoce la fecha:txtfechainial.Text esto es un objeto texto que yo lo digito la fecha, el mensaje del error dice: EXTRA)inquery espresion Fecha¡##)!
Por favor asi alguen me podria coloborar con el codigo es muy urgente, gracias les agradesco.
ATTE.
Pedro D.
Amigo mio,he estado observado tu codigo, me parece que deberias usar una funcion que convierta tu texto en formato fecha, por que en sql en campo fecha tiene otro tipo de formato, fijate en la base de datos la tabla venta bajo que tipo de dato esta definido tu campo fecha y te daras cuenta, si es texto no creo que te daria error, pero si es de tipo fecha, tiene que convertirlo a tipo fecha,no recuerdo cual es pero muy sencillo. suerte escribeme si tienes alguana duda escribeme y te ayudo en lo que puedo. chau.
El mensaje de error lo dice todo! El paréntesis en & "#)" está de más!!
Además, le recomiendo que reescriba su SQL de esta forma:
vbfecha = "Select * from VENTA where fecha = " & cstr(clng(cdate(txtfechainial.Text)))
La forma anterior presenta las siguientes ventajas:
1. Funciona por igual en DAO y ADO.
2. Es independiente del formato de fecha establecido en el sistema operativo.
3. Es (muy probablemente) independiente de la base de datos en la que se trabaje. Sé de fijo que funciona en SQL Server y Access 97/2000.
Además, le recomiendo que reescriba su SQL de esta forma:
vbfecha = "Select * from VENTA where fecha = " & cstr(clng(cdate(txtfechainial.Text)))
La forma anterior presenta las siguientes ventajas:
1. Funciona por igual en DAO y ADO.
2. Es independiente del formato de fecha establecido en el sistema operativo.
3. Es (muy probablemente) independiente de la base de datos en la que se trabaje. Sé de fijo que funciona en SQL Server y Access 97/2000.
