ehu
13 de Marzo del 2004

espero y me puedan ayudar a realizar una consulta de fechas en visual basic. tngo el siguiente codibo en un boton para realizarla pero no me muestra nada.
fecha = Format$(Text1.Text, "dd/mm/yyyy")
Data1.RecordSource = " SELECT * FROM RegUsuario WHERE Fecha = '%+fecha+%'"
Data1.Refresh
DBGrid1.Visible = True

si alguien me puede decir que estoy haciando mal en el codigo se lo agradeceria mucho

Julio
13 de Marzo del 2004

fecha=format(text1.text,"dd/mm/yyyy")
data1.recordsource="select * from RegUsuario where Fecha = ' "+fecha+" ' "
data1.refresh

JIMMY
13 de Marzo del 2004

este es el codigo que puedes utilizar para las fechas
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Const conexion As String = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind"
Private Sub Command1_Click()
Dim sql As String
sql = "select*from orders where convert(varchar(10),OrderDate,103)='" & MaskEdBox1.Text & "'"
'''formato de maskedit mask=##/##/####
llenar_grilla sql
End Sub
Private Sub Form_Load()
Dim sql As String
sql = "select convert(varchar(10),OrderDate,103) from orders"
llenar_grilla sql
End Sub
Sub llenar_grilla(ByVal sql As String)
Dim rst As New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.Open sql, conexion
Set MSHFlexGrid1.DataSource = rst
End Sub
algo mas escribeme ok....

cpmario
13 de Marzo del 2004

fecha = Format$(Text1.Text, "mm/dd/yyyy")
Data1.RecordSource = " SELECT * FROM RegUsuario WHERE Fecha = #" & fecha & "#"
Data1.Refresh
DBGrid1.Visible = True