Wrox Home  
Search P2P Archive for: Go

  Return to Index  

access thread: Corel WordPerfect 9 and Access 97/2000


Message #1 by "Vernon Vincent" <vvincent@a...> on Wed, 23 Jan 2002 17:09:57
I'm trying to instantiate a new instance of WordPerfect from within 

access, but I keep getting Runtime Error 429: ActiveX Component can't 

create object.



The code I have at the moment is this:



    Dim objWP As WordPerfect.Application

    Dim doc As WordPerfect.Document

    

    Set objWP = New WordPerfect.Application

 

The error keeps occurring at the Set command.

 

Since this is the farthest I have gotten, I don't have anything else 

written, but the goal is to have Access create an instance of WordPerfect 

with a specific template and the populate specific bookmarks with data 

from the Access database.

 

Any thoughts would be greatly appreciated.

 

Vernon L. Vincent

Message #2 by "Leo Scott" <leoscott@c...> on Wed, 23 Jan 2002 10:28:44 -0800
Do you have a reference set to a Wordperfect object library in

Tools->References.  I know if I want to drive Excel from access I have to

set a reference to the Excel library.



>-----Original Message-----

>From: Vernon Vincent [mailto:vvincent@a...]

>Sent: Wednesday, January 23, 2002 5:10 PM

>To: Access

>Subject: [access] Corel WordPerfect 9 and Access 97/2000

>

>

>I'm trying to instantiate a new instance of WordPerfect from within

>access, but I keep getting Runtime Error 429: ActiveX Component can't

>create object.

>

>The code I have at the moment is this:

>

>    Dim objWP As WordPerfect.Application

>    Dim doc As WordPerfect.Document

>

>    Set objWP = New WordPerfect.Application

>

>The error keeps occurring at the Set command.

>

>Since this is the farthest I have gotten, I don't have anything else

>written, but the goal is to have Access create an instance of WordPerfect

>with a specific template and the populate specific bookmarks with data

>from the Access database.

>

>Any thoughts would be greatly appreciated.

>

>Vernon L. Vincent

>




>



Message #3 by "Rogers, Robert" <rrogers@b...> on Wed, 23 Jan 2002 14:11:37 -0500
I'm use this public function to connect to my SQL Server but it's very slow.

Any suggest on how to rewrite this code to speed the connect up.



Public Function ODBCConnect()

ODBCConnect = "ODBC;DRIVER=SQL Server;SERVER=branchsql0000;UID=" &

Forms![LoginForm]![cuser] & ";PWD=" & Forms![LoginForm]![cpwd] &

";DATABASE=Ori0on02k00000"

End Function



Robert L. Rogers

Rexel Branch Electric

Application Developer

xxx-xxx-xxxx







****************************************************************************

******************************************************

This e-mail and any files transmitted with it are confidential and intended

solely for the use of the individual or entity to whom they are addressed.

If you have received this e-mail in error please notify the sender and

delete/destroy any copies.

****************************************************************************

******************************************************

Message #4 by joe.dunn@c... on Thu, 24 Jan 2002 09:31:47 +0000

Original Message:



I'm use this public function to connect to my SQL Server but it's very

slow.

Any suggest on how to rewrite this code to speed the connect up.



Public Function ODBCConnect()

ODBCConnect = "ODBC;DRIVER=SQL Server;SERVER=branchsql0000;UID=" &

Forms![LoginForm]![cuser] & ";PWD=" & Forms![LoginForm]![cpwd] &

";DATABASE=Ori0on02k00000"

End Function



Robert L. Rogers



Response:



I use ADO to connect to SQL Server via OLEDB using code as shown below.

Seems to be pretty quick - do not forget to set the neccessary references

to ADO.



Dim CNN As ADODB.Connection, TASKS As ADODB.Recordset

Dim SERVER_NAME As String



SERVER_NAME = "P2AVCSQL"

RETVAL = SysCmd(acSysCmdSetStatus, MSGTXT)



Set CNN = New ADODB.Connection



With CNN

    .Provider = "SQLOLEDB"

    .Properties("Data Source") = SERVER_NAME       ' the server

    .Properties("Initial Catalog") = "MSDB"             ' the database

    .Properties("User Id") = "sa"                  ' I would not normally

hard code the password or user-id

    .Properties("Password") = "cartman"

End With



CNN.ConnectionTimeout = 30

CNN.Open



Set TASKS = New ADODB.Recordset

TASKS.Open "Select * from SysTasks", CNN, adOpenForwardOnly, adLockReadOnly



*************************************************************************



This e-mail may contain confidential information or be privileged. It is intended to be read and used only by the named
recipient(s). If you are not the intended recipient(s) please notify us immediately so that we can make arrangements for its return:
you should not disclose the contents of this e-mail to any other person, or take any copies. Unless stated otherwise by an
authorised individual, nothing contained in this e-mail is intended to create binding legal obligations between us and opinions
expressed are those of the individual author.



The CIS marketing group, which is regulated for Investment Business by the Financial Services Authority, includes:

Co-operative Insurance Society Limited Registered in England number 3615R - for life assurance and pensions

CIS Unit Managers Limited Registered in England and Wales number 2369965  - for unit trusts and PEPs

CIS Policyholder Services Limited Registered in England and Wales number 3390839 - for ISAs and investment products bearing the CIS
name

Registered offices: Miller Street, Manchester M60 0AL   Telephone  0161-832-8686   Internet  http://www.cis.co.uk   E-mail
cis@c...



CIS Deposit and Instant Access Savings Accounts are held with The Co-operative Bank p.l.c., registered in England and Wales number
990937, P.O. Box 101, 1 Balloon Street, Manchester M60 4EP, and administered by CIS Policyholder Services Limited as agent of the
Bank.



CIS is a member of the General Insurance Standards Council



CIS & the CIS logo (R) Co-operative Insurance Society Limited



********************************************************************************


  Return to Index