• INDEX VB TO NET
• VBUC FEATURES
• LEGACY DATA ACCESS MODERNIZATION
• RDO TO DATA.COMMON

RDO to Data.Common with helpers

The VBUC is able to port the RDO data access code to ADO.NET by means of the System.Data.Common namespace. This technique is used in the following way:

• RDO connecting to SQLserver: this scenario can be upgraded using the previous option as well, although this option achieves higher automation ratios.
• RDO connecting to any other provider: when RDO is used to connect to any other data provider besides SQLserver (Jet, ODBC,…) this option MUST be used.

The member transformation for this data access technology is described as follows:

Support for MSRDC data control is added into this feature using the Common namespace:

Original VB6 Code:

Public recRecordset As RDO.rdoResultset
Public RDOConnection As New RDO.RDOConnection

Private Sub Form_Load()
    
    Set RDOConnection = New RDO.RDOConnection
    RDOConnection.CursorDriver = rdUseClientBatch
    RDOConnection.Connect = "DSN=TestDB;UID=;PWD=;Database=TestDB"
    RDOConnection.EstablishConnection rdDriverNoPrompt, False

    Set recRecordset = RDOConnection.OpenResultset("select * from Countries", rdOpenKeyset, _
                  rdConcurBatch)
    
    recRecordset.MoveFirst
End Sub

Resulting VB.NET Code:

Public recRecordset As RDORecordSetHelper
Private _RDOConnection As DbConnection = Nothing

Private Sub Form1_Load(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles MyBase.Load
    
    RDOConnection = Artinsoft.VB6.DB.AdoFactoryManager.GetFactory().CreateConnection()

'UPGRADE_ISSUE: (2064) RDO.CursorDriverConstants property CursorDriverConstants.rdUseClientBatch was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx

'UPGRADE_ISSUE: (2064) RDO.RDOConnection property RDOConnection.CursorDriver was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx

UpgradeStubs.RDO_rdoConnection.setCursorDriver(RDOConnection, UpgradeStubs.RDO_CursorDriverConstants.getrdUseClientBatch())

RDOConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\\TestDB.mdb"
    RDOConnection.Open()
        
    recRecordset = RDORecordSetHelper.Open("select * from Countries", RDOConnection, LockTypeConstants.rdConcurBatch, "")
        
    recRecordset.MoveFirst()
End Sub

Note that the connection String (gray highlight) was manually added after the automated migration stage.

Resulting C#.NET Code:

public RDORecordSetHelper recRecordset = null;
private DbConnection _RDOConnection = null;

private void  Form1_Load( Object eventSender,  EventArgs eventArgs)
{
                
    RDOConnection = Artinsoft.VB6.DB.AdoFactoryManager.GetFactory().CreateConnection();

//UPGRADE_ISSUE: (2064) RDO.CursorDriverConstants property CursorDriverConstants.rdUseClientBatch was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx

//UPGRADE_ISSUE: (2064) RDO.RDOConnection property RDOConnection.CursorDriver was not upgraded. More Information: http://www.vbtonet.com/ewis/ewi2064.aspx

UpgradeStubs.RDO_rdoConnection.setCursorDriver(RDOConnection, UpgradeStubs.RDO_CursorDriverConstants.getrdUseClientBatch());
    RDOConnection.ConnectionString = "DSN=TestDB;UID=;PWD=;Database=TestDB";
    
RDOConnection.Open();
                    
    recRecordset = RDORecordSetHelper.Open("select * from Countries", RDOConnection, LockTypeConstants.rdConcurBatch, "");
                    
    recRecordset.MoveFirst();
    DisplayInfo();
}

Download VBUC Free Trial

It's time to eradicate VB6

8 Proven Tips for
Planning a Successful Migration