program ODBCTest;

uses
  LazUTF8, DB, odbcconn, SQLDB;

var
  xConn: TODBCConnection;
  Q: TSQLQuery;
  T: TSQLTransaction;
  S: string;
  U: UnicodeString;
begin
  xConn := TODBCConnection.Create(nil);
  xConn.HostName := 'SQLSERVER';
  xConn.DatabaseName := xConn.HostName;
  xConn.Driver := 'SQL Server Native Client 11.0';
  xConn.Connected := True;
  T := TSQLTransaction.Create(xConn);
  xConn.Transaction := T;
  Q := TSQLQuery.Create(xConn);
  Q.SQLConnection := xConn;
  Q.Transaction := T;

  U := 'SELECT ''äöüß''';
  S := AnsiString(UnicodeString(U));
  Q.SQL.Text := S;
  Writeln('UnicodeString input: ', U);
  Writeln('String input: ', S);
  Writeln('Q.SQL.Text: ', Q.SQL.Text);
  Q.Open;
  Writeln('UnicodeString Output: '+Q.Fields[0].AsWideString);
  Writeln('String Output: '+Q.Fields[0].AsString);

  ReadLn;
  xConn.Free;
end.