No Money No Honey » 資料庫 http://blog.infinity.idv.tw Just Another Beginning Sat, 28 Jan 2012 18:25:36 +0000 http://wordpress.org/?v=2.8.4 en hourly 1 DELPHI 7 使用ADO元件寫入資料庫強制四捨五入小數到第四位問題 http://blog.infinity.idv.tw/index.php/2010/12/09/delphi-7-%e4%bd%bf%e7%94%a8ado%e5%85%83%e4%bb%b6%e5%af%ab%e5%85%a5%e8%b3%87%e6%96%99%e5%ba%ab%e5%bc%b7%e5%88%b6%e5%9b%9b%e6%8d%a8%e4%ba%94%e5%85%a5%e5%b0%8f%e6%95%b8%e5%88%b0%e7%ac%ac%e5%9b%9b/ http://blog.infinity.idv.tw/index.php/2010/12/09/delphi-7-%e4%bd%bf%e7%94%a8ado%e5%85%83%e4%bb%b6%e5%af%ab%e5%85%a5%e8%b3%87%e6%96%99%e5%ba%ab%e5%bc%b7%e5%88%b6%e5%9b%9b%e6%8d%a8%e4%ba%94%e5%85%a5%e5%b0%8f%e6%95%b8%e5%88%b0%e7%ac%ac%e5%9b%9b/#comments Thu, 09 Dec 2010 10:14:16 +0000 Roger Lin http://blog.infinity.idv.tw/index.php/2010/12/09/delphi-7-%e4%bd%bf%e7%94%a8ado%e5%85%83%e4%bb%b6%e5%af%ab%e5%85%a5%e8%b3%87%e6%96%99%e5%ba%ab%e5%bc%b7%e5%88%b6%e5%9b%9b%e6%8d%a8%e4%ba%94%e5%85%a5%e5%b0%8f%e6%95%b8%e5%88%b0%e7%ac%ac%e5%9b%9b/ DELPHI 7 使用ADO元件寫入資料庫強制四捨五入小數到第四位問題

parameters.parambyname(’tmpprice’).datatype：=ftFloat;   <==寫入資料前先將欄位設定成 Float 型態即可解決此問題。

參考:http://jzinfo.javaeye.com/blog/432853

var       adoquery1:Tadoquery;   begin       adoquery1:=Tadoquery.create(nil);       try          if not DM.adonconnection1.connected then              DM.adoconnection1.connected:=true;          adoquery1.connection:=DM.adoconnection1;          adoquery1.enableBCD:=False;       //禁用bcd类型          with adoquery1 do          begin              close;              sql.clear;              sql.add(’insert into materialInfo values(:tmppno,:tmpvendor,:tmpdesc,:tmpprice)’);              parameters.parambyname(’tmppno’).value:=trim(edit1.text);              parameters.parambyname(’tmpvendor’).value:=trim(edit2.text);              parameters.parambyname(’tmpdesc’).value:=trim(edit3.text);              parameters.parambyname(’tmpprice’).datatype：=ftFloat;       //设置下数据类型              parameters.parambyname(’tmpprice’).value:=trim(edit4.text);              execsql;          end;   [...]]]> DELPHI 7 使用ADO元件寫入資料庫強制四捨五入小數到第四位問題

parameters.parambyname(’tmpprice’).datatype：=ftFloat;   <==寫入資料前先將欄位設定成 Float 型態即可解決此問題。

