[2 days left] What’s wrong with your cloud strategy? Learn why multicloud solutions matter with Nimble Storage.Register Now

x
?
Solved

Ok, Access 2000 and Calendarcontrol

Posted on 2003-12-07
11
Medium Priority
?
204 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
Independent Software Vendors: 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 400 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 400 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

Independent Software Vendors: 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

Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Suggested Courses

649 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