Fórum ATENÇÃO usuários de Access com problemas de corrupção #261196

Declare Function LDBUser_GetUsers Lib “MSLDBUSR.DLL” (lpszUserBuffer() As String, ByVal lpszFilename As String, ByVal nOptions As Long) As Integer Declare Function LDBUser_GetError Lib “MSLDBUSR.DLL” (ByVal nErrorNo As Long) As String Function Parameters in VB/Access Integer LDBUser_GetUsers ( lpszUserBuffer() As String,‘ Returned array list of users ByVal lpszFilename As String, ‘ The name of the MDB file ByVal nOptions As Long‘ specifies the return options ) lpszUserBuffer() – This is a standard array string defined in VB/Access. The only unusual characteristic of this string is that it needs to be defined as a dynamic array. This can be accomplished using the REDIM statement. e.g. Sub Foo() ReDim lpszUserBuffer(1) As String End Sub The purpose of defining a dynamic array is to allow the MSLDBUSR.DLL to redimension the array in its code base to match the number of users that are to be returned. lpszFilename -- This is the name of the filename with its associated database extension (MDB, MDW, MDA, etc…). A corresponding LDB file must exist, otherwise LDBUser_GetUsers will return an error. nOptions -- Specifies the type of users that are returned into lpsaUserList. 1=All users who have logged in since the LDB file was created 2=Only users who are currently logged in 4=Only users who are causing the database file to be corrupt 8=Just returns the count of users. No users are returned in the BSTR array String LDBUser_GetError ( ByVal nErrorNo As Long // The error number returned by LDBUser_GetUsers )

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    aUserList : array of shortstring;
  end;

var
  Form1: TForm1;

implementation

function LDBUser_GetUsers (lpszUserBuffer : array of shortstring; lpszFilename : shortstring; nOptions : integer) : integer; external ´MSLDBUSR.DLL´;

function LDBUser_GetError (nErrorNo : integer) : shortstring; external ´MSLDBUSR.DLL´;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   nUser : integer;
begin
   nUser := LDBUser_GetUsers(aUserList, PChar(´c:\dados\principal.mdb´), 1);

   if nUser < 0 then
      ShowMessage(LDBUser_GetError(nUser))
   else
      ShowMessage(aUserList[0]);
end;

end.