分類: 網頁

[轉貼]快速開發 PHP快速資料庫表格

利用PHP印出資料表&列出可用資料庫

利用 php 列印 DB 中的 資料表 於螢幕

<?php
  $db=mysql_connect('localhost','root','password') or die('無法連上資料庫伺服器');
  mysql_select_db('test',$db) or die('無法連上資料庫');
  $sql="select * from sale;";
  $result=mysql_query($sql,$db);
  mysql_close($db);
  $no_fields=mysql_num_fields($result);

  echo "<table border=3>";
  while($x=mysql_fetch_row($result)){
     echo "<tr>";
     for($j=0;$j<$no_fields;$j++)
        echo "<td> $x[$j]</td>";
     echo "</tr>";
  }
  echo "</table>";
?>

=======================================================

mysql_list_dbs — 列出 MySQL 伺服器上可用的資料庫

<?php
$link = mysql_connect('localhost','root','east911');
$db_list = mysql_list_dbs($link);
while ($row = mysql_fetch_object($db_list)) {
     echo $row->Database . "<BR>";
}
?>

// mysql_list_tables — 列出資料庫中的表格 
// mysql_list_tables ( string $database [, resource $link_identifier ] )

Asp.Net C# 資料庫連線字串參考


        SqlConnection Conn = new SqlConnection(
            ConfigurationManager.ConnectionStrings["DB"].ConnectionString);
        SqlCommand Cmd = new SqlCommand();
        string strSQL = "Select * From ";
        Cmd.Connection = Conn;
        Cmd.CommandText = strSQL;

        DataTable myDT = new DataTable();
        Conn.Open();
        SqlDataAdapter myDA = new SqlDataAdapter(Cmd);
        myDA.Fill(myDT);
        Cmd.Dispose();
        Conn.Close();
        Conn.Dispose();
        //*************************************************************
        using (SqlConnection oConn = new SqlConnection())
        {
            using (SqlCommand oCmd = new SqlCommand())
            {
                string strSQL1 = "Select * From ";
                Cmd.Connection = oConn;
                Cmd.CommandText = strSQL1;

                DataTable omyDT = new DataTable();
                Conn.Open();
                SqlDataAdapter omyDA = new SqlDataAdapter(oCmd);
                omyDA.Fill(omyDT);
            }
        }

[idar] 班級通訊錄 & Google Map API

[idar] 班級通訊錄 & Google Map API
如果說 能做出結合Facebook的聯外通的 Map 住家定位 這一定是一個相當特別的功能

但是說到這… 扯到了資安的問題 也是要特別注意

不過人脈關聯的網站 日久不衰 這應該是可以預期的 GPS.GIS的應用 應該可以再更上一層樓

VB6 Excel

轉載:http://www.dotblogs.com.tw/yc421206/archive/2009/01/07/6668.aspx

VB6與Excel本是同根生，核心架構都差不多，所以要用VB6讀寫Excel是相當方便的；唯一要特別注意，若 是要由VB控制Excel讀寫大量的資料，千萬不要用迴圈的方式一格一格讀寫，如果你那樣做的話，程式跑起來會很慢很慢，我知道兩種方式

1.引用Excwl Application，並用陣列進行資料寫讀；優 點，相當靈活等於是在操作Excel、效能佳(比不上OLEDB)。缺點，需要花時間瞭解Excel的物件模型

開啟Excel→按ALT+F11→按F1→此時會出現說明，若沒有出現表示沒安裝，快去裝吧→按Microsoft Excel 物件模型。就可以查詢Excel模型

2.引用OLEDB進行資料寫入讀出；優點，此法讀 寫資料是最快，效能最佳。缺點，但不靈活，有可能你不單單只是要讀寫資料

下圖為Excel模型

1

接下來就直接進入主題，

第一步：前期綁定 Excel，更方便的操作Excel，不用背模型語法(會有版本的問題，若擔心版本問題請採用後期綁定)

2 3

