Lines Matching refs:dbh
92 my $dbh;
96 $dbh = My::DB2->new('pg_admin')->retain_dbh()
100 if(!$@ && $dbh)
107 local $dbh->{'RaiseError'} = 0;
108 local $dbh->{'PrintError'} = 0;
110 $dbh->do('DROP VIEW rdbo_test_view');
111 $dbh->do('DROP TABLE rdbo_test_products_colors CASCADE');
112 $dbh->do('DROP TABLE rdbo_test_colors CASCADE');
113 $dbh->do('DROP TABLE rdbo_test_prices CASCADE');
114 $dbh->do('DROP TABLE rdbo_test_products CASCADE');
115 $dbh->do('DROP TABLE rdbo_test_vendors CASCADE');
117 $dbh->do('DROP VIEW Rose_db_object_private.rdbo_test_view');
118 $dbh->do('DROP TABLE Rose_db_object_private.rdbo_test_products_colors CASCADE');
119 $dbh->do('DROP TABLE Rose_db_object_private.rdbo_test_colors CASCADE');
120 $dbh->do('DROP TABLE Rose_db_object_private.rdbo_test_prices CASCADE');
121 $dbh->do('DROP TABLE Rose_db_object_private.rdbo_test_products CASCADE');
122 $dbh->do('DROP TABLE Rose_db_object_private.rdbo_test_vendors CASCADE');
124 $dbh->do('DROP SCHEMA Rose_db_object_private CASCADE');
125 $dbh->do('CREATE SCHEMA Rose_db_object_private');
128 $dbh->do(<<"EOF");
138 $dbh->do(<<"EOF");
157 $dbh->do(<<"EOF");
169 $dbh->do(<<"EOF");
179 $dbh->do(<<"EOF");
189 $dbh->do(<<"EOF");
193 $dbh->do(<<"EOF");
203 $dbh->do(<<"EOF");
222 $dbh->do(<<"EOF");
234 $dbh->do(<<"EOF");
244 $dbh->do(<<"EOF");
254 $dbh->do(<<"EOF");
259 $dbh->disconnect;
268 $dbh = My::DB2->new('oracle_admin')->retain_dbh()
272 if(!$@ && $dbh)
278 local $dbh->{'RaiseError'} = 0;
279 local $dbh->{'PrintError'} = 0;
281 $dbh->do('DROP VIEW rdbo_test_view');
282 $dbh->do('DROP TABLE rdbo_test_products_colors CASCADE CONSTRAINTS');
283 $dbh->do('DROP TABLE rdbo_test_colors CASCADE CONSTRAINTS');
284 $dbh->do('DROP TABLE rdbo_test_prices CASCADE CONSTRAINTS');
285 $dbh->do('DROP TABLE rdbo_test_products CASCADE CONSTRAINTS');
286 $dbh->do('DROP TABLE rdbo_test_vendors CASCADE CONSTRAINTS');
289 $dbh->do(<<"EOF");
299 $dbh->do(<<"EOF");
318 $dbh->do(<<"EOF");
330 $dbh->do(<<"EOF");
340 $dbh->do(<<"EOF");
350 $dbh->do(<<"EOF");
354 $dbh->commit;
355 $dbh->disconnect;
365 $dbh = $db->retain_dbh or die My::DB2->error;
371 local $dbh->{'RaiseError'} = 0;
372 local $dbh->{'PrintError'} = 0;
374 $dbh->do('DROP TABLE rdbo_test_products_colors CASCADE');
375 $dbh->do('DROP TABLE rdbo_test_colors CASCADE');
376 $dbh->do('DROP TABLE rdbo_test_prices CASCADE');
377 $dbh->do('DROP TABLE rdbo_test_products CASCADE');
378 $dbh->do('DROP TABLE rdbo_test_vendors CASCADE');
379 $dbh->do('DROP TABLE `read` CASCADE');
383 $dbh->do(<<"EOF");
398 my $sth = $dbh->prepare("SHOW TABLE STATUS FROM `$db_name` LIKE ?");
409 if(!$@ && $dbh)
413 $dbh->do(<<"EOF");
436 $dbh->do(<<"EOF");
452 $dbh->do(<<"EOF");
463 $dbh->do(<<"EOF");
480 $dbh->do(<<"EOF");
489 $dbh->disconnect;
498 $dbh = My::DB2->new('informix_admin')->retain_dbh()
502 if(!$@ && $dbh)
508 local $dbh->{'RaiseError'} = 0;
509 local $dbh->{'PrintError'} = 0;
511 $dbh->do('DROP VIEW rdbo_test_view');
512 $dbh->do('DROP TABLE rdbo_test_products_colors CASCADE');
513 $dbh->do('DROP TABLE rdbo_test_colors CASCADE');
514 $dbh->do('DROP TABLE rdbo_test_prices CASCADE');
515 $dbh->do('DROP TABLE rdbo_test_products CASCADE');
516 $dbh->do('DROP TABLE rdbo_test_vendors CASCADE');
519 $dbh->do(<<"EOF");
529 $dbh->do(<<"EOF");
548 $dbh->do(<<"EOF");
560 $dbh->do(<<"EOF");
570 $dbh->do(<<"EOF");
580 $dbh->do(<<"EOF");
585 $dbh->disconnect;
594 $dbh = My::DB2->new('sqlite_admin')->retain_dbh()
598 if(!$@ && $dbh)
604 local $dbh->{'RaiseError'} = 0;
605 local $dbh->{'PrintError'} = 0;
607 $dbh->do('DROP VIEW rdbo_test_view');
608 $dbh->do('DROP TABLE rdbo_test_products_colors');
609 $dbh->do('DROP TABLE rdbo_test_colors');
610 $dbh->do('DROP TABLE rdbo_test_prices');
611 $dbh->do('DROP TABLE rdbo_test_products');
612 $dbh->do('DROP TABLE rdbo_test_vendors');
615 $dbh->do(<<"EOF");
625 $dbh->do(<<"EOF");
644 $dbh->do(<<"EOF");
656 $dbh->do(<<"EOF");
666 $dbh->do(<<"EOF");
676 $dbh->do(<<"EOF");
680 $dbh->disconnect;
691 my $dbh = My::DB2->new('pg_admin')->retain_dbh()
694 $dbh->do('DROP VIEW rdbo_test_view');
695 $dbh->do('DROP TABLE rdbo_test_products_colors CASCADE');
696 $dbh->do('DROP TABLE rdbo_test_colors CASCADE');
697 $dbh->do('DROP TABLE rdbo_test_prices CASCADE');
698 $dbh->do('DROP TABLE rdbo_test_products CASCADE');
699 $dbh->do('DROP TABLE rdbo_test_vendors CASCADE');
701 $dbh->do('DROP VIEW Rose_db_object_private.rdbo_test_view');
702 $dbh->do('DROP TABLE Rose_db_object_private.rdbo_test_products_colors CASCADE');
703 $dbh->do('DROP TABLE Rose_db_object_private.rdbo_test_colors CASCADE');
704 $dbh->do('DROP TABLE Rose_db_object_private.rdbo_test_prices CASCADE');
705 $dbh->do('DROP TABLE Rose_db_object_private.rdbo_test_products CASCADE');
706 $dbh->do('DROP TABLE Rose_db_object_private.rdbo_test_vendors CASCADE');
708 $dbh->do('DROP SCHEMA Rose_db_object_private CASCADE');
710 $dbh->disconnect;
716 my $dbh = My::DB2->new('oracle_admin')->retain_dbh()
719 $dbh->do('DROP VIEW rdbo_test_view');
720 $dbh->do('DROP TABLE rdbo_test_products_colors CASCADE CONSTRAINTS');
721 $dbh->do('DROP TABLE rdbo_test_colors CASCADE CONSTRAINTS');
722 $dbh->do('DROP TABLE rdbo_test_prices CASCADE CONSTRAINTS');
723 $dbh->do('DROP TABLE rdbo_test_products CASCADE CONSTRAINTS');
724 $dbh->do('DROP TABLE rdbo_test_vendors CASCADE CONSTRAINTS');
726 $dbh->disconnect;
732 my $dbh = My::DB2->new('mysql_admin')->retain_dbh()
735 $dbh->do('DROP TABLE rdbo_test_products_colors CASCADE');
736 $dbh->do('DROP TABLE rdbo_test_colors CASCADE');
737 $dbh->do('DROP TABLE rdbo_test_prices CASCADE');
738 $dbh->do('DROP TABLE rdbo_test_products CASCADE');
739 $dbh->do('DROP TABLE rdbo_test_vendors CASCADE');
740 $dbh->do('DROP TABLE `read` CASCADE');
742 $dbh->disconnect;
748 my $dbh = My::DB2->new('informix_admin')->retain_dbh()
751 $dbh->do('DROP VIEW rdbo_test_view');
752 $dbh->do('DROP TABLE rdbo_test_products_colors CASCADE');
753 $dbh->do('DROP TABLE rdbo_test_colors CASCADE');
754 $dbh->do('DROP TABLE rdbo_test_prices CASCADE');
755 $dbh->do('DROP TABLE rdbo_test_products CASCADE');
756 $dbh->do('DROP TABLE rdbo_test_vendors CASCADE');
758 $dbh->disconnect;
764 my $dbh = My::DB2->new('sqlite_admin')->retain_dbh()
767 $dbh->do('DROP VIEW rdbo_test_view');
768 $dbh->do('DROP TABLE rdbo_test_products_colors');
769 $dbh->do('DROP TABLE rdbo_test_colors');
770 $dbh->do('DROP TABLE rdbo_test_prices');
771 $dbh->do('DROP TABLE rdbo_test_products');
772 $dbh->do('DROP TABLE rdbo_test_vendors');
774 $dbh->disconnect;