參考:http://jzinfo.javaeye.com/blog/432853

  1. var  
  2.     adoquery1:Tadoquery;  
  3. begin  
  4.     adoquery1:=Tadoquery.create(nil);  
  5.     try  
  6.        if not DM.adonconnection1.connected then  
  7.            DM.adoconnection1.connected:=true;  
  8.        adoquery1.connection:=DM.adoconnection1;  
  9.        adoquery1.enableBCD:=False;       //禁用bcd类型  
  10.        with adoquery1 do  
  11.        begin  
  12.            close;  
  13.            sql.clear;  
  14.            sql.add(’insert into materialInfo values(:tmppno,:tmpvendor,:tmpdesc,:tmpprice)’);  
  15.            parameters.parambyname(’tmppno’).value:=trim(edit1.text);  
  16.            parameters.parambyname(’tmpvendor’).value:=trim(edit2.text);  
  17.            parameters.parambyname(’tmpdesc’).value:=trim(edit3.text);  
  18.            parameters.parambyname(’tmpprice’).datatype：=ftFloat;       //设置下数据类型  
  19.            parameters.parambyname(’tmpprice’).value:=trim(edit4.text);  
  20.            execsql;  
  21.        end;  
  22.     finally  
  23.         adoquery1.free;  
  24.     end;  
  25. end; 
]]> http://blog.infinity.idv.tw/index.php/2010/12/09/delphi-7-%e4%bd%bf%e7%94%a8ado%e5%85%83%e4%bb%b6%e5%af%ab%e5%85%a5%e8%b3%87%e6%96%99%e5%ba%ab%e5%bc%b7%e5%88%b6%e5%9b%9b%e6%8d%a8%e4%ba%94%e5%85%a5%e5%b0%8f%e6%95%b8%e5%88%b0%e7%ac%ac%e5%9b%9b/feed/ 0 DELPHI使用ADOQuery的動態參數注意事項 http://blog.infinity.idv.tw/index.php/2009/12/01/delphi%e4%bd%bf%e7%94%a8adoquery%e7%9a%84%e5%8b%95%e6%85%8b%e5%8f%83%e6%95%b8%e6%b3%a8%e6%84%8f%e4%ba%8b%e9%a0%85/ http://blog.infinity.idv.tw/index.php/2009/12/01/delphi%e4%bd%bf%e7%94%a8adoquery%e7%9a%84%e5%8b%95%e6%85%8b%e5%8f%83%e6%95%b8%e6%b3%a8%e6%84%8f%e4%ba%8b%e9%a0%85/#comments Tue, 01 Dec 2009 09:42:16 +0000 Roger Lin http://blog.infinity.idv.tw/index.php/2009/12/01/delphi%e4%bd%bf%e7%94%a8adoquery%e7%9a%84%e5%8b%95%e6%85%8b%e5%8f%83%e6%95%b8%e6%b3%a8%e6%84%8f%e4%ba%8b%e9%a0%85/ WGLProcstat2Query.Close; WGLProcstat2Query.SQL.Clear; WGLProcstat2Query.SQL.Add(’select * from dbo.gdsinfomt, dbo.procstat’); WGLProcstat2Query.SQL.Add(’where ((dbo.gdsinfomt.gdsno=:E_gdsno) and (dbo.procstat.gdsno=:E_gdsno))’); //Roger 20091201 動態參數若使用相同的參數名稱兩個以上，請改用陣列方式，並把每個參數都當成獨立參數 WGLProcstat2Query.Parameters[0].Value:= Trim(GdsNoEdit.Text); WGLProcstat2Query.Parameters[1].Value:= Trim(GdsNoEdit.Text); WGLProcstat2Query.Open; [...]]]> WGLProcstat2Query.Close;
WGLProcstat2Query.SQL.Clear;
WGLProcstat2Query.SQL.Add(’select * from dbo.gdsinfomt, dbo.procstat’);
WGLProcstat2Query.SQL.Add(’where ((dbo.gdsinfomt.gdsno=:E_gdsno) and (dbo.procstat.gdsno=:E_gdsno))’);
//Roger 20091201 動態參數若使用相同的參數名稱兩個以上，請改用陣列方式，並把每個參數都當成獨立參數
WGLProcstat2Query.Parameters[0].Value:= Trim(GdsNoEdit.Text);
WGLProcstat2Query.Parameters[1].Value:= Trim(GdsNoEdit.Text);
WGLProcstat2Query.Open;
WGLProcstat2Query.RecordCount;

