MSSQL bcp 運用

參考引用
--
 --建立XML格式檔

bcp DataBase.dbo.Table format nul -T -c -x -f filename.xml



--匯出資料

bcp DataBase.dbo.Table out filename.txt -c -T



--匯入資料，資料表必須是存在的實體資料表。

bcp DataBase.dbo.Table in filename.txt -T -t -f filename.xml



匯出查詢結果
bcp "SELECT * FROM database.dbo.table Where a>1" queryout filename.txt -c -T

將遠端資料匯出至本機D槽
bcp Table out d:\file.txt -k -n -c -S 192.168.0.100 -U xxx-P xxx

將遠端資料匯出至網路分享空間
bcp Table out \\192.168.0.101\tmp\file.txt -k -n -c -S 192.168.0.100 -U xxx-P x

MSSQL FOR XML 運用

參考1:Create XML Files Out Of SQL Server With SSIS And FOR XML Syntax
參考2:大量匯入與匯出 XML 文件的範例 (SQL Server)
參考3:將 Table 資料匯出成 XML
參考4:[T-SQL] 匯入Xml IN DB 並轉換為 Table
--
簡單的是:
select * from books for xml auto

無殼豐年蝦卵DIY 製作篇

請參考來源:無殼豐年蝦卵DIY 製作篇

豐年蟲孵化方法

參考引用:豐年蟲孵化方法
--

豐年蝦（Artemia）又稱 鹹水豐年蝦（Brine Shrimp）而其卵（豐年蝦卵、Artemia Cysts or Brine Shrimp Eggs）
　豐年蝦分布甚廣，除兩極地區外，在世界上許多地區的含有碳酸鹽、硫酸鹽和氯化鈉的湖泊中，以及沿海鹽田等高鹽水域都有不同程度的分布。全世界已報導的豐年蝦產地有500多處。目前豐年蝦卵產品主要來自中國、美國、伊朗和俄羅斯等20多個國家的不同地理品系，其中以美國加裡佛尼亞的舊金山灣、大鹽湖以及中國東部沿海鹽田、青海、西藏和新疆南部鹽湖出產的豐年蝦卵品質最優。可見，中國已經是世界上生產豐年蝦卵的大國之一。
  自1775年以來，人們就開始了對豐年蝦的研究，迄今已有 200餘年的歷史。但用於水產餌料，僅始於上世紀30年代。在1933年美國的Seale 把豐年蝦初孵的無節幼體作為疑?仔魚的活餌料，隨後挪威的 Rollefson等也用豐年蝦無節幼體作為活餌料培養魚苗，均獲成功，從而證實了豐年蝦的無節幼體是仔、幼魚的優質餌料。在上世紀50年代後期，中科院海洋所張孝威教授首次發現了我國的豐年蝦卵，經10餘種海產魚苗培育實驗，也證明了豐年蝦的無節幼體是仔、幼魚的良好的餌料。同時開展了豐年蝦卵的調查、採集、孵化和培養的研究，積累了許多寶貴的資料。由於豐年蝦無節幼體是魚、蝦和蟹的優質活餌料，因此受到全球水產養殖工作者的高度重視。在比利時肯特大學成立了世界豐年蝦參考中心，並先後在美國得克薩斯州（1979年）和比利時安特沃普城（1985年）舉行了第一、第二屆國際豐年蝦學術會議。

  豐年蝦,它是一種廣泛分布於全球且耐高鹽的小型甲殼類動物。豐年蝦卵是由豐年蝦所產生的休眠卵，目前世界上已經記載的豐年蝦卵有100多個品系。豐年蝦無節幼體具有大量的卵?，並含有豐富的蛋白質和脂肪（註：其中蛋白質約含60%、脂肪約含20%），它的成體所含營養成份也很高。因此，豐年蝦作為一種重要的生物餌料,一直受到人們的廣泛重視。當前世界上85%以上的水產養殖動物的育苗均以豐年蝦作為餌料來源。

  豐年蝦卵的採收季節一般是在秋天，但春天也有少量豐年蝦卵可供採收。除了美國加州莫諾豐年蝦產沉性休眠外，其他地區多數豐年蝦產生出的休眠卵均為浮性卵。卵常被風浪沖擊到岸邊堆積在 一起，呈淺紅褐色。可直接從岸邊刮取，或用特製的小抄網，在下風處撈取飄浮於水面或懸浮水中的豐年蝦卵，一般常用方形小抄網（網口40目、 網袋60目），如果用於收集水體中的鹵蟲豐年蝦卵，常用圓形的小抄網（上面40目、下面90目）。另外，也可在池邊挖坑或構築浮柵， 使卵集中在局部水體中，以便採收。
