---
name: "SQL::Translator::Producer::SQLServer"
section: "3pm"
platform: "linux"
package: "libsql-translator-perl"
version: "1.66-1"
release: "Debian 13 (Trixie)"
platforms: ["linux"]
url: "https://new.carta.tech/SQL::Translator::Producer::SQLServer"
---

# SQL::Translator::Producer::SQLServer(3pm)

MS SQLServer producer for SQL::Translator

## NAME

SQL::Translator::Producer::SQLServer - MS SQLServer producer for SQL::Translator

## SYNOPSIS

```
  use SQL::Translator;
  my $t = SQL::Translator->new( parser => '...', producer => 'SQLServer' );
  $t->translate;
```

## DESCRIPTION

This is currently a thin wrapper around the nextgen SQL::Translator::Generator::DDL::SQLServer DDL maker.

## Extra Attributes

- field.list

  List of values for an enum field.

## TODO

```
 * !! Write some tests !!
 * Reserved words list needs updating to SQLServer.
 * Triggers, Procedures and Views DO NOT WORK
    # Text of view is already a 'create view' statement so no need to
    # be fancy
    foreach ( $schema->get_views ) {
        my $name = $_->name();
        $output .= "\n\n";
        $output .= "--\n-- View: $name\n--\n\n" unless $no_comments;
        my $text = $_->sql();
        $text =~ s/\r//g;
        $output .= "$text\nGO\n";
    }
    # Text of procedure already has the 'create procedure' stuff
    # so there is no need to do anything fancy. However, we should
    # think about doing fancy stuff with granting permissions and
    # so on.
    foreach ( $schema->get_procedures ) {
        my $name = $_->name();
        $output .= "\n\n";
        $output .= "--\n-- Procedure: $name\n--\n\n" unless $no_comments;
        my $text = $_->sql();
      $text =~ s/\r//g;
        $output .= "$text\nGO\n";
    }
```

## SEE ALSO

SQL::Translator

## AUTHORS

See the included AUTHORS file: \<http://search.cpan.org/dist/SQL-Translator/AUTHORS\>

## COPYRIGHT

Copyright (c) 2012 the SQL::Translator "AUTHORS" as listed above.

## LICENSE

This code is free software and may be distributed under the same terms as Perl itself.