Chip 2000 May

home *** CD-ROM | disk | FTP | other *** search

/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _d5d3796c333924cebf098bc2da7c8da0 < prev next >

Wrap

Text File | 2000-03-23 | 34KB | 685 lines

<HTML> <HEAD> <TITLE>DBD::Sybase - Sybase database driver for the DBI module</TITLE> <LINK REL="stylesheet" HREF="../../../Active.css" TYPE="text/css"> <LINK REV="made" HREF="mailto:"> </HEAD> <BODY> <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%> <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc"> DBD::Sybase - Sybase database driver for the DBI module </TD></TR> </TABLE> <A NAME="__index__"></A>  <UL> <LI><A HREF="#name">NAME</A></LI><LI><A HREF="#supportedplatforms">SUPPORTED PLATFORMS</A></LI> <LI><A HREF="#synopsis">SYNOPSIS</A></LI> <LI><A HREF="#description">DESCRIPTION</A></LI> <LI><A HREF="#connecting to sybase">Connecting to Sybase</A></LI> <UL> <LI><A HREF="#the interfaces file">The interfaces file</A></LI> <LI><A HREF="#specifying the server name">Specifying the server name</A></LI> <LI><A HREF="#specifying other connection specific parameters">Specifying other connection specific parameters</A></LI> </UL> <LI><A HREF="#handling multiple result sets">Handling Multiple Result Sets</A></LI> <LI><A HREF="#$sth>execute() failure mode behavior">$sth-><CODE>execute()</CODE> failure mode behavior</A></LI> <LI><A HREF="#sybase specific attributes">Sybase Specific Attributes</A></LI> <UL> <LI><A HREF="#database handle attributes">Database Handle Attributes</A></LI> <LI><A HREF="#statement handle attributes">Statement Handle Attributes</A></LI> </UL> <LI><A HREF="#controlling datetime output formats">Controlling DATETIME output formats</A></LI> <LI><A HREF="#retrieving output parameters from stored procedures">Retrieving OUTPUT parameters from stored procedures</A></LI> <LI><A HREF="#multiple active statements on one $dbh">Multiple active statements on one $dbh</A></LI> <LI><A HREF="#image and text datatypes">IMAGE and TEXT datatypes</A></LI> <LI><A HREF="#autocommit, transactions and transactsql">AutoCommit, Transactions and Transact-SQL</A></LI> <LI><A HREF="#using placeholders & bind parameters to $sth>execute">Using ? Placeholders & bind parameters to $sth->execute</A></LI> <LI><A HREF="#bugs">BUGS</A></LI> <LI><A HREF="#see also">SEE ALSO</A></LI> <LI><A HREF="#author">AUTHOR</A></LI> <LI><A HREF="#copyright">COPYRIGHT</A></LI> <LI><A HREF="#acknowledgements">ACKNOWLEDGEMENTS</A></LI> </UL>  <HR> <H1><A NAME="name">NAME</A></H1> DBD::Sybase - Sybase database driver for the DBI module <HR> <H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1> <UL> <LI>Windows</LI> </UL> <HR> <H1><A NAME="synopsis">SYNOPSIS</A></H1> <PRE> use DBI;</PRE> <PRE> $dbh = DBI->connect("dbi:Sybase:", $user, $passwd);</PRE> <PRE> # See the DBI module documentation for full details</PRE> <HR> <H1><A NAME="description">DESCRIPTION</A></H1> DBD::Sybase is a Perl module which works with the DBI module to provide access to Sybase databases. <HR> <H1><A NAME="connecting to sybase">Connecting to Sybase</A></H1> <H2><A NAME="the interfaces file">The interfaces file</A></H2> The DBD::Sybase module is built on top of the Sybase Open Client Client Library API. This library makes use of the Sybase interfaces file (sql.ini on Win32 machines) to make a link between a logical server name (e.g. SYBASE) and the physical machine / port number that the server is running on. The OpenClient library uses the environment variable SYBASE to find the location of the interfaces file, as well as other files that it needs (such as locale files). The SYBASE environment is the path to the Sybase installation (eg '/usr/local/sybase'). If you need to set it in your scripts, then you must set it in a <CODE>BEGIN{}</CODE> block: <PRE> BEGIN { $ENV{SYBASE} = '/opt/sybase/11.0.2'; }</PRE> <PRE> $dbh = DBI->connect('dbi:Sybase:', $user, $passwd);</PRE> <H2><A NAME="specifying the server name">Specifying the server name</A></H2> The server that DBD::Sybase connects to defaults to SYBASE, but can be specified in two ways. You can set the DSQUERY environement variable: <PRE> $ENV{DSQUERY} = "ENGINEERING"; $dbh = DBI->connect('dbi:Sybase:', $user, $passwd);</PRE> Or you can pass the server name in the first argument to connect(): <PRE> $dbh = DBI->connect("dbi:Sybase:server=ENGINEERING", $user, $passwd);</PRE> <H2><A NAME="specifying other connection specific parameters">Specifying other connection specific parameters</A></H2> It is sometimes necessary (or beneficial) to specify other connection properties. Currently the following are supported: <DL> <DT><A NAME="item_server">server</A> <DD> Specify the server that we should connect to <PRE> $dbh = DBI->connect("dbi:Sybase:server=BILLING", $user, $passwd);</PRE> The default server is SYBASE, or the value of the $DSQUERY environment variable, if it is set. <DT><A NAME="item_database">database</A> <DD> Specify the database that should be made the default database. <PRE> $dbh = DBI->connect("dbi:Sybase:database=sybsystemprocs", $user, $passwd);</PRE> This is equivalent to <PRE> $dbh = DBI->connect('dbi:Sybase:', $user, $passwd); $dbh->do("use sybsystemprocs");</PRE> <DT><A NAME="item_charset">charset</A> <DD> Specify the character set that the client uses. <PRE> $dbh = DBI->connect("dbi:Sybase:charset=iso_1", $user, $passwd);</PRE> <DT><A NAME="item_language">language</A> <DD> Specify the language that the client uses. <PRE> $dbh = DBI->connect("dbi:Sybase:language=us_english", $user, $passwd);</PRE> <DT><A NAME="item_packetSize">packetSize</A> <DD> Specify the network packet size that the connection should use. Using a larger packet size can increase performance for certain types of queries. See the Sybase documentation on how to enable this feature on the server. <PRE> $dbh = DBI->connect("dbi:Sybase:packetSize=8192", $user, $passwd);</PRE> <DT><A NAME="item_interfaces">interfaces</A> <DD> Specify the location of an alternate interfaces file: <PRE> $dbh = DBI->connect("dbi:Sybase:interfaces=/usr/local/sybase/interfaces", $user, $passwd);</PRE> <DT><A NAME="item_loginTimeout">loginTimeout</A> <DD> Specify the number of seconds that DBI-><A HREF="../../../lib/Pod/perlfunc.html#item_connect"><CODE>connect()</CODE></A> will wait for a response from the Sybase server. If the server fails to respond before the specified number of seconds the DBI-><A HREF="../../../lib/Pod/perlfunc.html#item_connect"><CODE>connect()</CODE></A> call fails with a timeout error. The default value is 60 seconds, which is usually enough, but on a busy server it is sometimes necessary to increase this value: <PRE> $dbh = DBI->connect("dbi:Sybase:loginTimeout=240", # wait up to 4 minutes $user, $passwd);</PRE> <DT><A NAME="item_timeout">timeout</A> <DD> Specify the number of seconds after which any Open Client calls will timeout the connection and mark it as dead. Once a timeout error has been received on a connection it should be closed and re-opened for further processing. Setting this value to 0 or a negative number will result in an unlimited timeout value. See also the Open Client documentation on CS_TIMEOUT. <PRE> $dbh = DBI->connect("dbi:Sybase:timeout=240", # wait up to 4 minutes $user, $passwd);</PRE> <DT><A NAME="item_scriptName">scriptName</A> <DD> Specify the name for this connection that will be displayed in sp_who (ie in the sysprocesses table in the program_name column). <PRE> $dbh->DBI->connect("dbi:Sybase:scriptName=myScript", $user, $password);</PRE> <DT><A NAME="item_hostname">hostname</A> <DD> Specify the hostname that will be displayed by sp_who (and will be stored in the hostname column of sysprocesses).. <PRE> $dbh->DBI->connect("dbi:Sybase:hostname=kiruna", $user, $password);</PRE> <DT><A NAME="item_tdsLevel">tdsLevel</A> <DD> Specify the TDS protocol level to use when connecting to the server. Valid values are CS_TDS_40, CS_TDS_42, CS_TDS_46, CS_TDS_495 and CS_TDS_50. In general this is automatically negotiated between the client and the server, but in certain cases this may need to be forced to a lower level by the client. <PRE> $dbh->DBI->connect("dbi:Sybase:tdsLevel=CS_TDS_42", $user, $password);</PRE> NOTE: Setting the tdsLevel below CS_TDS_495 will disable a number of features, ?-style placeholders and CHAINED non-AutoCommit mode, in particular. </DL> These different parameters (as well as the server name) can be strung together by separating each entry with a semi-colon: <PRE> $dbh = DBI->connect("dbi:Sybase:server=ENGINEERING;packetSize=8192;language=us_english;charset=iso_1", $user, $pwd);</PRE> <HR> <H1><A NAME="handling multiple result sets">Handling Multiple Result Sets</A></H1> Sybase's Transact SQL has the ability to return multiple result sets from a single SQL statement. For example the query: <PRE> select b.title, b.author, s.amount from books b, sales s where s.authorID = b.authorID order by b.author, b.title compute sum(s.amount) by b.author</PRE> which lists sales by author and title and also computes the total sales by author returns two types of rows. The DBI spec doesn't really handle this situation, nor the more hairy <PRE> exec my_proc @p1='this', @p2='that', @p3 out</PRE> where <CODE>my_proc</CODE> could return any number of result sets (ie it could perform an unknown number of <A HREF="../../../lib/Pod/perlfunc.html#item_select"><CODE>select</CODE></A> statements. I've decided to handle this by returning an empty row at the end of each result set, and by setting a special Sybase attribute in $sth which you can check to see if there is more data to be fetched. The attribute is syb_more_results which you should check to see if you need to re-start the <CODE>fetch()</CODE> loop. To make sure all results are fetched, the basic <CODE>fetch</CODE> loop can be written like this: <PRE> do { while($d = $sth->fetch) { ... do something with the data } } while($sth->{syb_more_results});</PRE> You can get the type of the current result set with $sth->{syb_result_type}. This returns a numerical value, as defined in $SYBASE/include/cspublic.h: <PRE> #define CS_ROW_RESULT (CS_INT)4040 #define CS_CURSOR_RESULT (CS_INT)4041 #define CS_PARAM_RESULT (CS_INT)4042 #define CS_STATUS_RESULT (CS_INT)4043 #define CS_MSG_RESULT (CS_INT)4044 #define CS_COMPUTE_RESULT (CS_INT)4045</PRE> In particular, the return status of a stored procedure is returned as CS_STATUS_RESULT (4043), and is normally the last result set that is returned in a stored proc execution. If you add a <PRE> use DBD::Sybase;</PRE> to your script then you can use the symbolic values (CS_xxx_RESULT) instead of the numeric values in your programs, which should make them easier to read. See also the <CODE>syb_output_param</CODE> <CODE>func()</CODE> call to handle stored procedures that only return OUTPUT parameters. <HR> <H1><A NAME="$sth>execute() failure mode behavior">$sth-><CODE>execute()</CODE> failure mode behavior</A></H1> THIS HAS CHANGED IN VERSION 0.21! DBD::Sybase has the ability to handle multi-statement SQL commands in a single batch. For example, you could insert several rows in a single batch like this: <PRE> $sth = $dbh->prepare(" insert foo(one, two, three) values(1, 2, 3) insert foo(one, two, three) values(4, 5, 6) insert foo(one, two, three) values(10, 11, 12) insert foo(one, two, three) values(11, 12, 13) "); $sth->execute;</PRE> If anyone of the above inserts fails for any reason then $sth->execute will return <A HREF="../../../lib/Pod/perlfunc.html#item_undef"><CODE>undef</CODE></A>, HOWEVER the inserts that didn't fail will still be in the database, unless <CODE>AutoCommit</CODE> is off. It's also possible to write a statement like this: <PRE> $sth = $dbh->prepare(" insert foo(one, two, three) values(1, 2, 3) select * from bar insert foo(one, two, three) values(10, 11, 12) "); $sth->execute;</PRE> If the second <CODE>insert</CODE> is the one that fails, then $sth->execute will NOT return <A HREF="../../../lib/Pod/perlfunc.html#item_undef"><CODE>undef</CODE></A>. The error will get flagged after the rows from <CODE>bar</CODE> have been fetched. I know that this is not as intuitive as it could be, but I am constrained by the Sybase API here. As an aside, I know that the example above doesn't really make sense, but I need to illustrate this particular sequence... You can also see the t/fail.t test script which shows this particular behavior. <HR> <H1><A NAME="sybase specific attributes">Sybase Specific Attributes</A></H1> There are a number of handle attributes that are specific to this driver. These attributes all start with syb_ so as to not clash with any normal DBI attributes. <H2><A NAME="database handle attributes">Database Handle Attributes</A></H2> The following Sybase specific attributes can be set at the Database handle level: <DL> <DT><A NAME="item_syb_show_sql">syb_show_sql (bool)</A> <DD> If set then the current statement is included in the string returned by $dbh->errstr. <DT><A NAME="item_syb_show_eed">syb_show_eed (bool)</A> <DD> If set, then extended error information is included in the string returned by $dbh->errstr. Extended error information include the index causing a duplicate insert to fail, for example. <DT><A NAME="item_syb_err_handler">syb_err_handler (subroutine ref)</A> <DD> Note: The syntax for the error handler is experimental and may change in future versions. This attribute is used to set an ad-hoc error handler callback (ie a perl subroutine) that gets called before the normal error handler does it's job. If this subroutine returns 0 then the error is ignored. This is useful for handling PRINT statements in Transact-SQL, for handling messages from the Backup Server, showplan output, dbcc output, etc. The subroutine is called with 7 parameters: the Sybase error number, the severity, the state, the line number in the SQL batch, the server name (if available), the stored procedure name (if available), and the message text. For client-side errors the state and line number are always 0, and the server name and procedure name are always undef. Example: <PRE> %showplan_msgs = map { $_ => 1} (3612 .. 3615, 6201 .. 6225); sub err_handler { my($err, $sev, $state, $line, $server, $proc, $msg) = @_;</PRE> <PRE> if($showplan_msgs{$err}) { # it's a showplan message print SHOWPLAN "$err - $msg\n"; return 0; # This is not an error }</PRE> <PRE> return 1; }</PRE> <PRE> $dbh = DBI->connect('dbi:Sybase:server=troll', 'sa', ''); $dbh->{syb_err_handler} = \&err_handler; $dbh->do("set showplan on"); open(SHOWPLAN, ">>/var/tmp/showplan.log") || die "Can't open showplan log: $!"; $dbh->do("exec someproc"); # get the showplan trace for this proc. $dbh->disconnect;</PRE> <DT><A NAME="item_syb_flush_finish">syb_flush_finish (bool)</A> <DD> If $dbh->{syb_flush_finish} is set then $dbh->finish will drain any results remaining for the current command by actually fetching them. The default behaviour is to issue a ct_cancel(CS_CANCEL_ALL), but this appears to cause connections to hang or to fail in certain cases (although I've never witnessed this myself.) <DT><A NAME="item_syb_dynamic_supported">syb_dynamic_supported (bool)</A> <DD> This is a read-only attribute that returns TRUE if the dataserver you are connected to supports ?-style placeholders. Typically placeholders are not supported when using DBD::Sybase to connect to a MS-SQL server. <DT><A NAME="item_syb_chained_txn">syb_chained_txn (bool)</A> <DD> If set then we use CHAINED transactions when AutoCommit is off. Otherwise we issue an explicit BEGIN TRAN as needed. The default is off. This attribute should usually be used only during the <A HREF="../../../lib/Pod/perlfunc.html#item_connect"><CODE>connect()</CODE></A> call: <PRE> $dbh = DBI->connect('dbi:Sybase:', $user, $pwd, {syb_chained_txn => 1});</PRE> Using it at any other time with AutoCommit turned off will force a commit on the current handle. <DT><A NAME="item_syb_quoted_identifier">syb_quoted_identifier (bool)</A> <DD> If set, then identifiers that would normally clash with Sybase reserved words can be quoted using <CODE>"identifier"</CODE>. In this case strings must be quoted with the single quote. Default is for this attribute to be off. <DT><A NAME="item_syb_rowcount">syb_rowcount (int)</A> <DD> Setting this attribute to non-0 will limit the number of rows returned by a SELECT, or affected by an UPDATE or DELETE statement to the rowcount value. Setting it back to 0 clears the limit. Default is for this attribute to be 0. <DT><A NAME="item_syb_do_proc_status">syb_do_proc_status (bool)</A> <DD> Setting this attribute causes $sth-><CODE>execute()</CODE> to fetch the return status of any executed stored procs in the SQL being executed. If the return status is non-0 then $sth-><CODE>execute()</CODE> will report that the operation failed (ie it will return <A HREF="../../../lib/Pod/perlfunc.html#item_undef"><CODE>undef</CODE></A>) Setting this attribute does NOT affect existing $sth handles, only those that are created after setting it. To change the behavior of an existing $sth handle use $sth->{syb_do_proc_status}. The default is for this attribute to be off. <DT><A NAME="item_syb_oc_version">syb_oc_version (string)</A> <DD> Returns the identification string of the version of Client Library that this binary is currently using. This is a read-only attribute. For example: <PRE> troll (7:59AM):348 > perl -MDBI -e '$dbh = DBI->connect("dbi:Sybase:", "sa"); print "$dbh->{syb_oc_version}\n";' Sybase Client-Library/11.1.1/P/Linux Intel/Linux 2.2.5 i586/1/OPT/Mon Jun 7 07:50:21 1999</PRE> This is very useful information to have when reporting a problem. </DL> <H2><A NAME="statement handle attributes">Statement Handle Attributes</A></H2> The following read-only attributes are available at the statement level: <DL> <DT><A NAME="item_syb_more_results">syb_more_results (bool)</A> <DD> See the discussion on handling multiple result sets above. <DT><A NAME="item_syb_result_type">syb_result_type (int)</A> <DD> Returns the numeric result type of the current result set. Useful when executing stored procedurs to determine what type of information is currently fetchable (normal select rows, output parameters, status results, etc...). <DT>syb_do_proc_status (bool) <DD> See above (under Database Handle Attributes) for an explanation. </DL> <HR> <H1><A NAME="controlling datetime output formats">Controlling DATETIME output formats</A></H1> By default DBD::Sybase will return DATETIME and SMALLDATETIME columns in the Nov 15 1998 11:13AM format. This can be changed via a special _date_fmt() function that is accessed via the $dbh-><CODE>func()</CODE> method. The syntax is <PRE> $dbh->func($fmt, '_date_fmt');</PRE> where $fmt is a string representing the format that you want to apply. The formats are based on Sybase's standard conversion routines. The following subset of available formats has been implemented: <DL> <DT><A NAME="item_LONG">LONG</A> <DD> Nov 15 1998 11:30:11:496AM <DT><A NAME="item_SHORT">SHORT</A> <DD> Nov 15 1998 11:30AM <DT><A NAME="item_DMY4_YYYY">DMY4_YYYY</A> <DD> 15 Nov 1998 <DT><A NAME="item_MDY1_YYYY">MDY1_YYYY</A> <DD> 11/15/1998 <DT><A NAME="item_DMY1_YYYY">DMY1_YYYY</A> <DD> 15/11/1998 <DT><A NAME="item_HMS">HMS</A> <DD> 11:30:11 </DL> <HR> <H1><A NAME="retrieving output parameters from stored procedures">Retrieving OUTPUT parameters from stored procedures</A></H1> Sybase lets you pass define OUTPUT parameters to stored procedures, which are a little like parameters passed by reference in C (or perl.) In Transact-SQL this is done like this <PRE> declare @id_value int, @id_name char(10) exec my_proc @name = 'a string', @number = 1234, @id = @id_value OUTPUT, @out_name = @id_name OUTPUT -- Now @id_value and @id_name are set to whatever 'my_proc' set @id and @out_name to</PRE> So how can we get at @param using DBD::Sybase? If your stored procedure only returns OUTPUT parameters, then you can use this shorthand: <PRE> $sth = $dbh->prepare('...'); $sth->execute; @results = $sth->func('syb_output_params');</PRE> This will return an array for all the OUTPUT parameters in the proc call, and will ignore any other results. The array will be undefined if there are no OUTPUT params, or if the stored procedure failed for some reason. The more generic way looks like this: <PRE> $sth = $dbh->prepare("declare \@id_value int, \@id_name exec my_proc @name = 'a string', @number = 1234, @id = @id_value OUTPUT, @out_name = @id_name OUTPUT"); $sth->execute; do { while($d = $sth->fetch) { if($sth->{syb_result_type} == 4042) { # it's a PARAM result $id_value = $d->[0]; $id_name = $d->[1]; } } } while($sth->{syb_more_results});</PRE> So the OUTPUT params are returned as one row in a special result set. <HR> <H1><A NAME="multiple active statements on one $dbh">Multiple active statements on one $dbh</A></H1> It is possible to open multiple active statements on a single database handle. This is done by openeing a new physical connection in $dbh-><CODE>prepare()</CODE> if there is already an active statement handle for this $dbh. This feature has been implemented to improve compatibility with other drivers, but should not be used if you are coding directly to the Sybase driver. If AutoCommit is OFF then multiple statement handles on a single $dbh is NOT supported. This is to avoid various deadlock problems that can crop up in this situation, and because you will not get real transactional integrity using multiple statement handles simultaneously as these in reality refer to different physical connections. <HR> <H1><A NAME="image and text datatypes">IMAGE and TEXT datatypes</A></H1> DBD::Sybase uses the standard OpenClient conversion routines to convert data retrieved from the server into either string or numeric format. The conversion routines convert IMAGE datatypes to a hexadecimal string. If you need the binary representation you can use something like <PRE> $binary = pack("H*", $hex_string);</PRE> to do the conversion. Note that TEXT columns are not treated this way and will be returned exactly as they were stored. Internally Sybase makes no distinction between TEXT and IMAGE columns - both can be used to store either text or binary data. Note that IMAGE or TEXT datatypes can not be passed as parameters when using ?-style placeholders, and ?-style placeholders can't refer to TEXT or IMAGE columns. <HR> <H1><A NAME="autocommit, transactions and transactsql">AutoCommit, Transactions and Transact-SQL</A></H1> When $h->{AutoCommit} is off all data modification SQL statements that you issue (insert/update/delete) will only take effect if you call $dbh->commit. DBD::Sybase implements this via two distinct methods, depending on the setting of the $h->{syb_chained_txn} attribute and the version of the server that is being accessed. If $h->{syb_chained_txn} is off, then the DBD::Sybase driver will send a BEGIN TRAN before the first $dbh->prepare(), and after each call to $dbh-><CODE>commit()</CODE> or $dbh->rollback(). This works fine, but will cause any SQL that contains any CREATE TABLE (or other DDL) statements to fail. These CREATE TABLE statements can be burried in a stored procedure somewhere (for example, <CODE>sp_helprotect</CODE> creates two temp tables when it is run). You can get around this limit by setting the <CODE>ddl in tran</CODE> option (at the database level, via <CODE>sp_dboption</CODE>.) You should be aware that this can have serious effects on performance as this causes locks to be held on certain system tables for the duration of the transaction. If $h->{syb_chained_txn} is on, then DBD::Sybase sets the CHAINED option, which tells Sybase not to commit anything automatically. Again, you will need to call $dbh-><CODE>commit()</CODE> to make any changes to the data permanent. In this case Sybase will not let you issue BEGIN TRAN statements in the SQL code that is executed, so if you need to execute stored procedures that have BEGIN TRAN statements in them you must use $h->{syb_chained_txn} = 0, or $h->{AutoCommit} = 1. <HR> <H1><A NAME="using placeholders & bind parameters to $sth>execute">Using ? Placeholders & bind parameters to $sth->execute</A></H1> This version supports the use of ? placeholders in SQL statements. It does this by using what Sybase calls Dynamic SQL. The ? placeholders allow you to write something like: <PRE> $sth = $dbh->prepare("select * from employee where empno = ?");</PRE> <PRE> # Retrieve rows from employee where empno == 1024: $sth->execute(1024); while($data = $sth->fetch) { print "@$data\n"; }</PRE> <PRE> # Now get rows where empno = 2000: </PRE> <PRE> $sth->execute(2000); while($data = $sth->fetch) { print "@$data\n"; }</PRE> When you use ? placeholders Sybase goes and creates a temporary stored procedure that corresponds to your SQL statement. You then pass variables to $sth->execute or $dbh->do, which get inserted in the query, and any rows are returned. For those of you who are used to Transact-SQL there are some limitations to using this feature: In particular you can not pass parameters this way to stored procedures, and you can only execute a SQL statement that returns a single result set. In addition, the ? placeholders can only appear in a WHERE clause, in the SET clause of an UPDATE statement, or in the VALUES list of an INSERT statement. In particular you can't pass ? as a parameter to a stored procedure. ?-style placeholders can NOT be used to pass TEXT or IMAGE data items to the server. This is a limitation of the TDS protocol, not of DBD::Sybase. There is also a performance issue: OpenClient creates stored procedures in tempdb for each <CODE>prepare()</CODE> call that includes ? placeholders. Creating these objects requires updating system tables in the tempdb database, and can therefore create a performance hotspot if a lot of <CODE>prepare()</CODE> statements from multiple clients are executed simultaneously (I have heard that Sybase 11.9.x corrects this hotspot problem.) In general it is better if your application is going to run against Sybase to write ad-hoc stored procedures rather than use the ? placeholders in embedded SQL. It is not possible to retrieve the last IDENTITY value after an insert done with ?-style placeholders. This is a Sybase limitation/bug, not a DBD::Sybase problem. For example, assuming table foo has an identity column: <PRE> $dbh->do("insert foo(col1, col2) values(?, ?)", undef, "string1", "string2"); $sth = $dbh->prepare('select @@identity') || die "Can't prepare the SQL statement: $DBI::errstr"; $sth->execute || die "Can't execute the SQL statement: $DBI::errstr";</PRE> <PRE> #Get the data back. while (my $row = $sth->fetchrow_arrayref()) { print "IDENTITY value = $row->[0]\n"; }</PRE> will always return an identity value of 0, which is obviously incorrect. This behaviour is due to the fact that the handling of ?-style placeholders is implemented using temporary stored procedures in Sybase, and the value of <CODE>@@identity</CODE> is reset when the stored procedure has executed. Using an explicit stored procedure to do the insert and trying to retrieve <CODE>@@identity</CODE> after it has executed results in the same behaviour. Please see the discussion on Dynamic SQL in the OpenClient C Programmer's Guide for details. The guide is available on-line at <A HREF="http://sybooks.sybase.com/">http://sybooks.sybase.com/</A> <HR> <H1><A NAME="bugs">BUGS</A></H1> You can run out of space in the tempdb database if you use a lot of calls with bind variables (ie ?-style placeholders) without closing the connection. On my system, with an 8 MB tempdb database I run out of space after 760 <CODE>prepare()</CODE> statements with ?-parameters. This is because Sybase creates stored procedures for each <CODE>prepare()</CODE> call. So my suggestion is to only use ?-style placeholders if you really need them (i.e. if you are going to execute the same prepared statement multiple times). I have a simple bug tracking database at <A HREF="http://gw.peppler.org/cgi-bin/bug.cgi.">http://gw.peppler.org/cgi-bin/bug.cgi.</A> You can use it to view known problems, or to report new ones. Keep in mind that peppler.org is connected to the net via a K56 dialup line, so it may be slow. <HR> <H1><A NAME="see also">SEE ALSO</A></H1> <A HREF="../../../site/lib/DBI.html">the DBI manpage</A> Sybase OpenClient C manuals. Sybase Transact SQL manuals. <HR> <H1><A NAME="author">AUTHOR</A></H1> DBD::Sybase by Michael Peppler <HR> <H1><A NAME="copyright">COPYRIGHT</A></H1> The DBD::Sybase module is Copyright (c) 1997-1999 Michael Peppler. The DBD::Sybase module is free software; you can redistribute it and/or modify it under the same terms as Perl itself with the exception that it cannot be placed on a CD-ROM or similar media for commercial distribution without the prior approval of the author. <HR> <H1><A NAME="acknowledgements">ACKNOWLEDGEMENTS</A></H1> Tim Bunce for DBI, obviously! See also <A HREF="../../../site/lib/DBI/acknowledgements.html">ACKNOWLEDGEMENTS in the DBI manpage</A>. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%> <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc"> DBD::Sybase - Sybase database driver for the DBI module </TD></TR> </TABLE> </BODY> </HTML>