上面的例子，若有使用動態 SQL 參數 :E_gdsno 相同的參數兩個以上：
請改用陣列方式，並把每個參數都當成獨立參數給值才行

]]> http://blog.infinity.idv.tw/index.php/2009/12/01/delphi%e4%bd%bf%e7%94%a8adoquery%e7%9a%84%e5%8b%95%e6%85%8b%e5%8f%83%e6%95%b8%e6%b3%a8%e6%84%8f%e4%ba%8b%e9%a0%85/feed/ 0 MySQL 的備份及復原 http://blog.infinity.idv.tw/index.php/2009/10/23/mysql-%e7%9a%84%e5%82%99%e4%bb%bd%e5%8f%8a%e5%be%a9%e5%8e%9f/ http://blog.infinity.idv.tw/index.php/2009/10/23/mysql-%e7%9a%84%e5%82%99%e4%bb%bd%e5%8f%8a%e5%be%a9%e5%8e%9f/#comments Fri, 23 Oct 2009 05:46:56 +0000 Roger Lin http://blog.infinity.idv.tw/index.php/2009/10/23/mysql-%e7%9a%84%e5%82%99%e4%bb%bd%e5%8f%8a%e5%be%a9%e5%8e%9f/ 要備份 MySQL 資料庫主要分為兩個方法，一是將資料庫目錄完整備份：二是使用 MySQL 內建的 mysqldump 程式。

備份資料庫目錄

MySQL 預設的儲存目錄在 /var/lib/mysql 內容，底下會有以資料庫名稱的目錄，例如 mydb 目錄便應該是 mydb 資料庫的資料。
如果 MySQL 正在運行，請先停止 MySQL，原因是可能會有資料未完全寫入，而 MySQL 會 lock 在使用中的 DB 檔案。

01 /etc/rc.d/init.d/mysqld stop
02 cd /var/lib/mysql/
03 tar zxcf mydb_backup.tgz mydb
04 /etc/rc.d/init.d/mysqld start

以上指令會先停止 MySQL，然後把 mydb 資料庫製作一個 taz 檔的備份，並儲存到 mydb_backup.tgz。
在使用以上指令時，請根據個別系統的設定作出修改。
好了，以上就麼 3 句指令就完成備份了，如果不幸的事情發生了，資料庫發生錯誤而要復原資料，可使用以下指令：

01 /etc/rc.d/init.d/mysqld stop
02 cd /var/lib/mysql/
03 mv mydb mydb_error
04 tar zxvf mydb_backup.tgz
05 /etc/rc.d/init.d/mysqld start

以上指令是先把 /var/lib/mysql/mydb 移到 /var/lib/mysql/mydb_error，然後將原先製作的備份檔解壓到 /var/lib/mysql/mydb。

mysqldump

雖然以上方法十分簡單，但有一個問題存在，那就是在備份及復原時均需停止 MySQL 的運作，這樣對於實際應用十分不便。再者，這樣備份出來的檔案，如果在相同版本的 MySQL Server 應該沒有問題，但移到版本不同的 Server 則不一定可以成功復原。

因為有以上的問題，MySQL 已經內建了備份工具，它就是 mysqldump。
mysqldump 的備份方法是將資料庫內的每個資料表結構及每筆資料產生 SQL 語句，然後存到文字檔。而且它可以自訂每一個資料表一個檔案，以及將資料表結構及資料分開儲存，以下是使用例子：

01 mysqldump --user=root -p mydb > /backup/mydb.sql

以上指令會使用 mysqldump 將 mydb 備份到 /backup/mydb.sql，在輸入指令後，需要輸入 MySQL 的 root 密碼。
至於復原資料同樣簡單，只要一句指令便完成：

01 mysqldump --user=root -p mydb < /backup/mydb.sql

以上指令會將 /backup/mydb.sql 備份檔復原到 mydb 裡面。如果你的 MySQL Server 不止一個資料庫，希望可以一次過將所有資料庫備份起來，可以寫一個簡單的 shell script 完成，又或者使用以下指令：

01 mysqldump --user=root -p --all-databases > /backup/mysql.sql

