作者: 小毛

[轉貼]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

Excel巨集

VBA巨集使用方法 重點Cells(y,x)

'九九乘法表 
Sub test()
For i = 1 To 9
    Cells(i + 1, 1) = i
    Cells(1, i + 1) = i
Next i

    For i = 1 To 9
        For j = 1 To 9
            Cells(i + 1, j + 1) = i * j
        Next j
    Next i
End Sub

更深入的VBA巨集使用
http://blog.xuite.net/crdotlin/excel/9092240-%E7%94%A8Range%EF%BC%9F%E7%94%A8Cells%EF%BC%9F 

不同表的處理
http://www.cc.ntu.edu.tw/chinese/epaper/0019/20111220_1910.html 

人生的機會成本

這是一篇回頭文…怎麼說呢…古人的經驗… 唯有讀書高?…

高職畢業之時… 升學 工作 二選一 (男生多一個 當兵 但是最終還是 二選一

大學 你知道機會成本是多少嗎? … 

4年的時間
8個學期的學費
4年共48個月的失去工作的時間

撇開你是個 公立學校的天才來說
就拿最low的22k來講
半學期私立要個5w吧?

5w*8=40w 所以機會成本是40萬?… 錯大了

40w + 48 * 2w2 = 145.6w
這才是你的機會成本 145萬 這還是最low的 不含你生活開銷呢!!!

你的大學生活呢…? 曠課…打混…睡覺…社交.. 學個銜接不上社會的技術…
出來給你拿個30k好了(很多人還拿22k勒…)
你大學畢業之時 與 不升學之人 差上了多少呢?… 要多久才能追回來…

30k-22k = 8k
145.6w / 8k = 182個月 = 15年以上啊!!! 大哥!!!

你人生給你工作30年好了 你要失去大半了…
當然 這是很偏激的想法…
不讀書…去學一技之長吧…

別指望學校能給你什麼… 你不學 建議你去買樂透吧!!

行動上網吃到飽…這根本是炸錢…

各位愛用行動上網的同胞們

以下問題真的要想想了…

你家有架設分享器(AP)嗎? 你工作的地點 你的學校 … 

都有阿…都可以用AP上網 何須 3G上網…

你說搭車可以用啊 之類的… 拜託 速度訥麼慢…一個月能用超過2GB就嚇死人了…

吃到飽 沒意思啦… 使用心得~"~

感覺有點炸錢…下次真的是要多注意了

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);
            }
        }