Código:
Option Strict Off Option Explicit On Friend Class clsMain Public Function OpenConnect() As ADODB.Connection Dim com As Object com = New ADODB.Command Dim dbPath As String dbPath = VB6.GetPath & "\" & "House.mdb" cnConnection = New ADODB.Connection cnConnection = New ADODB.Connection With cnConnection .Open("Provider=Microsoft.Jet.OLEDB.4.0; Data source ='" & dbPath & "'; Jet OLEDB:database password=123") End With End Function End Class
'use un convertidor pero me da los siguientes errores:
1: .OPEN("BLABLABLA") - error: ".open no acepta 1 argumentos"
2: WindowsApplication3.ClsMain.OpenConnect()': no todas las rutas de código devuelven un valor
este es el codigo c#
Cita:
namespace WindowsApplication3
{
class ClsMain
{
public ADODB.Connection cnConnection;
public ADODB.Connection OpenConnect()
{
object com = null;
com = new ADODB.Command();
string dbPath = null;
dbPath = "House.mdb";
cnConnection = new ADODB.Connection();
cnConnection = new ADODB.Connection();
cnConnection.Open("Provider=Microsoft.Jet.OLEDB.4. 0; Data source ='" + dbPath + "'; Jet OLEDB:database password=123",null,null,0);
}
}
}
{
class ClsMain
{
public ADODB.Connection cnConnection;
public ADODB.Connection OpenConnect()
{
object com = null;
com = new ADODB.Command();
string dbPath = null;
dbPath = "House.mdb";
cnConnection = new ADODB.Connection();
cnConnection = new ADODB.Connection();
cnConnection.Open("Provider=Microsoft.Jet.OLEDB.4. 0; Data source ='" + dbPath + "'; Jet OLEDB:database password=123",null,null,0);
}
}
}