【製作過程】
剛採集的卵切忌堆積,一般要經過如下加工步驟﹕
1.清洗:清洗一般用錐形桶,先用淡水沖洗,再用海水沖洗.沖洗的主要目 的是除去雜物、
  卵殼及表面上的污染。        
2.脫水:濕卵脫水的方法一般是先離心,後陰乾；而乾卵，則應該先低溫後真空乾燥。
3.晾乾:在晾乾過程中,要防止溫度過高(不超過40度)和在陽光下曝曬。
4.篩選:用不同的孔徑的篩網分層過篩。
5.包裝:真空或沖氮密封包裝。
6.儲藏:豐年蝦卵要先在-18度下放一周冷凍存存,再在常溫下放一周， 對於乾卵一般
  低溫儲 藏即可。
經過以上步驟處理的豐年蝦卵，儲藏數年，卵化率仍可保持70%左右。

【豐年蟲孵化方法】
  孵化準備：
  1.使用乾淨的容器(大小視個人需求量而定)
  2.在容器的上部設置光源(建議使用，增加孵化率)
  3.在容器的底部安裝氣管，在缸的底部打氣
  4.加入乾淨清水及的鹽，比例約1公升水/45公克鹽，精鹽或粗鹽皆可
  5.最後加入豐年蝦卵比例約2.0公克卵/一公升水
  孵化條件：
  1.溫度﹕28-30℃
  2.ＰＨ﹕8.0-9.0
  3.打氣﹕足夠的氣泡使豐年蝦卵保持懸浮在鹽水中
  4.光照﹕鹽水表面為2000lux
  5.密度﹕2.0克卵╱升水。
  孵化收集：
  1.在理想的孵化條件下，孵化24小時
  2.停止打氣
  3.覆蓋孵化缸的表面（遮光）
  4.靜置10分鐘後將沉在底部的豐年蝦排出或虹吸出來，可再靜置10分鐘，收集缸中剩餘
     的豐年蝦。
  保存方法 ：
  1.降低液面（約1~2公分），增加空氣接觸面積（使溶氧量增加）
  2.保存在溫度0℃-5℃的乾燥避光的地方（如冰箱冷藏庫）

   豐年蝦卵的營養成分分析﹕豐年蝦卵含有豐富的蛋白質,氨基酸組成齊全,粗脂肪含量比較高,其中不飽和脂肪酸高於飽和脂肪酸,帶殼卵的不飽和脂肪酸為48.15%,脫殼卵的為54.82%。帶殼卵的飽和脂肪酸是脫殼卵的1.5倍。豐年蝦卵的殼是一種含鐵脂蛋白,魚和蝦的幼體不能消化它。但動物實驗證明小鼠可以消化鹵蟲卵殼,所以用豐年蝦卵加工食品不必考慮殼的問題,而且有的不飽和脂肪酸、無機元素在殼中含量比較高,如DHA（二十二碳六烯酸）,Se、Zn、Fe等;食用粉碎、脫殼的豐年蝦卵能提高動物肝中的γ-亞麻酸（必需脂肪酸）,而DHA和EPA都明顯高於對照組。另一個特徵是可明顯提高肝中Fe2+的含量,Fe2+是血紅素的主要成分,因此豐年蝦卵可作為一種補血劑,而且食鹵蟲豐年蝦卵可提高腦蛋白含量。　　從營養分析上可以確定豐年蝦卵含有豐富的蛋白質、氨基酸、不飽和脂肪酸和無機元素。動物實驗證明,食用豐年蝦卵對血脂沒有影響,而且能提高肝中的DHA、EPA及血紅素和腦蛋白的含量。
