Teach me how to connect lotus notes to MySQL.

Asked By 10 points N/A Posted on -
qa-featured

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.

SHARE
Answered By 0 points N/A #187848

Teach me how to connect lotus notes to MySQL.

qa-featured

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.

Control panel then administrative tool

· Click add button & select mysql OBDC driver5.1

Add button & select mysql OBDC driver 5.1

· Fill up the information boxes & click ok.

Data Source Configuration

· It will add the employee to the list.

· Then on the desktop add text document.

Create new 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.

Data Link Properties

· Now in this tab as an employee as source name & click ok.

Connect to ODBC data

· 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

Related Questions