Windows Perl Scripting Forums » Tag: database

Windows Perl Scripting Forums » Tag: database - Recent Posts http://www.roth.net/forums/ Windows Perl Scripting Forums » Tag: database - Recent Posts en Fri, 24 May 2013 08:03:37 +0000 zhu zhu hamster on "DBI permissions problem" http://www.roth.net/forums/topic.php?id=15#post-639 Tue, 01 Jun 2010 23:56:59 +0000 zhu zhu hamster 639@http://www.roth.net/forums/ you installed it by hand? i'am wondering if the make test worked for you? if a test fails and i think this is no problem, i usually just use (with cpanp) skiptest 1 and so the tests are not performed and often the module installs fine. Dave on "DBI-Conenct Problem" http://www.roth.net/forums/topic.php?id=78#post-210 Sun, 21 Jan 2007 13:33:24 +0000 Dave 210@http://www.roth.net/forums/ I do not have very much experience with DBI but of the experience I do have the syntax you used seems correct. I use something akin to: <code> use DBI; my $server ='foo_server'; my $db ='my_database_name'; my $usrnme ='my_user_name'; my $pwd ='my_password'; my $hDB = DBI->connect("dbi:mysql:$db:$server", $usrnme, $pwd) || die $DBI::errstr; my $query="SELECT * FROM ping_lab"; my $sth = $dbh->prepare($query); $sth->execute(); while (my $row = $sth->fetchrow_arrayref) {     print join("\t", @$row),"\n"; } </code> Have you tried changing the code your host provider gave you? shaffiahmed on "DBI-Conenct Problem" http://www.roth.net/forums/topic.php?id=78#post-184 Sat, 20 Jan 2007 08:22:01 +0000 shaffiahmed 184@http://www.roth.net/forums/ I have a website which is already working. I have decided to chnage my hosting company. But i am having a problem getting my perl script working. If you click on the link below it displays a list of all proeprties: <a href="http://www.goarealestates.com/cgi-bin/housing.pl?search=1&amp;category=Buy&;submit=Go" rel="nofollow">http://www.goarealestates.com/cgi-bin/housing.pl?search=1&amp;category=Buy&;submit=Go</a>!!! Within my script file, i have a statement as below which connects to the database $dbh = db_connect($database,$user,$password); And the function db_connect() is as below:- sub db_connect { ($database,$user,$password) = @_; my $h = DBI->connect("DBI:mysql:$database", $user, $password) or printError("Unable to connect to $database" . $DBI::errstr); return $h; } I have also got a db.cfg file which is as below # script config file $database = "shafi"; $user = "shafi"; $password ="shafi"; 1; But the present hosting provider has given an example of how to connect to the mysql database as below:- ================================================= #!/usr/bin/perl use DBI; print "Content-type:text/html\n\n"; $db_handle = DBI->connect("dbi:mysql:database=dbxxxxxxxx;host=dbxxx.oneandone.co.uk;user=dboxxxxxxxx;password=xxxxxxxx") or die "Couldn't connect to database: $DBI::errstr\n"; $sql = "SELECT * FROM puretest"; $statement = $db_handle->prepare($sql) or die "Couldn't prepare query '$sql': $DBI::errstr\n"; $statement->execute() or die "Couldn't execute query '$sql': $DBI::errstr\n"; while ($row_ref = $statement->fetchrow_hashref()) { print "Name $row_ref->{name} has email address::$row_ref->{email}. "; } $db_handle->disconnect(); =================================================== The DBI->connect statement is different and deosnt seem to work. Could someone tell me how my function should change to adapt to this hsoting provider. keithh on "Win32::ODBC" http://www.roth.net/forums/topic.php?id=4#post-97 Fri, 27 Oct 2006 01:57:55 +0000 keithh 97@http://www.roth.net/forums/ I've used the Win32::ODBC in the past with no issues. But now I use ADO via the Win32 OLE Ive added some snippets below to give the general idea. It works really well for me. e.g. use Win32::OLE; use Win32::OLE::Const 'Microsoft ActiveX Data Objects'; use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); use MIME::Lite; use Net::SMTP; use File::Copy; use File::Path; #my $ConnStr="Provider=SQLNCLI.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DEDS;Data Source=dambuster" ; ######## Some code to pull from a database my $Statement = "SELECT * FROM FTP_Pull_list WHERE Active ='1'"; my $RS; if(! ($RS = $Conn->Execute($Statement))) { #print Win32::OLE->LastError() ; errorlog("Database Execute Error", Win32::OLE->LastError(),3, __LINE__); exit;; } while (! $RS->EOF) { $pull_list_name{$RS->Fields("Name")->value}=$RS->Fields("email")->value; $pull_list_ftp_server{$RS->Fields("Name")->value}=$RS->Fields("FTP_Server")->value; $pull_list_password{$RS->Fields("Name")->value}= $RS->Fields("password")->value; $pull_list_userid{$RS->Fields("Name")->value} = $RS->Fields("Userid")->value; $pull_list_directory{$RS->Fields("Name")->value}=$RS->Fields("directory")->value; $files_sendto{$RS->Fields("Name")->value}=$RS->Fields("sendto")->value; $files_ext{$RS->Fields("Name")->value}=$RS->Fields("ext_to_get")->value; $zipname{$RS->Fields("Name")->value}=$RS->Fields("zip_name")->value; $RS->MoveNext; } $RS->Close; $Conn->Close; } msperl on "DBI permissions problem" http://www.roth.net/forums/topic.php?id=15#post-36 Fri, 11 Aug 2006 01:36:11 +0000 msperl 36@http://www.roth.net/forums/ Alot of coders use the integer value of time(). You can then pass that into localtime(). Set up your SQL table to accept the date stamp as an 32 bit integer then in your insert command pass in the result of time(). Since it is an integer it is easy for SQL to index it. In a SQL query you can get the date as a string by using the function FROM_UNIXTIME(). akearins on "DBI permissions problem" http://www.roth.net/forums/topic.php?id=15#post-35 Thu, 10 Aug 2006 21:33:16 +0000 akearins 35@http://www.roth.net/forums/ thanks for all your help , found fix for it.Problem connecting with password Ran command mysql -u root -p test But still one slight problem. I have added tp previous code to insert the output from the file directly intoa table in MqSql database. But I have a problem with the date format. My SQl is using Type dateTime (YYY-MM-DD hh:mm:ss) but was using my $date = localtime (Wed Jul 26 10:52:46 2006) in perl script. is there a date format I can use in perl to be the same as format I am suing in MySql dbase. Need both to be the same as getting errors when running script. akearins on "DBI permissions problem" http://www.roth.net/forums/topic.php?id=15#post-34 Thu, 10 Aug 2006 18:41:42 +0000 akearins 34@http://www.roth.net/forums/ how do i check that Dave on "DBI permissions problem" http://www.roth.net/forums/topic.php?id=15#post-33 Thu, 10 Aug 2006 12:51:14 +0000 Dave 33@http://www.roth.net/forums/ I tried your code on my system and it worked just fine. Are you sure that the server is listening to the default port (I think it is 3306)? If not then make sure that you specify the port number. akearins on "DBI permissions problem" http://www.roth.net/forums/topic.php?id=15#post-32 Thu, 10 Aug 2006 04:18:38 +0000 akearins 32@http://www.roth.net/forums/ Running it from a command line now for testing Dave on "DBI permissions problem" http://www.roth.net/forums/topic.php?id=15#post-31 Thu, 10 Aug 2006 02:08:34 +0000 Dave 31@http://www.roth.net/forums/ How are you running the script? Is it on a command line or from a service or web page? akearins on "DBI permissions problem" http://www.roth.net/forums/topic.php?id=15#post-30 Thu, 10 Aug 2006 02:02:53 +0000 akearins 30@http://www.roth.net/forums/ getting the following error when I run the code below: DBI connect('db_name:server_name','test'.........) failed:Access denied for user 'test'@server_name(using passowrd NO)at.....(path to database). When i run MySql command line client I enetr the password and no problem looking at databases, tables etc. or writing queries. But when i run teh script bang,...... Is there any way i can check to see if I have permisiosn to use database Any help greatful use strict; use DBI; my($query); my $server ='server_name'; my $db ='db_name'; my $usrnme ='test'; my $pwd ='21'; my $dbh = DBI->connect("dbi:mysql:$db:$server", $usrnme, $pwd) or die $DBI::errstr; my $query="SELECT * FROM ping_lab"; my $sth = $dbh->prepare($query); $sth->execute(); while (my $row = $sth->fetchrow_arrayref) { print join("\t", @$row),"\n"; } $dbh->disconnect; UNKILBEEG on "Win32::ODBC" http://www.roth.net/forums/topic.php?id=4#post-6 Wed, 19 Jul 2006 14:36:14 +0000 UNKILBEEG 6@http://www.roth.net/forums/ Is the Win32::ODBC package still available? I tried to install it via the ActiveState PPM script and the installation bombed. I downloaded the most recent version I could find from the ftp site, <a href="ftp://ftp.roth.net/pub/ntperl" rel="nofollow">ftp://ftp.roth.net/pub/ntperl</a>, but even that is quite old. My version of Active State is Build 817, and the only documentation I found for installing Win32::ODBC assumed a build of approximately 300. I've played with the install and have had some luck getting it installed, but should I trust it with a Perl version so drastically different than the one it was apparently built for?