去殼豐年蝦卵的應用﹕P.Sorgelocs等人（1977）用次氯酸鈉溶液處理休眠卵可除去卵外殼,剩下一層透明的內膜（即孵化膜）,處理後的卵大小為200∼300μm,富含卵黃,可直接投餵養殖對象,也可孵化成無節幼體。去殼卵與不去殼的卵相比,可以得到較高的孵化率。去殼卵用飽和鹽水（NaCl）或飽和MgCl2溶液脫水後可冰凍保存數日,孵化率並不降低;也可利用液氮冷凍保存去殼卵。使用去殼卵的優點是:
  （1）可以直接投喂,不需再經過孵化管理操作
  （2）去殼豐年蝦卵在加工的過程中殺死了卵殼上的細菌、真菌,特別是聚縮蟲,
            杜絕了因豐年蝦卵消毒不嚴格而導致的疾病傳染
  （3）省去了無節幼體出膜時所需消耗的能量,故其營養優於自行孵出的無節幼體
  （4）去殼卵售價便宜,比進口豐年蝦卵的價格低50%以上。
其不足之處在於:
  （1）去殼卵缺乏懸浮性,投喂時潑撒是否均勻將直接影響餌料效果,切忌一次投喂過多,
            卵 沉入池底不僅造成浪費,而且還會污染水質;以小型家用水泵的噴水嘴作為投餌器,
            可取得良好效果。
  （2）用次氯酸鹽作為去殼藥物,鹵蟲卵去殼脫氯後雖用大量海水沖洗仍有異味,
            影響使用效果。
用魚蝦引誘劑烏魚漿或貽貝漿處理,可消除異味。去殼鹵蟲卵作為魚蝦幼體的餌料,具有廣闊的開發前景。
豐年蝦卵脫殼﹕豐年蟲卵200克浸入三升水中，充氧2小時，再用150－200微米的篩絹過濾、清洗。然後再加1.4L水，25克CaO和55工業漂白粉，同時使溫度保持在20oC，然後再加25克CaO和55工業漂白粉。當卵懸浮後呈桔黃色時，用150－200um網目的篩絹過濾，然後用水沖洗直到無氯氣為止，再將卵浸泡再含1克硫代硫酸鈉中，充分攪拌，使脫膜的卵下沉。得到脫膜的卵洗淨。
豐年蟲卵消毒﹕4kg的卵放在0.05%的硫代硫酸鈉中浸泡數分鐘，排干水，加0.5kg的工業漂白粉攪拌，加冰，保持在40oC下放置10分鐘，用浮游植物網過濾得到卵清洗，再用0.05%的硫代硫酸鈉浸泡2－5min，洗淨，可以卵化。
孵化方法﹕
（1） 豐年蝦卵在干燥條件下可以較長期保存,當放入鹽度為20　∼30　,溫度25∼27℃的水
         中,並滿足孵化所需的溶氧量,經24∼48小時後就孵出幼體。
（2） 孵化豐年蝦卵時,可用甘油鹽水洗去沾在卵上的雜質和泥沙,取得上浮的潔淨卵子;也可
         將卵子先行速凍,從-3℃漸至-15℃,冷藏1∼3個月後再行孵化,可得到60%∼90%的
         孵化率。
（3） 直接將豐年蝦冬卵（或者經過消毒、去殼後）放入海水中，水溫保持在28－30oC，
         經過24－30小時的直接卵化就可發育成無節幼體。改進方法﹕豐年蝦卵在消毒、充分
         浸泡後裝入篩絹製成的袋中，放入25oC的卵化室，避免強光照射，保證供氧充足，8
         －10小時後變成燈籠幼體（卵與幼體沒有分開，呈燈籠狀），再放入28－30oC的海水       中。變成無節幼體。
