IDataSourceLocator Object

PROGID

$PROGID_DataLinks = "DataLinks"

CLSID_DataLinks

{2206CDB2-19C1-11D1-89E0-00C04FD7A829}

IID_IDataSourceLocator

{2206CCB2-19C1-11D1-89E0-00C04FD7A829}

Created for reference use in Visual Basic. Provides implementation for the promptNew and promptEdit methods.

Documentation: IDataSourceLocator

Methods in VTable order

IUnknown Methods

Description

QueryInterface

Returns pointers to supported interfaces.

AddRef

Increments reference count.

Release

Decrements reference count.

IDispatch Methods

Description

GetTypeInfoCount

Retrieves the number of type information interfaces that an object provides (either 0 or 1).

GetTypeInfo

Gets the type information for an object.

GetIDsOfNames

Maps a single member and an optional set of argument names to a corresponding set of integer DISPIDs.

Invoke

Provides access to properties and methods exposed by an object.

IDataSourceLocator Methods and Properties

Description

hWnd

The parent window handle for the dialog box to be displayed in.

PromptNew

Displays the Data Link Properties window in its wizard mode. Returns a connection string.

PromptEdit

Returns a Boolean value: true if the OK button was pressed on the dialog box; false if Cancel was pressed.

QueryInterface

FUNCTION IDataSourceLocator_QueryInterface ( _

  BYVAL pthis AS DWORD PTR _

, BYREF riid AS GUID _

, BYREF ppvObj AS DWORD _

  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[0] USING IDataSourceLocator_QueryInterface (pthis, riid, ppvObj) TO HRESULT
  FUNCTION = HRESULT
 

END FUNCTION

AddRef

FUNCTION IDataSourceLocator_AddRef ( _

  BYVAL pthis AS DWORD PTR _

  ) AS DWORD
 

  LOCAL DWRESULT AS LONG
  CALL DWORD @@pthis[1] USING IDataSourceLocator_AddRef (pthis) TO DWRESULT
  FUNCTION = DWRESULT
 

END FUNCTION

Release

FUNCTION IDataSourceLocator_Release ( _

  BYVAL pthis AS DWORD PTR _

  ) AS DWORD
 

  LOCAL DWRESULT AS DWORD
  CALL DWORD @@pthis[2] USING IDataSourceLocator_Release (pthis) TO DWRESULT
  FUNCTION = DWRESULT
 

END FUNCTION

GetTypeInfoCount

FUNCTION IDataSourceLocator_GetTypeInfoCount ( _

  BYVAL pthis AS DWORD _

, BYREF pctinfo AS DWORD _

  ) AS LONG
 

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[3] USING IDataSourceLocator_GetTypeInfoCount (pthis, pctinfo) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

GetTypeInfo

FUNCTION IDataSourceLocator_GetTypeInfo ( _

  BYVAL pthis AS DWORD _

, BYVAL itinfo AS DWORD _

, BYVAL lcid AS DWORD _

, BYREF pptinfo AS DWORD _

  ) AS LONG
 

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[4] USING IDataSourceLocator_GetTypeInfo (pthis, itinfo, lcid, pptinfo) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

GetIDsOfNames

FUNCTION IDataSourceLocator_GetIDsOfNames ( _

  BYVAL pthis AS DWORD PTR _

, BYREF riid AS GUID _

, BYVAL rgszNames AS DWORD _

, BYVAL cNames AS DWORD _

, BYVAL lcid AS DWORD _

, BYVAL rgdispid AS DWORD _

  ) AS LONG
 

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[5] USING IDataSourceLocator_GetIDsOfNames (pthis, riid, rgszNames, cNames, lcid, rgdispid) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

Invoke

FUNCTION IDataSourceLocator_Invoke ( _

  BYVAL pthis AS DWORD PTR _

, BYVAL dispidMember AS LONG _

, BYREF riid AS GUID _

, BYVAL lcid AS DWORD _

, BYVAL wFlags AS WORD _

, BYREF pdispparams AS DISPPARAMS _

, BYREF pvarResult AS VARIANT _

, BYREF pexcepinfo AS EXCEPINFO _

, BYREF puArgErr AS DWORD _

  ) AS LONG
 

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[6] USING IDataSourceLocator_Invoke (pthis, dispidMember, riid, lcid, wFlags, pdispparams, pvarResult, pexcepinfo, puArgErr) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

hWnd

FUNCTION IDataSourceLocator_get_hWnd ( _
  BYVAL pthis AS DWORD PTR _

, BYREF phwndParent AS LONG _

  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[7] USING IDataSourceLocator_get_hWnd (pthis, phwndParent) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

FUNCTION IDataSourceLocator_put_hWnd ( _
  BYVAL pthis AS DWORD PTR _

, BYVAL phwndParent AS LONG _

  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[8] USING IDataSourceLocator_put_hWnd (pthis, phwndParent) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

PromptNew

FUNCTION IDataSourceLocator_PromptNew ( _
  BYVAL pthis AS DWORD PTR _

, BYREF ppADOConnection AS DWORD _

  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[9] USING IDataSourceLocator_PromptNew (pthis, ppADOConnection) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

PromptEdit

FUNCTION IDataSourceLocator_PromptEdit ( _
  BYVAL pthis AS DWORD PTR _

, BYREF ppADOConnection AS DWORD _

, BYREF pbSuccess AS INTEGER _

  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[10] USING IDataSourceLocator_PromptEdit (pthis, ppADOConnection, pbSuccess) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION