C#

SELECT [ID]+" "+[Magasin]+" "+ [qtyonhand] AS IMQ from stocks where ID like %@txt%

sindhumahe wrote:

and i have succeeded in exporting them

extern __declspec(dllexport) bool Callregistercallback(CRTSPWrapper* pObject,funccallback fptr_video,funccallback fptr_audio,void* ptr); 

[DllImport("sampleclient_dll.dll", CharSet = CharSet.Ansi)]
static private extern bool Callregistercallback(IntPtr pTestClassObject,IntPtr fptr_video,IntPtr fptr_audio,IntPtr ptr);

<Serializable()> _
Public MustInherit Class BaseClass
    Private _Name As String
    Private _UniqueName As String

    <NonSerialized(), XmlIgnore()> _
    Private _worker As System.ComponentModel.BackgroundWorker

    Public Sub New(ByVal Name As String, ByVal UniqueName As String, _
                   Optional ByRef myWorker As System.ComponentModel.BackgroundWorker = Nothing)
        _Name = Name
        _UniqueName = UniqueName
        _worker = myWorker
    End Sub

    Public Sub New()
        _worker = Nothing
    End Sub

    Public Sub New(ByRef myWorker As System.ComponentModel.BackgroundWorker)
        _worker = myWorker
    End Sub

    <XmlElement("Name")> _
    Public Property Name() As String
        Get
            Return _Name
        End Get
        Set(ByVal value As String)
            _Name = value
        End Set
    End Property

    <XmlElement("UniqueName")> _
    Public Property UniqueName() As String
        Get
            Return _UniqueName
        End Get
        Set(ByVal value As String)
            _UniqueName = value
        End Set
    End Property

    Public Sub PerformStep()
        If _worker IsNot Nothing Then
            _worker.ReportProgress(50)
        End If
    End Sub

    Public ReadOnly Property Worker() As System.ComponentModel.BackgroundWorker
        Get
            Return _worker
        End Get
    End Property
End Class

<Serializable()> _
Public Class Member
    Inherits BaseClass

    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByVal Name As String, ByVal UniqueName As String, _
                   Optional ByRef myWorker As System.ComponentModel.BackgroundWorker = Nothing)
        MyBase.New(Name, UniqueName, myWorker)
    End Sub
End Class

<Serializable()> _
Public Class Members
    Inherits Loads

    Private _members() As Member

    Public Sub New()
        ReDim _members(-1)
    End Sub

    Public Sub New(ByRef myWorker As System.ComponentModel.BackgroundWorker)
    End Sub

    Public Sub New(ByRef Members As ADOMD.Members, _
                   Optional ByRef myWorker As System.ComponentModel.BackgroundWorker = Nothing)
    End Sub

    Public Sub LoadMembers(ByRef Members As ADOMD.Members)
    End Sub

    <XmlElement("Member")> _
    Public Property Members() As Member()
        Get
            Return _members
        End Get
        Set(ByVal value As Member())
            _members = value
        End Set
    End Property

    Public ReadOnly Property Count() As Long
        Get
            Return UBound(_members) + 1
        End Get
    End Property

    Public Overloads ReadOnly Property Items() As Member()
        Get
            Return _members
        End Get
    End Property

    Public Overloads ReadOnly Property Items(ByVal Index As Long) As Member
        Get
            If Index <= UBound(_members) Then
                Return _members(Index)
            Else
                Return Nothing
            End If
        End Get
    End Property

    Public Overloads ReadOnly Property Items(ByVal Name As String) As Member
        Get
            For i = 0 To UBound(_members)
                If _members(i).Name = Name Then
                    Return _members(i)
                End If
            Next

            Return Nothing
        End Get
    End Property

End Class