------------豐年蝦幼體的加工與應用﹕初孵幼體呈桔黃色,體內含豐富卵黃,是魚蝦類育苗時期非常合適的活餌料。無節幼體孵化後除直接應用外,還可用低溫進行冷藏。即將剛孵化出來的無節幼體保存在5∼10℃條件下（應充氣以免窒息）,冷藏24小時甚至更長時間。在豐年蝦應用中尚存在著一些問題,如無節幼體的日常分離、撈取和保存需要大量勞力;對於初期仔魚或蝦蟹類的?敿D狀幼體,剛孵出的無節幼體（大小約為400∼500μm）,仍嫌過大;無節幼體與卵殼不易分離得很好。卵殼被魚蝦吞食後會引起腸梗塞,造成大量死亡,還會污染水質。
豐年蝦成體的應用豐年蝦成體有相當高的營養價值,含蛋白質60%,灰分10%,除各種必需氨基酸和多聚不飽和脂肪酸外,還含有較多的維生素。可直接投喂,用於多種水產動物的幼體或成體（觀賞魚）。豐年蝦含有較多的脫皮激素,可促進親蝦性成熟。從1980年起,我國對蝦養殖業的發展使豐年蝦的用量空前大增。巴西和泰國分別用鮮活豐年蝦投餵對蝦的後期幼體和遮目魚的稚魚,均得到良好的飼養效果。巴西的鹽田和美國加州有大量的鮮活豐年蝦出售,泰國、菲律賓及澳大利亞則有人工養殖的豐年蝦出售。世界上約有20個企業專門生產豐年蝦成體冷凍品及罐頭。以每噸水放15g優質豐年蝦卵的密度,一周內可生產出20kg成蟲（濕重）或2kg豐年蝦乾品。
其它應用﹕作為水產苗種內服藥的活體膠囊魚蝦幼體因微生物傳染而引起死亡對生產威脅很大。利用豐年蝦作為活載體,以強化技術加入藥物或疫苗,使其填載到豐年蝦腸道內,魚蝦幼體喜食豐年蝦,藥物被直接帶進魚蝦體內,起到了防病治病的效果。
存在問題及應用前景目前在應用中存在的主要問題﹕
根據養殖對象使用不同卵徑的蝦卵可節省餌料,從而提高育苗的質量和降低成本。
營養強化目前市場上流通的商品豐年蝦卵以美國產的為主,但其ω3系列高度不飽和脂肪酸明顯不足,其初孵豐年蝦幼體用於對蝦育苗還可以,如果用來喂養海產仔魚則會引起營養缺乏癥。為提高豐年蝦的營養水準,通常采取濃縮MC（擬微囊小球藻）投喂及魚油製品。然而由於豐年蝦的腸道難於消化細胞壁堅硬的MC和面包酵母;又因多數魚油製品會附著在豐年蝦體表,導致豐年蝦活力下降。故優良營養強化劑的開發有待今後進一步研究。對豐年蝦的營養強化應注意其合理性,若用於仔魚的活餌料,較多地采用DHA、磷脂和抗壞血酸（Vc）來強化,一般連續2天投餵經DHA強化的輪蟲就足以滿足仔魚的生理需求。若仔魚在攝食輪蟲階段就已獲得足夠的ω3HUFA,那麼豐年蝦的營養強化不必過分強調,因為營養過多也不利於個體發育。
品種改良近年來,世界上許多水產養殖專家為改善豐年蝦的品質開展了添加營養劑等方面的大量研究,這些研究均未涉及豐年蝦在遺傳上的品質改良。若能通過雜交,提高遺傳變異水平,再借助於誘變處理和海洋生物工程技術,培育出抗逆性強、營養價值高的豐年蝦新品系,就將為魚類和甲殼類養殖業的發展奠定十分關鍵性的餌料基礎。
豐年蝦去殼卵的應用採用豐年蝦去殼卵不僅可以得到較高的孵化率,且是魚、蝦、蟹早期幼體極好的適口餌料。當前,積極開展豐年蝦去殼卵的應用研究,可以對大量孵化率低的豐年蝦卵資源（估計有幾萬噸）充分利用。我國的水產養殖業要從傳統的以鯉科魚類為主體的格局,轉向以高值海淡水魚蝦為主角的局面, 豐年蝦作為幼體的初期餌料,其作用和地位不容忽視。因此,有必要對我國的豐年蝦資源進行系統調查,對不同地區、不同品系的豐年蝦進行生物學及生理、生化等方面的基礎研究,為豐年蝦增養殖與接種提供技術依據。另一方面,應大力發展豐年蝦養殖業,在實施我國西部大開發的戰略中,把高原鹽湖豐年蝦資源的利用列入規劃,實現東西部漁業開發的聯動;我國南方也可以象東南亞國家那樣利用旱季養殖豐年蝦,以充分利用鹽田。

