[轉貼]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 是存放虛擬硬碟的路徑。

[轉貼] 讓工作列上的按鈕不顯示最近開啟的項目(Windows 7)

http://www.soft4fun.net/tips/%E8%AE%93%E5%B7%A5%E4%BD%9C%E5%88%97%E4%B8%8A%E7%9A%84%E6%8C%89%E9%88%95%E4%B8%8D%E9%A1%AF%E7%A4%BA%E6%9C%80%E8%BF%91%E9%96%8B%E5%95%9F%E7%9A%84%E9%A0%85%E7%9B%AE%EF%BC%88windows-7%EF%BC%89.htm

「最近開啟的文件」這個功能在 XP 就有許多網友反應想把它關掉,當時我也發表了XP關閉這個功能的方法。最近升級到 Windows 7後,這個問題又出現了… 只不過名稱變成「最近開啟的項目」

win7-01

「最近開啟的項目」雖然可以讓你快速開啟檔案,但如果是在公用電腦上,有時不想讓他人知道自己瀏覽了哪些項目,因此得停止系統繼續紀錄,並刪除紀錄。在Windoows7中,關閉「最近開啟的項目」的設定方法很簡單,兩個步驟就可以完成:

Step 1

在開始功能表上按「滑鼠右鍵」→【內容】

win7-02

Step 2

切換到〔[開始]功能表〕標籤,將「儲存最近開啟的項目並顯示於[開始]功能表和工作列」取消溝選→按〔確定〕完成設定。

win7-03

完成設定後,你會發現最近開啟的紀錄都消失了。

[資料庫] MS SQL DD製作


Declare @bastable Varchar(50)
Set @bastable = '[TableName]'

select 
    dt.name [Table_name] , C.name [Column_name] , 
    case
when T.name in ('datetime', 'smalldatetime', 'int', 'smallint') then T.name
when T.name In ( 'numeric' ) then T.name + '(' + CAST(ISNULL(C.prec, C.length) AS varchar(50)) + ',' + CAST(C.scale as varchar(50) ) + ')'
when T.name In ( 'nvarchar' ) then T.name + '(' + CAST(C.length/2 AS varchar(50)) + ')'
else T.name + '(' + CAST(C.length AS varchar(50)) + ')'
    end [Type] ,
    T.name [ColType],
    case