這個 –all-databases 代表所有資料庫，這樣 mysqldump 便會將所有資料庫備份到 /backup/mysql.sql。
====================================================
歡迎轉載，但轉載時請保留此宣告，不得作為商業用途
作者: Sam Tang <admin{at}phpini{dot}com>
來源網站: http://www.phpdc.com/

]]> http://blog.infinity.idv.tw/index.php/2009/10/23/mysql-%e7%9a%84%e5%82%99%e4%bb%bd%e5%8f%8a%e5%be%a9%e5%8e%9f/feed/ 0 使用DELPHI連線ACCESS資料庫 http://blog.infinity.idv.tw/index.php/2009/10/09/%e4%bd%bf%e7%94%a8delphi%e9%80%a3%e7%b7%9aaccess%e8%b3%87%e6%96%99%e5%ba%ab/ http://blog.infinity.idv.tw/index.php/2009/10/09/%e4%bd%bf%e7%94%a8delphi%e9%80%a3%e7%b7%9aaccess%e8%b3%87%e6%96%99%e5%ba%ab/#comments Fri, 09 Oct 2009 08:38:05 +0000 Roger Lin http://blog.infinity.idv.tw/index.php/2009/10/09/%e4%bd%bf%e7%94%a8delphi%e9%80%a3%e7%b7%9aaccess%e8%b3%87%e6%96%99%e5%ba%ab/ 建立ACCESS資料庫

檔名123.mdb，資料表格如下：

隨便手動給兩三筆測試資料。

 

將資料庫設定密碼123：

須使用開啟舊檔方式開起獨占模式，才可設定密碼。

開啟DELPHI，在Form表單上拉 TADOConnection 元件，並點選ConnectionString設定連線資料

選 Jet 4.0 OLE DB Provider

  資料庫可以設檔名即可，不用設定目錄，但是必需要跟應用程式執行檔放在同個目錄下。

設定連線密碼。

可按測試連線，若可正常連線即可看到成訊息。

 

Delphi簡易連線測試：

拉入元件

DBGrid1:TDBGrid

ADOQuery1:TADOQuery

DataSource1:TDataSource

 

設定ADOQuery1：

將Connection屬性設為ADOConnection1(TADOConnection元件)

 

設定DataSource1：

將DataSet屬性設為ADOQuery1

 

設定DBGrid1資料表：

點選DBGrid1元件，將DataSource屬性設定為DataSource1

 

程式碼撰寫測試連線資料庫：

讓程式視窗建立時就順便執行SQL查詢

procedure TForm1.FormCreate(Sender: TObject); begin   ADOQuery1.Close;   ADOQuery1.SQL.Clear;   ADOQuery1.SQL.Add(’select * from userdata’);   ADOQuery1.Open; end;

 

執行程式會要求輸入資料庫帳號密碼的問題：

將ADOConnection1 [...]]]> 建立ACCESS資料庫

檔名123.mdb，資料表格如下：

44

隨便手動給兩三筆測試資料。

43

 

將資料庫設定密碼123：

須使用開啟舊檔方式開起獨占模式，才可設定密碼。

3

2

5

開啟DELPHI，在Form表單上拉 TADOConnection 元件，並點選ConnectionString設定連線資料

8

8

選 Jet 4.0 OLE DB Provider

9 
資料庫可以設檔名即可，不用設定目錄，但是必需要跟應用程式執行檔放在同個目錄下。

10

設定連線密碼。

41

可按測試連線，若可正常連線即可看到成訊息。

12

 

Delphi簡易連線測試：

拉入元件

DBGrid1:TDBGrid

ADOQuery1:TADOQuery

DataSource1:TDataSource

 

設定ADOQuery1：

將Connection屬性設為ADOConnection1(TADOConnection元件)

22

 

設定DataSource1：

將DataSet屬性設為ADOQuery1

23

 

設定DBGrid1資料表：

點選DBGrid1元件，將DataSource屬性設定為DataSource1

24

 

程式碼撰寫測試連線資料庫：

讓程式視窗建立時就順便執行SQL查詢

procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(’select * from userdata’);
  ADOQuery1.Open;
end;

 

執行程式會要求輸入資料庫帳號密碼的問題：

31

將ADOConnection1 的LoginPrompt屬性改False即不會再要求輸入帳密，會直接使用TADOConnection元件內設定的帳密連線。

32

這樣再執行程式時，就可直接看到結果了：

45

SQL 別名語法

ADOQuery1.SQL.Add(’select Id as 序號, Username as 姓名, Userpw as 密碼 from userdata’);

46

有關SQL語法可到 SQL語法教學 查看。

]]> http://blog.infinity.idv.tw/index.php/2009/10/09/%e4%bd%bf%e7%94%a8delphi%e9%80%a3%e7%b7%9aaccess%e8%b3%87%e6%96%99%e5%ba%ab/feed/ 0