Get Column Name and Data Types of Access Tables

參考引用
--
Private Sub Demo(ByVal ConnectionString As String)
   Using cn As New OleDbConnection(ConnectionString)
      Dim Result = SchemaInfo(cn.ConnectionString, "Table1")
      For Each row As DataRow In Result.Rows
         Console.WriteLine("Name={0} Type={1}", row("ColumnName"), row("DataType"))
      Next
   End Using
End Sub
Public Function SchemaInfo(ByVal ConnectionString As String, ByVal TableName As String) As DataTable
   Dim dt As New DataTable With {.TableName = "Schema"}

   dt.Columns.AddRange( _
      New DataColumn() _
         { _
            New DataColumn("ColumnName", GetType(System.String)), _
            New DataColumn("DataType", GetType(System.String)) _
         } _
      )

   Using cn As New OleDbConnection(ConnectionString)
      Using cmd As New OleDbCommand("SELECT * FROM " & TableName, cn)
         cn.Open()
         Dim Reader As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.KeyInfo)
         Dim schemaTable = Reader.GetSchemaTable()
         schemaTable.TableName = "TableSchema"

         Dim sw As New IO.StringWriter
         schemaTable.WriteXml(sw)
         Dim Doc = New XDocument
         Doc = XDocument.Parse(sw.ToString)
         Dim query = _
            ( _
               From T In Doc... _
               Select _
                  Name = T..Value, _
                  DataType = T..Value.Split(","c)(0).Replace("System.", "") _
            ).ToList

         For Each item In query
            Dim Row As DataRow
            Row = dt.NewRow
            Row("ColumnName") = item.Name
            Row("DataType") = item.DataType
            dt.Rows.Add(Row)
         Next

      End Using
   End Using

   Return dt

End Function

Get Colunm Data type

參考引用:Get Colunm Data type
--
Imports System
Imports System.Data
Imports System.Data.SqlClient


public class MainClass
   Shared Sub Main()
      Dim thisConnection As New SqlConnection("server=(local)\SQLEXPRESS;" & _
          "integrated security=sspi;database=MyDatabase")

      'Sql Query 1
      Dim sql As String ="SELECT ID,  FirstName, LastName FROM Employee;  "

      'Create Command object
      Dim thisCommand As New SqlCommand _
         (sql, thisConnection)

      Try
         ' Open Connection
         thisConnection.Open()
         Console.WriteLine("Connection Opened")

         ' Execute Query
         Dim thisReader As SqlDataReader = thisCommand.ExecuteReader()

         ' Get column data types
         Console.WriteLine("Data types: {0} | {1}", _
            thisReader.GetDataTypeName(0).PadLeft(13), _
            thisReader.GetDataTypeName(1))


         'Close DataReader
         thisReader.Close()

      Catch ex As SqlException
         ' Display error
         Console.WriteLine("Error: " & ex.ToString())
      Finally
         ' Close Connection
         thisConnection.Close()
         Console.WriteLine("Connection Closed")

      End Try
   End Sub
End Class

VB.Net 透過JRO 修復Access MDB

