Lines Matching refs:dbh
27 my $dbh = DBI->connect("dbi:Sybase:server=$Srv;database=$Db", $Uid, $Pwd, {PrintError => 0});
29 ok(defined($dbh), 'Connect');
31 if(!$dbh) {
39 $dbh->do("create table #ttt (foo varchar(20), bar int)");
40 $dbh->{AutoCommit} = 0;
42 $dbh->do("insert #ttt values('a string', 1)");
43 $dbh->do("insert #ttt values('another string', 2)");
44 $dbh->do("insert #ttt values('foodiboo', 3)");
45 $dbh->do("insert #ttt values('a string', 4)");
46 $dbh->rollback;
47 my $sth = $dbh->prepare("select * from #ttt");
56 $dbh->do("insert #ttt values('a string', 1)");
57 $dbh->do("insert #ttt values('another string', 2)");
58 $dbh->do("insert #ttt values('foodiboo', 3)");
59 $dbh->do("insert #ttt values('a string', 4)");
60 $dbh->commit;
62 $sth = $dbh->prepare("select * from #ttt");
72 $dbh->{AutoCommit} = 1;
74 $dbh->begin_work;
75 $dbh->do("insert #ttt values('a string', 1)");
76 $dbh->do("insert #ttt values('another string', 2)");
77 $dbh->do("insert #ttt values('foodiboo', 3)");
78 $dbh->do("insert #ttt values('a string', 4)");
79 $dbh->commit;
80 ok($dbh->{AutoCommit} == 1, "begin_work");
83 $dbh->{syb_chained_txn} = 0;
84 $dbh->{AutoCommit} = 0;
85 $sth = $dbh->prepare("select 5");
89 $rc = $dbh->commit;
92 $dbh->disconnect;