Dim sql As String = "select * from 資料表名稱"
Dim cnStr As String = "server=(local);database=資料庫名稱;uid=帳號;pwd=密碼;"
Dim da As New SQLDataAdapter(sql, cnStr)
Dim ds As New DataSet
da.Fill(ds, "資料集名稱")
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住,半點癡情遺留殊不易,██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道,王~八~蛋~~! ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.184.116.37