參考引用來源:VB.Net 透過 JRO 修復 Access MDB
--
VB.Net 透過 JRO Compact / Repair Access MDB
Imports System
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' 將C:\db1.mdb 做Compact / Repair
If Compact_MDB("C:\db1.mdb") Then MessageBox.Show("OK !")
End Sub
Private Function Compact_MDB(ByVal strFile As String) As Boolean
' Jet Access (MDB) 連線字串; Jet ( Joint Engine Technology )
Dim strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0}"
' 或"Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};Jet OLEDB:Engine Type=5"
' Path.GetTempFileName 方法: 在磁碟上建立具命之零位元組的唯一暫存檔案，
' 然後傳回該檔案的完整路徑。
Dim strTmpFile As String = Path.GetTempFileName.Replace(".tmp", ".mdb") ' 把tmp 副檔名改成mdb
' 建立物件陣列存放引數(參數) , 來源, 目的
Dim objPara As Object() = New Object() {String.Format(strCn, strFile), String.Format(strCn, strTmpFile)}
' Activator 成員: 包含本機或遠端建立物件型別的方法，或者取得對現有遠端物件的參考。
' Activator.CreateInstance 方法(Type) : 使用最符合指定參數的建構函式，建立指定型別的執行個體。
Dim objJRO As Object = Activator.CreateInstance(Type.GetTypeFromProgID("JRO.JetEngine"))
' Type.GetTypeFromProgID 方法: 取得與指定的程式識別項(ProgID) 關聯的型別；
' 如果在載入Type 時發生錯誤，則傳回null。
' JRO.JetEngine 為Microsoft Jet and Replication Objects X.X library
' Type.InvokeMember 方法
' Type.InvokeMember (String, BindingFlags, Binder, Object, Object[])
objJRO.GetType.InvokeMember("CompactDatabase", Reflection.BindingFlags.InvokeMethod, _
Nothing, objJRO, objPara)
' 使用指定的繫結條件約束並符合指定的引數清單，來叫用指定的成員。
' BindingFlags 列舉型別,InvokeMethod 指定要叫用方法。
File.Delete(strFile) ' File.Delete 方法: 刪除Compact 前之mdb 檔
File.Move(strTmpFile, strFile) ' File.Move 方法: 將Compact 過的mdb 檔改成(回)正確檔名
' Marshal.ReleaseComObject 方法釋放JRO COM 物件
Runtime.InteropServices.Marshal.ReleaseComObject(objJRO)
objJRO = Nothing
Return True
End Function
End Class

---
奇怪,看他這篇是2008 的;現採用2012卻發生錯誤...百思不解
找到微軟官網  如何使用 Visual Basic.NET compact Microsoft Access 資料庫中
::在 [加入參考] 對話方塊中，按一下 [ COM ] 索引標籤，然後選取Microsoft Jet 和複寫物件 2。x庫。按一下 [選取以將其新增到選取的元件。按一下 [確定]

所以還是要靠com 來運作,可能 bjJRO.GetType.InvokeMember 這方法在 vs2012 已不適用
引用com 在使用上就簡單了!
        Dim jro As JRO.JetEngine
        jro = New JRO.JetEngine()
        jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\nwind.mdb", _
        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\NewNwind.mdb;Jet OLEDB:Engine Type=5")

自訂函數裏的select table名稱可否為變數?

參考引用:自訂函數裏的select table名稱可否為變數?
--
=====================================

ALTER FUNCTION [dbo].[V_GettableXXX]
(
  @T_tablename varchar(15)  ,
  @T_year varchar(4)
)
RETURNS table
AS
BEGIN
  DECLARE @tableXXX varchar(25)
  set @tableXXX=@T_tablename+@T_year
  EXEC ('select * from ' + @tableXXX)
END

底下提供我測試的寫法。回傳值的部份我並未處理與測試，請各位自行嚐試囉!!
DECLARE @tablename AS NVARCHAR(50)

SET @tablename = 'aEnrichRPTDB.dbo.dimDate'

EXEC ('SELECT * FROM ' +  @tablename)