<div>
Dim pDataSampleDB As New PDRecordAdapter
</div>


<div>
I found the problem, i just change the type of proyect form activex dll to activex exe<br />
<br />

</div>


I found the problem, i just change the type of proyect form activex dll to activex exe



<div>
<div class="content wysiwyg-content">
<br />
&nbsp; My questio is simple, in my conduit when i try to open a database vb show a the follow error. <br />
<br />
-2147024770 : Error de Automatización<br />
<br />
&nbsp; Heres is the vb code<br />
<br />
On Error GoTo Err<br />
Dim FileNum As Integer<br />
Dim FirstTime As Boolean<br />
&nbsp; <br />
Dim pDbQuery As New PDDatabaseQuery<br />
Dim pDataSampleDB As PDRecordAdapter<br />
<br />
' Declare the record header and data<br />
Dim nIndex As Long<br />
Dim vUniqueId As Variant<br />
Dim nCategory As Long<br />
Dim eAttributes As ERecordAttributes<br />
Dim vData As Variant<br />
<br />
Dim CurrRec As tAFSampleTableRecord<br />
Dim RecOffset As Long<br />
<br />
&nbsp; FileNum = FreeFile<br />
&nbsp; Open App.Path &amp;&nbsp;&quot;\AFDataSample.txt&quot; For Output As #FileNum<br />
&nbsp; <br />
&nbsp;'The follow line make the error &nbsp;<br />
Set pDataSampleDB = pDbQuery.OpenRecordDatabas<wbr />e(&quot;AFSampl<wbr />eTable&quot;, &quot;PDDirect.PDRecordAdapter&quot;<wbr />, eRead Or eWrite)<br />
<br />
any idea?<br />
&nbsp; 
</div>
</div>



  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?
  

VB conduit Help!!!

Smartphones run using a variety of operating systems -- Android, iOS and Windows Mobile most commonly -- and an even wider variety of programming languages, including Objective-C, Java, Visual C#, C++ and .NET, not to mention HTML5 and JavaScript, and cross-platform frameworks such as PhoneGap.