Re: SQL table recreation


Pathologically Eclectic Rubbish Lister
	PerlMonks

Re: SQL table recreation

by gellyfish (Monsignor)

on Jan 05, 2005 at 14:20 UTC ( [id://419623]=note: print w/replies, xml )

Need Help??

in reply to SQL table recreation

You can do this (on Windows) using a combination of Perl and SQL Server capabilities:

use Win32::OLE;

my $dmo = Win32::OLE->new("SQLDMO.SQLServer") or die;

$dmo->Connect('ServerName','UserName','Login');

my $db = $dmo->{Databases}->{'DatabaseName'};
my $table = $db->{Tables}->{'TableName'};
$table->Script(undef,"foo.sql");
[download]

This will generate the SQL to create the table 'TableName' in the database 'DatabaseName' in the file "foo.sql". You will probably want to read more about the SQL-DMO in the SQL Server documentation.

/J\