Devart Forums

Code: Select all

if (GUIDToString(FProviderId) = GUIDToString(CLSID_MSOLEDBSQL)) and GetConnection.Options.TrustServerCertificate then
    AddPropBool(SSPROP_INIT_TRUST_SERVER_CERTIFICATE, GetConnection.Options.TrustServerCertificate);

Code: Select all

CREATE DATABASE TestDB
GO

USE TestDB
GO

CREATE TABLE Temp_Table
(
	a INTEGER IDENTITY NOT NULL,
	b INTEGER NOT NULL,
	c INTEGER
)

Code: Select all

program SDACTest;
{$APPTYPE CONSOLE}

uses
  SysUtils, MSAccess, MSLoader, ActiveX;

type
  TTestDataGenerator = class
  public
    procedure LoadTestData(Sender: TMSLoader);
  end;

procedure TTestDataGenerator.LoadTestData(Sender: TMSLoader);
var
  iRow: Integer;
begin
  for iRow := 1 to 3 do
  begin
//Uncomment this to fix the error:
//    Sender.PutColumnData('a', iRow, 1);

    Sender.PutColumnData('b', iRow, 2);
    Sender.PutColumnData('c', iRow, NULL);
  end;
end;

var
  Connection: TMSConnection;
  Loader: TMSLoader;
  TestDataGenerator: TTestDataGenerator;
begin
  try
    CoInitialize(nil);
    Connection := TMSConnection.Create(nil);
    TestDataGenerator := TTestDataGenerator.Create;
    Loader := TMSLoader.Create(nil);
    try
      Connection.ConnectString := 'Data Source=.;Initial Catalog=TestDB;User Id=sa;Password=;';
      Connection.Connect;

      Loader.Connection := Connection;
      Loader.TableName := 'Temp_Table';
      Loader.CreateColumns; //Load the table structure
      Loader.OnPutData := TestDataGenerator.LoadTestData;
      Loader.Load;
    finally
      Loader.Free;
      TestDataGenerator.Free;
      Connection.Free;
      CoUninitialize;
    end;

  except
    on Exc: Exception do
      WriteLn(Format('%s: %s', [Exc.ClassName, Exc.Message]));
  end;

  Writeln('Done.');
  Readln;
end.