Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re: Backup Sql databse

by mje (Curate)
on Feb 02, 2012 at 11:47 UTC ( #951418=note: print w/replies, xml ) Need Help??

in reply to Backup Sql databse

Look at in the DBD::ODBC FAQ. The likelihood is your procedure did not complete.

Replies are listed 'Best First'.
Re^2: Backup Sql databse
by dmsparts (Sexton) on Feb 02, 2012 at 16:31 UTC
    Hi, i think that this is the problem. however i can't work out how to use the suggestion on my script, i have done this,
    #!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); use DBI; print "Content-type: text/html\n\n"; my $dbs = "DBI:ODBC:DRIVER={SQL Server};SERVER={dmssql01};DATABASE={sa +ge200_dmstestconversion}"; my ($username, $password) = ('user', 'passwd'); my $dbh = DBI->connect($dbs, $username, $password) or die "$DBI::errst +r\n"; my $sth = $dbh->prepare( 'backup database Sage200_DMSTestConversion to + DISK = \'d:\sage\sage200data\sagebackup2.bak\' ;') or die "Couldn't +prepare statement: " . $dbh->errstr; $sth->execute() or die "execute failed: " . $sth->errstr(); do { while (my @row = $sth->fetchrow_array()) { print "backing up,<br>"; print @row; } } while ($sth->{odbc_more_results}); my @error = $sth->err; print @error; $sth->finish(); $dbh->disconnect(); print "Backup Completed";
    This still gives me the same output to screen and doesn't backup. Thanks

      Take this out of CGI and just run it from the command line until you get it working. The backup command outputs print statements which are usually received via an error handler. Look at the script which I know works - you might want to comment out the restore first though. The main point is that any procedure you call has to run to completion and if nocount is off and the proc issues output the client end needs to read the output or the proc does not complete.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://951418]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (6)
As of 2018-06-21 10:54 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (118 votes). Check out past polls.