Hola muy wenas, tengo un problemilla.
Tengo un form con un DTPicker y algunos text, un combobox y un richtextbox, con los cuales almaceno datos en una tabla llamada citas. Esto lo hace bien mi programa ya que veo en la tabla k están todos los datos guardados correctamente.
El problema viene cuando abro el form que sirve para ver las citas que tengo en el día seleccionado, por un DTPicker y kiero mostrarlo en un DataGrid, hay días k me salen y otros días k no me sale nada en la tabla,akí os dejo mi código x si podeis ayudarme...
Option Explicit
Dim conexion As ADODB.Connection
Dim record As ADODB.Recordset
Dim sql As String
Sub CargarValores()
Set record = New ADODB.Recordset
record.CursorLocation = adUseClient
sql = "SELECT * FROM citas where fecha = #" & DTPicker1.Value & "#"
record.Open sql, conexion
Set DataGrid1.DataSource = record
End Sub
Private Sub Command1_Click()
Unload formvercitas
End Sub
Private Sub DTPicker1_CloseUp()
CargarValores
End Sub
Private Sub Form_Load()
DTPicker1.Value = Date
' abrimos la conexión que nos va a servir para todo el módulo de formulario y solamente la
' cerraremos en el evento Unload del Form
Set conexion = New ADODB.Connection
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\david\Escritorio\PROYECTO\bd1.mdb;Persist Security Info=False"
CargarValores
Set record = New ADODB.Recordset
sql = "SELECT fecha FROM citas"
End Sub
Private Sub Form_Unload(Cancel As Integer)
conexion.Close
End Sub
Weno Gracias de antemano!! a ver si podeis ayudarme... GRACIAS y un SALUDO.