when T.name in ( 'int', 'smallint' , 'tinyint' ) then 'Int32'
when T.name in ( 'smalldatetime', 'datetime' , 'datet' ) then 'DateTime?'
when T.name in ( 'bit' ) then 'Boolean'
when T.name in ( 'real' ) then 'float'
else 'String'
    end [C#Type],
    case
when T.name in ( 'int', 'smallint' , 'tinyint' ) then 'Convert.ToInt32'
when T.name in ( 'real' ) then 'Convert.ToSingle'
when T.name in ( 'smalldatetime', 'datetime' , 'datet' ) then 'MyConvert.ToDateTime'
when T.name in ( 'bit' ) then 'Convert.ToBoolean'
else 'Convert.ToString'
    end [C#Type],
    case
when T.name in ( 'int', 'smallint' , 'tinyint' ) then 'GenSqlStr.DataType.Int'
when T.name in ( 'real' ) then 'GenSqlStr.DataType.Float'
when T.name in ( 'smalldatetime', 'datetime' , 'date' ) then 'GenSqlStr.DataType.Datetime'
when T.name in ( 'bit' ) then 'GenSqlStr.DataType.Int'
when T.name in ( 'nvarchar' ) then 'GenSqlStr.DataType.NVarchar'
else 'GenSqlStr.DataType.Varchar'
    end [C#SQLType],
    case
when T.name in ( 'nvarchar' , 'varchar' , 'char' ) then '=String.Empty;'
when T.name in ( 'int', 'smallint' ) then '=-1;'
when T.name in ( 'tinyint' ) then '=0;'
when T.name in ( 'real' ) then '=0;'
else ';'
    end [C#SQLType2],    
    convert(varchar(100) ,P.value)  [Desc1]
From (
  select id
, name
  from
  sys.SysObjects
  where
  xtype = 'U' ) dt
Left Join sys.SysColumns C On C.id=dt.id
Left Join sys.extended_properties P On C.ID=P.Major_Id And C.ColId=P.Minor_id
Left JOIN sys.SysTypes T ON C.xtype = T.xusertype
Where dt.name = @bastable
order by C.colorder

[轉貼]VB自動更新-下載

[轉貼]VB自動更新-下載
http://ithelp.ithome.com.tw/question/10054525?tab=opinion

 

Private Declare Function DoFileDownload Lib "shdocvw.dll" _
(ByVal lpszFile As String) As Long
  
Private Sub Command1_Click()
Dim sFileUrl As String
sFileUrl = StrConv("http://123.194.15.246/ezs/ip.php", vbUnicode)
DoFileDownload sFileUrl
End Sub

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

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
    "URLDownloadToFileA" (ByVal pCaller As Long, _
    ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As Long, _
    ByVal lpfnCB As Long) As Long
Private Sub Command1_Click()
    Dim lReturn As Long
  
    lReturn = URLDownloadToFile(0, "http://www.hosp.ncku.edu.tw/~cww/index.htm", "C:\index.html", 0, 0)
  
    If lReturn = 0 Then
        MsgBox "Download Complete.", vbInformation + vbOKOnly
    End If
End Sub

[轉貼]資料庫之 ODBC 連線字串

http://tw.myblog.yahoo.com/cyrex4000/article?mid=2456

DNS
設定完成後,直接使用DNS名稱即可

MDB檔 
DRIVER=Microsoft Access Driver (*.mdb);DBQ=mdb檔名路徑 
DRIVER=Microsoft Access Driver (*.mdb);DBQ=mdb檔名路徑;PWD=密碼

Provider=Microsoft.Jet.OLEDB.4.0;Data Source= 檔名路徑 ; Persist Security Info=true
Provider=Microsoft.Jet.OLEDB.4.0;Data Source= 檔名路徑 ; Persist Security Info=true ;Jet OLEDB:Database Password=密碼

XLS檔
DRIVER=Microsoft Excel Driver (*.xls);DBQ=xls檔名路徑

TXT/CSV檔
DRIVER=Microsoft Text Driver (*.txt; *.csv);DEFAULTDIR=資料夾路徑名稱
※一整個資料夾相當於一個Database, 每一個文字檔相當於一個 Table

Visual FoxPro的DBF
DRIVER=Microsoft Visual FoxPro Driver;SOURCETYPE=DBF;SOURCEDB=資料夾路徑名稱
※一整個資料夾相當於一個Database, 每一個文字檔相當於一個 Table

MySQL Server
DRIVER=MySQL ODBC 3.51 DRIVER;SERVER=IP或電腦名稱;DATABASE=資料庫名稱;UID=你的帳號;PASSWORD=你的密碼

MS SQL Server 2000
DRIVER=SQL Server;SERVER=IP或電腦名稱;DATABASE=資料庫名稱;UID=你的帳號;PASSWORD=你的密碼

MS SQL Server 2005
DRIVER=SQL Native Client;SERVER=IP或電腦名稱;DATABASE=資料庫名稱;UID=你的帳號;PASSWORD=你的密碼

DB2
DRIVER=IBM DB2 ODBC DRIVER;HOSTNAME=IP或電腦名稱;DATABASE=資料庫名稱;PORT=PortID;PROTOCOL=TCPIP;USER ID=你的帳號;PASSWORD=你的密碼;

VB.Net Search_String 搜尋夾字 Function

Search_String 搜尋夾字
 
    '''
    ''' Search_String 搜尋夾字
    '''
    ''' 要搜尋的字串
    ''' 頭字串
    ''' 尾字串
    ''' 要查第幾個(不設傳回共幾個)
    ''' String(Integer)
    '''
    ''' ex: Search_String("href='aaa' href='bbb' ", "href='", "'", 1))
    ''' return 'aaa'
    ''' ex: Search_String("href='aaa' href='bbb' ", "href='", "'"))
    ''' return 2
    '''
    Function Search_String(ByVal t1 As String, ByVal t2 As String, ByVal t3 As String, Optional v1 As Integer = 0)
        Dim v As Integer
        Dim String_len As Integer
        For i = 1 To Len(t1)
            If Mid(t1, i, Len(t2)) = t2 Then
                String_len = 0
                For j = i + Len(t2) To Len(t1)
                    String_len += 1
                    If Mid(t1, j, Len(t3)) = t3 Then
                        v += 1
                        If v1 <> 0 And v1 = v Then
                            Return Mid(t1, i + Len(t2), String_len – Len(t3))
                        End If
                        Exit For
                    End If
                Next
            End If
        Next
        Return v
    End Function

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

[VB] WebBrowser 瀏覽器

轉貼  VB6之迴光返照- WebBrowser

WebBrowser在一般書上比較少介紹,一般就是要做擷取網頁原始碼或自動輸入文字
自動按按鈕填表格之類的功能,goggle搜尋vb webbrowser也能找到許多範例。
 

 
先設定使用元件shodocvw.dll
從控制項拉出WebBrowser1
然後程式碼如下,開啟程式就會直接載入到yahoo首頁了,載入完就會顯示出
網頁的原始碼在即時運算視窗了
Private Sub Form_Load()
WebBrowser1.Navigate "http://tw.yahoo.com"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Debug.Print WebBrowser1.Document.body.innerHTML
End Sub