Dim constring As String = "dsn=mysql_tabel;database=db1;server=localhost;iud=root" Dim con As New OdbcConnection(constring) con.Open() Dim query As String = "SELECT *FROM tbdata_reservasi WHERE tanggal_masuk >= @ST " 'AND tanggal_keluar <= @ET" Dim startdate As DateTime = New DateTime(MonthCalendar1.SelectionStart.Year, MonthCalendar1.SelectionStart.Month, 1) Dim Enddate As DateTime = startdate.AddMonths(1) Dim cmd As New OdbcCommand(query, con) cmd.Parameters.Clear() 'cmd.Parameters.AddWithValue("@ST", startdate) 'cmd.Parameters.AddWithValue("@ET", Enddate) cmd.Parameters.Add("@ST", OdbcType.DateTime).Value = startdate cmd.Parameters.Add("@ET", OdbcType.DateTime).Value = Enddate
OdbcDataReader reader = cmd.ExecuteReader()
...WHERE tanggal_masuk >= @ST AND tanggal_keluar <= @ET
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)