第二步：引用Excel

  '#一部電腦僅執行一個Excel Application, 就算中突開啟Excel也不會影響程式執行

  '#在工作管理員中只會看見一個EXCEL.exe在執行，不會浪費電腦資源

  '#引用正在執行的Excel Application

  Set xlApp = GetObject(, "Excel.Application")

  '#若發生錯誤表示電腦沒有Excel正在執行，需重新建立一個新的應用程式

  If Err <> 0 Then

    Err.Clear

    '#執行一個新的Excel Application

    Set xlApp = CreateObject("Excel.Application")

    If Err <> 0 Then

      MsgBox "電腦沒有安裝Excel"

      End

    End If

  End If

 

第三步：讀寫Excel

  '#Excel活頁簿設定

  '===================================================

  '打開已經存在的EXCEL工件簿文件

  Set xlBook = xlApp.Workbooks.Open(App.Path & "\" & "Sample.xlt")

  '停用警告訊息

  xlApp.DisplayAlerts = False

  '設置EXCEL對象可見

  xlApp.Visible = True

  '設定活頁簿為焦點

  xlBook.Activate

  '顯示第一個子視窗

  xlBook.Parent.Windows(1).Visible = True

  '引用第一個工作表

  Set xlSheet = xlBook.Worksheets(1)

  '設定工作表為焦點

  xlSheet.Activate

 

  '===================================================

  '#用Array寫資料至EXCEL

  Dim myRows As Long, myCols As Long

 

  myRows = UBound(DataArray, 1)

  myCols = UBound(DataArray, 2)

  '選擇儲存格範圍

  xlSheet.Range(cells(2, 1), cells(myCols, myRows)).Select

  '陣列一次寫入Excel

  xlSheet.Range(cells(2, 1), cells(myCols, myRows)).Value = xlApp.Transpose(DataArray)

  '呼叫Excel巨集

  xlApp.Run ("Sample.xlt" & "!Caculater")

  '另存新檔

  xlBook.SaveAs App.Path & "\" & "TETS.XLS"

  '關閉EXCEL

  xlApp.Quit

 

Excel 的功能太多了，無法詳細敘述，請參考之前在網路上整理的EXCEL VBA語法[VBA] Excel VBA 指令。

範例下載：VB6讀 EXCEL.rar

3D 互動 展示

3D 展示 互動

 

大侑貿易有限公司

 

(請點選 運轉 即可看到) – 這東西 跟我先前同學給我看的 初音很類似 不過當初沒看到互動 就沒有太注意下去

 

製作者是

EKI (網繹數位科技)

以上應該是我們專題能用上的部分

以下 是我其餘找到的一些 相關網站資訊

請看看 尤其交大的 做的還不錯

又開了個眼界^^

交大的網站 原來這麼的Cool害我的3D學校 整個有點小遜色呢… 可以加油看看^^

這個才叫做找資料…原來這種東西叫做

3D互動展示

關鍵字的拼法 還真的是很重要…

至於3D Flash 也是解決的方法之一 不過似乎 不多人用

其餘相關軟體 知識+ http://tw.knowledge.yahoo.com/question/question?qid=1609122908312

3D Flash 知識+ http://tw.knowledge.yahoo.com/question/question?qid=1609071502066

SQL 數字排序

SQL排序不就是order by 怎麼還會有數字排序?

當然就是有問題，還真是怪呢！廢話不多說，看個範例

假設有一database 有一欄數字的欄位number(型態:varchar)，1,-2,2,10然後對這欄的數字作排序

SQL語法：

select mumber from table order by mumber

結果：

1

10

-2

2

怎麼變成這樣，不是我要的答案啦！所以就要用cast啦！

SQL語法：

select mumber from table order by cast(mumber as unsigned)

結果：

1

-2

2

10

呃～還是不一樣！因為unsigned是不包含負號下去排序，所以改成signed

SQL語法：

select mumber from table order by cast(mumber as signed)

結果：

-2

1

2

10

[PHP]PHP做圖 – 長條圖

範例位址:點我連結

修改出處:http://big5.webasp.net/article/7/6036.htm

增加的功能是 破千的數長度下降

<? $b = array(9,1500,500,1250,300,200,775,1230,550); ?>

<!–規則: (組數,數值1,數值2…) –>

<html>

<head>

<title>直 條圖製作</title>

<style>

<!–

td{ font-size:9pt }

–>

</style>

</head>

<body>

<?

$t=1;

$tt=1;

for($i=1;$i<$b[0];$i++) {

 for($j=1;$j<10;$j++) {

  if(($b[$i]/$tt)/10>100 and $tt*10>$t and $b[$i]!=0){

   $t=$t*10;

   $tt=$tt*10;

  }

 }

}

?>

<table border=0>

 <tr><td colspan="<?echo $b[0];?>"><p align="center">(1)直條圖</p></td></tr>

 <tr valign="bottom">

    <?for($i=1;$i<$b[0];$i++) { ?><td align="center">

      <table height="<?echo $b[$i]/$t;?>" border=0>(2)<?echo $b[$i];?>

        <tr>

          <td bgcolor="#3F7F9F" width="40"></td>(3)點

        </tr>

      </table><br>

<font color="#3F7F9F"><?echo $b[$i];?></font>(4)

    </td><? } ?>

  </tr>

</table>

</body>

</html>

Access 遮罩

<style>

</style>

輸入遮罩使用符號：

符號

意義

選擇性輸入

範例

顯示結果

0

只能輸入數字0-9

是

000

123

#

可輸入數字0-9或空白，

且可輸入「+」與「-」，

但若輸入遮罩的符號不被儲存，

則儲存時空白會被取消

否

####

+23

9

可輸入數字0-9或空白，

但不可輸入「+」與「-」

否

99\-999

12-3

L

可輸入字母A-Z

是

LL\.0000

NO.0012

?

可輸入字母A-Z

否

???\.0000

NO.0012

A

可輸入字母A-Z與數字0-9

是

AAAA

Z123

a

可輸入字母A-Z與數字0-9

否

aaaa

z123

&

可輸入任何字元與空白

是

&&&&&&

A-021

&L000000

第B123456

C

可輸入任何字元與空白

否

CCCCC

A-021

\

顯示後面這個字元

　

00\?00

12?12

. , :
– /

小數點定位與千位、

日期及時間的分隔符號，

實際使用的字元，

將以windows中控制台的

地區及語言選項對話盒

內地區選項頁之設定

　

　

　

>

強迫右邊的字母變大寫

　

>????

Html

<

強迫右邊的字母變小寫

　

<????

html

!

使輸入遮罩從右到左顯示，

而不從左到右顯示。

鍵入遮罩中的字元

始終從左到右填滿遮罩。

可在入遮罩的任何地方

加入驚嘆號

　

!????

__jo

↑

輸入二個空白

輸入遮罩的語法與自訂格式語法類似，一樣是以";"符號分隔區段。

      區段一;區段二; 區段三

區段一用於定義輸入遮罩。

區段二的值有兩個：1與0，1表示輸入遮罩的符號與輸入的資料一併儲存，0表示只存儲輸入的字元。

若不設定，表示只儲存輸入的字元。

區段三表示要用什麼符號做定位器字元，若未輸入則沒有定位器字元

常見的輸入遮罩格式設定：

輸入遮罩設定

適用情形

輸入值

儲存值

>L000000000

身份證字號

B123456789

B123456789

\(00#\)000#\-000#;0;*

通用的電話號碼輸入遮罩

(035)123-456

(035)123-456

(07)123-4567

(07)123-4567

(02)2123-4567

(02)2123-4567

\(00#\)000#\-000#

通用的電話號碼輸入遮罩，

但輸入時空白會被後面的數字遞補

(035)123-456

03123456(註)

(07)123-4567

(07)1234567(註)

(02)2123-4567

021234567(註)

&L000000

運人身份證字號

地B123456

地B123456

"NO".0000

產品編號

NO.0012

0012(註）

註：此為資料表的實際儲存，非顯示值，顯示值將包含輸入遮罩使用的格式符號