分類: 網頁

[轉貼]Recordset函數

http://skyfoxmis.pixnet.net/blog/post/25618805-recordset-%E5%87%BD%E6%95%B8

RecordSet.Fields.Count 傳回Recordset中的欄位數。

RecordSet(i).Name 傳回Recordset中第i個欄位的名稱。

RecordSet.RcordCount 傳回Recordset中資料錄的筆數。

RecordSet(i) 傳回RecordSet目前紀錄中的第i個欄位資料。

RecordSet.BookMark 傳回設定的書籍資料以儲存現在紀錄的位置。

RecordSet.AbsolutePostition 將指標移致RecordSet中的某一筆資料上。

RecordSet.PageSize 設定每頁顯示的資料筆數。

RecordSet.PageCount 傳回分頁後的總頁數。

RecordSet.AbsolutePage 傳回目前所在的頁數。

RecordSet("欄位名稱") 傳回指定欄位名稱的資料內容。

RecordSet.BOF 判斷指標是否超過最前面。

RecordSet.EOF 判斷指標是否超過最後面。

RecordSet.MoveFirst 將資料錄指標移至第一筆。

RecordSet.MoveLast 將資料錄指標移至最後一筆。

RecordSet.MoveNext 將資料指標往後移一筆。

RecordSet.MovePrevious 將資料指標往前移一筆。

RecordSet.GetRows 可將Recordset中的資料儲存至陣列中。

RecordSet.AddNew 新增資料至資料表中。

RecordSet.Update更新目前這筆資料。

RecordSet.Delete 刪除目前這筆資料。

RecordSet.Find 尋找資料值。

[轉貼]vmware擴充硬碟大小

http://life.iiietc.ncu.edu.tw/xms/content/show.php?id=23707

 在vmware，如果當初給的虛擬硬碟太小，之後想再擴充硬碟，可以執行以下指令。
cd C:\Program Files\VMware\VMware Workstation\
vmware-vdiskmanager.exe -x 12GB "E:\MyVMW\Windows XP Professional.vmdk"

註：

C:\Program Files\VMware\VMware Workstation\  是安裝vmware的資料夾，如果是使用預設的安裝路徑應該就是這個，如果不是用預設安裝路徑，就請各位同學改成你安裝的路徑。
12GB就是最後硬碟空間大小，而不是希望增加的空間。
E:\MyVMW\Windows XP Professional.vmdk 是存放虛擬硬碟的路徑。

[轉貼]快速開發 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