Solved

Ok, Access 2000 and Calendarcontrol

Posted on 2003-12-07
11
202 Views
Last Modified: 2013-12-25
Hi,

Here is my question, I'm new to databases and handling them.
I like to read out an date filed in a access database, and set in a Calendar monthview the date bold.
So if the date exists set it to bold in the monthview.

The access database has an table with: ID | Event | Date | Location | Description | Category

I do not know how to query a access database so if you could give an example it would be very pleased.

Kind Regards, Joleen
0
Comment
Question by:Joleen
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
  • 2
  • +1
11 Comments
 
LVL 8

Expert Comment

by:MYLim
ID: 9893833
'Demo about using Ado to retrieve database info
'Please Start VB6.0 application- goto Project - goto Reference - check 'Microsoft ActiveX data Control 2.7 library'
'Also dtpicker inside 'Microsoft Common control 6.0 '

Dim Cnn As ADODB.Connection
Dim Rs As ADODB.Recordset
 
Private sub form_load()
On error goto ErrFound
Dim DbPath as string
DbPath = "C:\Test.mdb"

Set Cnn = New ADODB.Connection
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbPath & ";User Id=admin;Password=;"

Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient
Rs.Open "Select * from Table1", Cnn, adOpenStatic, adLockReadOnly

if Rs.eof = true then
 msgbox "Empty Recordset,Connection will be Close"
 rs.close
 set rs=  nothing

  Cnn.close
 set Cnn = nothing
 
 exit sub
end if

text1.text = rs.fields(0).value & " "
text2.text = rs.fields(1).value & " "


if isnull (rs.fields(2).value) = false then
   dtpicker1.value = rs.fields(2).value
end if

text4.text = rs.fields(3).value & " "
text5.text = rs.fields(4).value & " "

 rs.close
 set rs=  nothing

  Cnn.close
 set Cnn = nothing
 
 exit sub
ErrFound:
msgbox "Err description : " & Err.Description
if rs.state=adstateOpen Then
  rs.close
  set rs = nothing
end if
 
if Cnn.state = adstateOpen then
  Cnn.close
  set Cnn = nothing
end if
end sub
0
 

Author Comment

by:Joleen
ID: 9898931
I'm sorry MYLim,

But you didn't read the question at all.

Joleen.
0
 
LVL 30

Expert Comment

by:nmcdermaid
ID: 9928392
I can't help but say something here, but...

'I do not know how to query a access database' and this is in a VB newsgroup so I guess MYLim assumed you wanted to query a database in VB. You should probably be more specific if you want something else.
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Author Comment

by:Joleen
ID: 9929086
Yeah I know, but that is not my main question.

Cheers, Joleen
0
 
LVL 30

Expert Comment

by:nmcdermaid
ID: 9929150
Do you mean set a date bold in the flyout calendar view on a date picker? AFAIK it can't be done unless you want to develop your own custom control.



0
 

Author Comment

by:Joleen
ID: 9934746
No I Don't, it should be on a MonthView Control, Do you mean that I have to draw it on a form?

Cheers, Joleen
0
 
LVL 30

Expert Comment

by:nmcdermaid
ID: 9940669
hmmm I can't find a MonthView control and I can't get the Microsoft Calendar Control to work. So sorry, can't help you.
0
 
LVL 8

Accepted Solution

by:
MYLim earned 100 total points
ID: 9940829
inside MSCOMCT2.OCX
check component : Microsoft Windows Common Controls-2 6.0
0
 
LVL 30

Assisted Solution

by:nmcdermaid
nmcdermaid earned 100 total points
ID: 9940861
OK Thanks MyLim.

use this syntax to set a date bold

MonthView.DayBold(#12/20/2003#) = True



So, using some of Lims code...


Rs.Open "Select YourDateField from Table1", Cnn, adOpenStatic, adLockReadOnly

Do Until Rs.eof

  if IsDate(Rs.fields(0).value) then
    MonthView.DayBold(CDate(rs.fields(0).value)) = True
  end if
 
  Rs.MoveNext
Loop


rs.close
set rs=  nothing



This is the basics, what has to be incorporated in here is:

1. The correct name of your MonthView control
2. The correct field and table names
3. Valid MinDate and MaxDate settings
4. A filter on the current month to speed things up, as only one month will can be viewed at a time

If you need any help sorting out those issues, let me know.

Keep in mind that the Bold settings are forgotten when you change the month.

0
 
LVL 29

Expert Comment

by:leonstryker
ID: 11120900
No comment has been added to this question in more than 21 days, so it is now classified as abandoned..
I will leave the following recommendation for this question in the Cleanup topic area:

Split MYLim, nmcdermaid

Any objections should be posted here in the next 4 days. After that time, the question will be closed.

leonstryker
EE Cleanup Volunteer
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

717 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question