mounthcalender
Publicado por hector (61 intervenciones) el 10/11/2010 16:11:39
estimado quiero ser lo siguiente:
quiero montar mouthCalendar la cual hice una consulta sql server y agrupe la fecha. y traigo las fecha. Lo que no se hacer como puedo dejar definido y marcado los dias y que se encuentra selecionado mounth calender
Dim dataset As DataSet
Dim fecha As Date
Dim CANTI, I As Integer
Dim DataAdapter As Data.SqlClient.SqlDataAdapter
' Dim numeinventa As Integer
'LLENA EL DATASET CON LOS CAMPOS DE LA TABLA
Dim sCon As String = "data source = sa; initial catalog = BD_SALUD_MENTAL ; user id = alumno; password = alumno"
Dim Conexion1 As New Data.SqlClient.SqlConnection(sCon)
DataAdapter = New Data.SqlClient.SqlDataAdapter("select Fld_Fecha from TB_BOLETO GROUP BY Fld_Fecha", Conexion1)
dataset = New Data.DataSet
DataAdapter.Fill(dataset)
' DataGridView1.DataSource = DataSet.Tables(0)
Conexion1.Open()
CANTI = dataset.Tables(0).Rows.Count
I = 1
Do While I <> CANTI - 1
fecha = dataset.Tables(0).Rows(I)("Fld_Fecha").ToString???????
Me.MonthCalendar1.AddMonthlyBoldedDate(fecha)????????
I = I + 1
Loop
End Sub
quiero montar mouthCalendar la cual hice una consulta sql server y agrupe la fecha. y traigo las fecha. Lo que no se hacer como puedo dejar definido y marcado los dias y que se encuentra selecionado mounth calender
Dim dataset As DataSet
Dim fecha As Date
Dim CANTI, I As Integer
Dim DataAdapter As Data.SqlClient.SqlDataAdapter
' Dim numeinventa As Integer
'LLENA EL DATASET CON LOS CAMPOS DE LA TABLA
Dim sCon As String = "data source = sa; initial catalog = BD_SALUD_MENTAL ; user id = alumno; password = alumno"
Dim Conexion1 As New Data.SqlClient.SqlConnection(sCon)
DataAdapter = New Data.SqlClient.SqlDataAdapter("select Fld_Fecha from TB_BOLETO GROUP BY Fld_Fecha", Conexion1)
dataset = New Data.DataSet
DataAdapter.Fill(dataset)
' DataGridView1.DataSource = DataSet.Tables(0)
Conexion1.Open()
CANTI = dataset.Tables(0).Rows.Count
I = 1
Do While I <> CANTI - 1
fecha = dataset.Tables(0).Rows(I)("Fld_Fecha").ToString???????
Me.MonthCalendar1.AddMonthlyBoldedDate(fecha)????????
I = I + 1
Loop
End Sub
Valora esta pregunta


0