dbi

3熱度

1回答

我正在嘗試編寫一個將在多個服務器上運行但共享單個數據庫以進行金融交易的Web應用程序。簡而言之，我想將資金從帳戶A轉移到B.但是可能會有多個請求從同一個帳戶轉帳。餘額永遠不會爲負數，因此我決定使用SELECT FOR UPDATE來獲取餘額以鎖定行。我使用JDBI用於向數據庫的連接：http://jdbi.org/ 代碼流程如下：控制器： DBI dbi = new DBI(datasou

-3熱度

2回答

無法解析代碼中的日期和流程是不會去while循環

#! /usr/bin/perl use DBI; use strict; use Data::Dumper; my $dbh = DBI->connect("DBI:DB2:xxx",'xxx','xxx',{ RaiseError => 0, AutoCommit => 1 }) or die ("Could not connect to database :".DBI->err

1熱度

1回答

如何將Perl DBI模塊的所有依賴關係添加到PAR打包器歸檔文件中

我創建了一個使用DBI包連接到MySQL數據庫的Perl腳本。爲了使它在哪裏不一定是全部依賴安裝，我創建一個獨立的文件，其中包括與Par Packer (pp)所有依賴使用以下命令其他Linux平臺上運行： pp -c -x -o myscript myscript.pl 的獨立文件正常工作的機器，其中上它是在其他機器上創建的，但是在執行DBI - > connect（）的行中出現以下錯誤。

0熱度

1回答

DBI得到的查詢問題時，字符串包含R中

我使用發送此查詢到MySQL數據庫UTF-8字符以下功能： loadDataBudget <- function(korisnik, razinaLabel) { lapply(dbListConnections(dbDriver(drv = "MySQL")), dbDisconnect) # Connect to the database db <- dbConn

1熱度

1回答

如何從R的sqlInterpolate函數中刪除嵌入的引號？

我正嘗試使用DBI::sqlInterpolate函數生成一堆SQL腳本，但隨着腳本嵌入與R變量一起返回的引號，會不斷獲取SQL錯誤。這裏是代碼： > x<-'state_transtions' > y<-'transition_time' > script<-"select * from ?x WHERE DATE(?y)> DATE_SUB(NOW(), INTERVAL 1 DAY)"

-1熱度

1回答

Perl5 DBI Mysql：獲取last_insert_id的可靠方法

在我的代碼中，我使用database->last_insert_id(undef,undef,undef,"id");來獲取自動增量主鍵。這工作99.99％的時間。但偶爾會返回0值。在這種情況下，使用與INSERT語句的值類似的WHERE子句運行select將顯示insert成功。指示last_insert_id方法未能獲得正確的數據。這是一個已知的問題已知的修復？或者我應該跟蹤每次調用las

0熱度

2回答

如何檢查Perl中fetchall_arrayref方法返回的行？

我想明白下面的代碼段，特別是發生了什麼事在4號線，5和6 我明白大部分，但似乎無法理解什麼正在符合@$r != 1;完成4（不@$r表示返回的行數？），同樣做什麼用@$r[0]發生在線路5和@$rr[0]在第6行： 1 my $sth = $dbh->prepare(" a select statement "); 2 $sth->execute(); 3 my $r = $sth->fetc

0熱度

1回答

DBIx :: Class和DBIx :: Abstract之間的區別？

我對perl非常陌生，我正在通過Perl ORM，我遇到了DBIx :: Class和DBIx :: Abstract，從我推斷他們都似乎是ORM。我有什麼不同嗎？謝謝

0熱度

1回答

讀從MySQL數據庫中的表爲R

我試圖用DBI包中的R讀取從我的數據庫表： mydb = dbConnect(MySQL(), user='root', password='*******', dbname='powercurve', host='127.0.0.1') dbReadTable(mydb,"3.4m140sco") 但顯然表名稱中的R是不允許的，因爲我得到了錯誤： Error in .local(conn

1熱度

1回答

如何在發生異常時訪問數據庫數據？

我有下面的代碼： my $savepoint = $c->db->txn_scope_guard; return $self->render('subnet/create', error => [ create => [email protected] ], servers => $self->rows('Server')->lookup, ) unless $subnet = ev