• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 405
  • Last Modified:

VB conduit Help!!!


  My questio is simple, in my conduit when i try to open a database vb show a the follow error.

-2147024770 : Error de Automatización

  Heres is the vb code

On Error GoTo Err
Dim FileNum As Integer
Dim FirstTime As Boolean
 
Dim pDbQuery As New PDDatabaseQuery
Dim pDataSampleDB As PDRecordAdapter

' Declare the record header and data
Dim nIndex As Long
Dim vUniqueId As Variant
Dim nCategory As Long
Dim eAttributes As ERecordAttributes
Dim vData As Variant

Dim CurrRec As tAFSampleTableRecord
Dim RecOffset As Long

  FileNum = FreeFile
  Open App.Path & "\AFDataSample.txt" For Output As #FileNum
 
 'The follow line make the error  
Set pDataSampleDB = pDbQuery.OpenRecordDatabase("AFSampleTable", "PDDirect.PDRecordAdapter", eRead Or eWrite)

any idea?
 
0
Dany_mx
Asked:
Dany_mx
1 Solution
 
Mikal613Commented:
Dim pDataSampleDB As New PDRecordAdapter
0
 
Dany_mxAuthor Commented:
I found the problem, i just change the type of proyect form activex dll to activex exe

0
 
Computer101Commented:
PAQed, with points refunded (125)

Computer101
E-E Admin
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: Microsoft Windows 7 Basic

This introductory course to Windows 7 environment will teach you about working with the Windows operating system. You will learn about basic functions including start menu; the desktop; managing files, folders, and libraries.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now