Help with Connection to DB PLEASE!

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hello, 

I download the demo to test the Calendar since I want to put that on my App. I have been working on my App for years so changing the way my database is setup is not an option because is alot of work!.

I want to show my records on the Calendar using my own TableName (i.e. tblGOActivity) and my own database (ie. Databasenm = go.mdb). This the code I;m working on and I cannt do it because I really dont know! I attach the database connection also for reference.

Code I'm working on: 

 Dim cur_set As Recordset
 Dim sql_str As String

 sql_str = "SELECT * FROM tblGOActivity" 'This is the database I want my Events to be saved"
 If Not goDatabase.CreateSnapshot(cur_set, sql_str) Then
 Exit Sub
 End If

    CalendarControl.SetDataProvider WHAT SHOUD I PUT BASE ON THE INFO I TOLD YOU ALREADY?        

    If Not CalendarControl.DataProvider.Open Then
        CalendarControl.DataProvider.Create
    End If

    'm_eActiveDataProvider = eDataProviderType

    CalendarControl.Populate
    wndDatePicker.RedrawControl

This is a sample of the Database Connection Code:

Function ConnectJet(ByVal db_name As String, ByVal user_id As String, _
ByVal password As String, Optional ByVal ip_addr As String = "") As Boolean

    On Error GoTo ConnectJet_EH
    Set wCurWS = DBEngine.CreateWorkspace("DefaultWS", "Admin", "", dbUseJet)

    If password = "" Then
        Set dCurDB = wCurWS.OpenDatabase(db_name, False)
    Else
        Set dCurDB = wCurWS.OpenDatabase(db_name, False, False, ";pwd=" & password)
    End If

    Call goGeneral.MouseDefault

    sDatabase_nm = db_name            ' Database file name with path.
    sPathToDatabase = goGeneral.GetPath(db_name)
    ConnectJet = True
    Exit Function

ConnectJet_EH:
     db_name = UCase(db_name)
    goGeneral.DisplayBox db_name & goMessage.IS_NOT_FOUND
    sDatabase_nm = ""
    ConnectJet = False
    Exit Function
 End Function