Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: SQL table recreation

by gellyfish (Monsignor)
on Jan 05, 2005 at 14:20 UTC ( #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");
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\

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://419623]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (7)
As of 2020-01-23 12:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?