Hi guys,
Teach me how to connect lotus notes to MySQL. I want to do some technical issue experiments like connecting one application to another and see how it works. To all experts out there, would you love to explain and discuss with me about the possibility of connecting lotus notes application with MySQL server database system? What would be the possible use and effect?
Expecting some help, thank you.
Teach me how to connect lotus notes to MySQL.
Hello Markusa Raine,
To connect Lotus notes to MySQL you have to do the following instruction:
· Install the MySQL and MySQL ODBC driver.
· Go to control panel then administrative tool then the data source of ODBC.
· Go to the system DSN tab.
· Click add button & select mysql OBDC driver5.1
· Fill up the information boxes & click ok.
· It will add the employee to the list.
· Then on the desktop add text document.
· After that edit the file name to test2.udl or anything using of udl.
· Then open the rename file.
· Then choose the provider tab to select an MS OLE DB provider for ODBC.
· Now in this tab as an employee as source name & click ok.
· Go to the test2.udl in notepad, there will show the following code.
Provider=MSDASQL.1;Persist Security Info=False;Data Source=employee
· Create an agent & just copy paste the following code.
Public
OptionDeclare
SubInitialize
      Dimcon AsVariant
      Dimrs AsVariant
      Dimcom AsVariant
      Setcon = CreateObject("ADODB.Connection") ' Database connection
      Setrs = CreateObject("ADODB.Recordset") ' Handles the record set
      Setcom = CreateObject("ADODB.Command") ' the query or command
      'From the test2.udl opened in the notepad
      con.open = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=employeeDB"
      Setcom.ActiveCOnnection = con
       'Must have already created table in the employeeDB database
      com.CommandText = {Select* from name}
      Setrs = com.Execute
      rs.MoveFirst
      WhileNotrs.EOF
            MsgBox rs.Fields("name").Value
                        'Call doc.save(True,False)
            rs.MoveNext
      Wend
    To test now run the agent
Thanks,
Akerly Joqw