邏輯等於0與1和ON與OFF,是程式創作的思維. 如何利用創作來支援生活面呢? 唯有.. 一直努力在程式領域上突破及更新自我;更是要有失敗的心情準備!! 聯絡方式 LINE ID : wushig (池龍工作室) 0931507058 巫先生
2014年5月30日 星期五
MSSQL 資料庫所有欄位名稱以及所有資料表名稱
搜尋資料庫所有欄位名稱，可以使用這兩種語法
select * from syscolumns
select * from sys.columns
取得資料庫中所有資料表的名稱，可以使用以下語法
SELECT * FROM INFORMATION_SCHEMA.TABLES
Visual Studio 下載
Visual Studio 下載
---
Visual Studio 出版的速度真是快,1年1版 ..
這代表什麼 ?
....
....
....
新的技術和方法都有進步和突破
這腳步真的走得好快,大家跟上微軟腳步了嗎
---
Visual Studio 出版的速度真是快,1年1版 ..
這代表什麼 ?
....
....
....
新的技術和方法都有進步和突破
這腳步真的走得好快,大家跟上微軟腳步了嗎
超大免費架站空間2FREEHOSTING 20G空間 150G流量 無廣告 提供PHP 、MySQL
Free Web Hosting with cPanel, PHP5, SSH and MySQL. Host Free Website
---
超大免費架站空間2FREEHOSTING 20G空間 150G流量 無廣告 提供PHP 、MySQL
好康耶!!
---
超大免費架站空間2FREEHOSTING 20G空間 150G流量 無廣告 提供PHP 、MySQL
好康耶!!
2014年5月27日 星期二
how to create a ms access db and table using adodb in vb.net
參考1:how to create a ms access db and table using adodb in vb.net
參考引用2:How to create access database
--
\\\set a reference to COM adox ext 2.x for dll and security
Public Class Main
Public Shared Sub Main()
Dim catNewDB As New ADOX.Catalog
Dim fi As New IO.FileInfo("c:\db1.mdb")
If fi.Exists Then
If MessageBox.Show("Delete?", "Existing File db1.mdb", _
MessageBoxButtons.YesNo) = DialogResult.Yes Then
fi.Delete()
Else
Exit Sub
End If
End If
catNewDB.Create("Provider=Microsoft.Jet.OLEDB.4.0; " & "Data
Source=C:\db1.mdb")
'To make tables we use Adonet
Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED B.4.0;" &
_
" Data Source=C:\db1.mdb;User Id=admin;Password=;")
Dim cmd As New OleDb.OleDbCommand("CREATE TABLE persons ( " & _
"AutoId int identity ," & _
"Id int NOT NULL," & _
"Name NVarchar(50)," & _
"BirthDate datetime," & _
"IdCountry int," & _
"CONSTRAINT [pk_AutoId] PRIMARY KEY (AutoId)) ", conn)
conn.Open()
Try
cmd.ExecuteNonQuery()
Catch ex As OleDb.OleDbException
MessageBox.Show(ex.Message, "OleDbException")
Exit Sub
Catch ex As Exception
MessageBox.Show(ex.Message, "GeneralException")
Exit Sub
End Try
cmd = New OleDb.OleDbCommand("CREATE TABLE countries ( " & _
"AutoId int identity ," & _
"Id int NOT NULL," & _
"Name NVarchar(50)," & _
"CONSTRAINT [pk_AutoId] PRIMARY KEY (AutoId)) ", conn)
Try
cmd.ExecuteNonQuery()
Catch ex As OleDb.OleDbException
MessageBox.Show(ex.Message, "OleDbException")
Exit Sub
Catch ex As Exception
MessageBox.Show(ex.Message, "GeneralException")
Exit Sub
End Try
conn.Close()
End Sub
End Class
///
參考引用2:How to create access database
--
\\\set a reference to COM adox ext 2.x for dll and security
Public Class Main
Public Shared Sub Main()
Dim catNewDB As New ADOX.Catalog
Dim fi As New IO.FileInfo("c:\db1.mdb")
If fi.Exists Then
If MessageBox.Show("Delete?", "Existing File db1.mdb", _
MessageBoxButtons.YesNo) = DialogResult.Yes Then
fi.Delete()
Else
Exit Sub
End If
End If
catNewDB.Create("Provider=Microsoft.Jet.OLEDB.4.0; " & "Data
Source=C:\db1.mdb")
'To make tables we use Adonet
Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED B.4.0;" &
_
" Data Source=C:\db1.mdb;User Id=admin;Password=;")
Dim cmd As New OleDb.OleDbCommand("CREATE TABLE persons ( " & _
"AutoId int identity ," & _
"Id int NOT NULL," & _
"Name NVarchar(50)," & _
"BirthDate datetime," & _
"IdCountry int," & _
"CONSTRAINT [pk_AutoId] PRIMARY KEY (AutoId)) ", conn)
conn.Open()
Try
cmd.ExecuteNonQuery()
Catch ex As OleDb.OleDbException
MessageBox.Show(ex.Message, "OleDbException")
Exit Sub
Catch ex As Exception
MessageBox.Show(ex.Message, "GeneralException")
Exit Sub
End Try
cmd = New OleDb.OleDbCommand("CREATE TABLE countries ( " & _
"AutoId int identity ," & _
"Id int NOT NULL," & _
"Name NVarchar(50)," & _
"CONSTRAINT [pk_AutoId] PRIMARY KEY (AutoId)) ", conn)
Try
cmd.ExecuteNonQuery()
Catch ex As OleDb.OleDbException
MessageBox.Show(ex.Message, "OleDbException")
Exit Sub
Catch ex As Exception
MessageBox.Show(ex.Message, "GeneralException")
Exit Sub
End Try
conn.Close()
End Sub
End Class
///
2014年5月26日 星期一
孔雀魚-疾病與難病對策
參考引用來源:孔雀魚-疾病與難病對策
--
孔雀魚-疾病與難病對策
撰文自一位朋友
疾 病 與 難 病 對 策
白點病
初期魚體出現數粒小白點，末期則全身佈滿白點，二次感染合併水黴病及細菌感染，至嚴重時，則藥石罔效。 投入適量甲基藍藥水，每10加侖水 4~8cc,無底砂配合過濾系統之容器，藥量宜減為二分之一至四分之一，或將患病的魚放在百分之一的食鹽水中，亦可治癒。(成蟲殺除難，但仔蟲殺除容易，故維持水中有效藥劑約7∼20天左右，即可完全撲滅)
黑點病
病魚頭部可見長形的淺黃色孢囊，其孢囊成熟時，呈黑色，即搖尾幼蟲與後囊幼蟲，它們亦侵襲魚體眼睛、肌肉、血管、鰓、內臟器官，若於眼睛的水晶體部位發現不透明的斑塊，則有可能受到感染 此病不具傳染性，但是會傷害肌肉組織及使眼睛受到或失明，嚴重時可致死，目前並無藥可癒，僅可用消毒過的針，或鑷子將蟲挑除
水黴菌病
受傷的表皮產生毛狀、絲狀菌絲，肉眼所見絲狀物即為已死的黴菌屍體，活的黴菌則寄生在皮膚及肌肉上。 投入適量甲基藍藥水，或將患病的魚放在百分之一的食鹽水、盤尼西林水溶液中，亦具效果。(受傷、搬運撈捕魚兒宜做預防措施) 爛 嘴 病 魚兒的嘴及頰部覆蓋白色附著物，鰭、鰓、口部最易感染。此病傳染力甚強，發病後數天，魚箱中的魚兒可能全滅。 可採用跟水黴菌病相同的治療法，或早一點塗抹多聚氰就有效。(若短時間內無法痊癒，每易造成抗藥性細菌，故使用藥劑時宜核對水量及用藥量，以正確治療)
爛爛鰭病尾
水質受到污染，或被其牠的魚兒咬傷，傷口受到感染，魚鰭一開始變白，惡化則會腐爛死亡。 投入適量甲基藍藥水、盤尼西林、綠F金或使用薄的食鹽水飼養。
鰓吸蟲寄生症
呼吸較急促，鰓蓋大開，鰓絲有腫脹與白化現象，不喜歡游動，有時具有使水箱魚兒全滅的傳染力。 利用福馬林溶劑，進行長期或短期藥浴，因成蟲撲滅容易，但蟲卵殺滅困難，會在三天後陸續孵出，可在水中保持萬用水、甲基藍藥水有效成份3~5天，殺滅幼蟲。
松果狀鱗腫 (立鱗病)
魚體發腫，魚鱗豎起，狀似松果，致病原因不明。 可在罹病初期，每10公升的水加入0.1gr的氯黴素，或每10公升的水加入3萬單位的盤尼西林溶液。
口絲蟲感染症
皮膚出現整片雲狀物灰色黏液的感染現象，大量口絲蟲寄生時，體表會出現一塊一塊破皮的血斑，魚鰭不張開，並且磨擦植物或底部，不進食而體重下降，常使病魚慵懶斜躺昏睡。 可採用跟白點病相同的治療法或每2公升的水加入1毫升的福馬林，浸浴15分鐘，亦可每100公升的水中加入1公克的叮啶黃素作約2天的浸浴，將水溫提高至30度c可幫助去除口絲蟲。
氣泡病
魚體表面或各魚鰭長出粒狀的氣泡會逐漸變大，如同水泡一般，得此病會使魚窒息或氣泡栓塞致死。發病原因是水中氧氣或氮氣過剩，初期僅需換水，則於短期內即可痊癒，嚴重時，可使用綠F金、硝酸糖棕等水溶液藥浴。
額頭穿孔症
在額頭及眼眶附近有一個或數個凹穴，伴有黴菌感染時，則會有白色絲狀物出現。 水質老舊的魚缸易罹患此病，故勤換水及清理魚缸可預防，臭頭藥粉、賀利沙民，同時進行藥浴口服及可生效。(早期治療容易，末期易引發死亡率)
鞭毛蟲病
食欲不佳，鰓部不動，鱗上出現泌血斑點，浮到水面。 每公升水加入15毫克的氯黴素及實施水質管理。
血行障礙症
血液不足，造成背鰭與臀鰭供血不良，導致細胞壞死，呈鋸齒狀殘缺但不會持續蝕爛，用爛尾病治療法也不見療效者。應注意水質情況及寄生蟲的問題，於水中加入抗菌劑，同時強化營養，短期內可以復原。
條蟲寄生症
腹部明顯腫大，壓之結實，有別於腹水或腹腫脹，內臟易受壓迫而失去功能，成魚易誤診為抱卵。口服腸內寄生蟲清除劑，早期發現，治療容易，蟲體過大時有暴腹之可能，若已侵入內臟器官則迴生乏術。
不孕症
卵巢的退行性變化、脂肪變性、卵巢囊腫、卵巢石化、腹水、泳鰾病變、體內寄生蟲感染、雄魚在維他命缺乏一段時間後，生殖力即永遠受損 魚類長期攝取脂肪過多的餌料，會發生脂肪變性，因此當魚進入繁殖期時應減少餵食投餌量，並於產卵之前絕食3∼5天，另外，使用煌綠、奎寧劑、叮啶黃、孔雀綠等，也會導致一時性的不孕
傳染性腹水病
此病有兩種症狀，即典型腹水病及潰瘍性腹水病，其疾病症狀眼球突出、眼睛衰退、肛門突出及發炎，鰓呈白色，嚴重爛鰭，並可看見表皮紅斑，腹腔可能積存膿液，使腹部腫脹，潰瘍性病症於潰瘍患處為紅色，被白色環圍著，存於發黑表皮下，鱗片脫落處，可見到膿腫 將氯黴素、鏈黴素、北里黴素等抗生素，以加入飼料方式治療，使肝臟增加負荷的飼料會助長此病，對於罹患此病的魚，應該立即撈除
錨蟲甲殼類寄生蟲
其頭部有一根錨狀物，會刺入魚體，體長約1.2公分，魚體外觀看來，如同長毛一般。 用鑷子將錨蟲逐一夾出，或置病魚於比重1.025的海水、食鹽水溶液之中，亦可在10公升的水裡加50mg的過錳酸鉀，也可使用底特松 (藥性劇烈的農藥)加以驅除。
魚虱甲殼類寄生蟲
呈圓盤形，直徑約5mm，會在水中游動，寄生魚體，吸取魚血，同時放出毒液，致使魚兒表皮發炎，變紅，魚變的好動，無法休息，魚鰭縮摺，磨擦缸中砂石、裝飾物，肉眼可見粉紅色中心的小紅點。 用鑷子將魚虱逐一夾出，或將病魚放入百分之一的食鹽水中，經過一、二天便可消除魚虱，亦可將100公升的水溶入1公克的高錳酸鈉，浸浴1小時。
線蟲
此頑疾由白色到棕色的線蟲所致，病魚變得呆滯、消瘦、停止進食，有時可看到線蟲懸掛於肛門外 對付線蟲是很困難的，可採用驅蟲劑，但對魚亦有毒害，最好是移開隔離或消滅病魚 水 蛭 細小的腔腸動物，約1公分，呈圓筒狀，口腔周圍有六、七根觸手，會吞食仔魚。 將魚移出魚箱，加高水溫至攝氏四十度以上，即可殺除水蛭。
蛭
對成魚不具威脅，但會吃魚卵和仔魚。 以高濃度食鹽水，浸漬魚箱，並攪拌刷洗底砂和岩石十分鐘，即可驅除蛭。
鉤頭蟲
少數的鉤頭蟲可能對魚的影響並不大，但是較重的感染使病魚消瘦、肛門發炎、蟲卵附在消化管道內，阻塞消化管道 此病是無法受到控制，因尚未有藥物能影響在腸道內的寄生蟲或其幼蟲，其預防感染的措失，是停止餵食淡水蝦、水蝨、昆蟲幼蟲，並將罹患此病的魚除去
雙身蟲
肉眼可見灰棕色的蟲狀生物，常見於鰓的邊緣，引發鰓部發炎、縮摺及流血，魚會頭朝上不停衝出水面 每1公升的水溶入15公克食鹽，做短時間浸浴，亦可每100公升的水溶入1公克的叮啶黃素或阿滌平，做長期藥浴、浸浴數天
變體病
到目前為止，仍未得到結論，根據病情猜測可能原因：一為水中含有重金屬鹽類，刺激魚的神經和肌肉收縮所致；另一為缺乏某種營養物質(如鈣和維生素等)而產生畸形 可換水數次，改良水質並加強飼料管理，多投餵含鈣質多，營養豐富的餌料，可減少此病發生
凍傷
溫度很低時，魚就會被凍傷，造成各魚鰭產生紅色血絲，影響魚類生活機能，嚴重時可引起死亡 放入保溫器材，並多投富脂肪餌料，以增加魚的抗寒能力
感冒
由於水溫的急遽變更，刺激神經末稍，引起概能混亂，行動失常，器官機能失調，甚至漂浮水面失去游動能力，嚴重時可使魚死亡 換水時，要注意兩個水體溫度的差異情況不可相差太大(魚苗不可超過2度C，魚種不可超過5度C
腫瘤
惡性腫瘤可分為五大類：軟骨、骨骼、肌肉、神經、心臟癌瘤，其皮膚腫瘤或上皮癌可發現生長於表皮及鱗片 良性腫瘤可因受外界刺激而形成，只需移走刺激物，通常會消失，惡性腫瘤則極少可治癒
萎癟症
病魚身體乾癟、頭大身小、體色發黑、背肌薄如刀刃、鰓絲蒼白，呈嚴重貧血現象，往往於邊緣遲鈍地游動 主要由於放養過密，食料不足，可掌握魚種適當放養密度和加強飼料管理，使魚有充足的餌料 結 核 病 魚缺乏食慾、逐漸消瘦、背脊彎曲或呈拱形、胃部凹陷、體色蒼白、眼球突出及脫落、鱗片缺損、鰓部畸形、表皮發炎，鰭部受傳染，內臟停止運作並長出小結癤，病魚動作遲緩，游泳不正常 只有少數的抗生素具有療效，如四環素
球蟲病
眼球深陷及顯著消瘦，病魚挺起頭部，可看見黃色液體自肛門排出，當壓下患魚胃部，此情況更為明顯 水塘收集的紅蟲及玻璃蟲，常導致魚患此病，發生腸發炎，此病頗具傳染性，不能用藥療治癒，可從保護魚著手，避免使用紅蟲及玻璃蟲餌料，撈除病魚，消毒魚缸
魚鯉發炎症
發病初期，魚停止進食，病情持續下去，則充滿氣泡或濃液的胞囊在腹腔後端形成，使魚體膨脹，頭部豎立，包囊變大時，泳鰾有發炎、增厚的徵狀，當病情再惡化，鰾壁崩壞，感染內臟器官 此病具高度傳染性，由病毒引起，施用抗生素僅可減緩病情惡化，最好還是殺除病魚
霓虹燈魚病
魚體褪色消瘦、腹部乾癟、體側螢光帶斷落、肌肉變紅發亮，帶有乳白透明膜、行動呆滯及失去平衡、游泳不正常 尚未有已知的治療法，故當確定有魚罹患此病時，應迅速將其撈除，並消毒清理水族箱
--
孔雀魚-疾病與難病對策
撰文自一位朋友
疾 病 與 難 病 對 策
白點病
初期魚體出現數粒小白點，末期則全身佈滿白點，二次感染合併水黴病及細菌感染，至嚴重時，則藥石罔效。 投入適量甲基藍藥水，每10加侖水 4~8cc,無底砂配合過濾系統之容器，藥量宜減為二分之一至四分之一，或將患病的魚放在百分之一的食鹽水中，亦可治癒。(成蟲殺除難，但仔蟲殺除容易，故維持水中有效藥劑約7∼20天左右，即可完全撲滅)
黑點病
病魚頭部可見長形的淺黃色孢囊，其孢囊成熟時，呈黑色，即搖尾幼蟲與後囊幼蟲，它們亦侵襲魚體眼睛、肌肉、血管、鰓、內臟器官，若於眼睛的水晶體部位發現不透明的斑塊，則有可能受到感染 此病不具傳染性，但是會傷害肌肉組織及使眼睛受到或失明，嚴重時可致死，目前並無藥可癒，僅可用消毒過的針，或鑷子將蟲挑除
水黴菌病
受傷的表皮產生毛狀、絲狀菌絲，肉眼所見絲狀物即為已死的黴菌屍體，活的黴菌則寄生在皮膚及肌肉上。 投入適量甲基藍藥水，或將患病的魚放在百分之一的食鹽水、盤尼西林水溶液中，亦具效果。(受傷、搬運撈捕魚兒宜做預防措施) 爛 嘴 病 魚兒的嘴及頰部覆蓋白色附著物，鰭、鰓、口部最易感染。此病傳染力甚強，發病後數天，魚箱中的魚兒可能全滅。 可採用跟水黴菌病相同的治療法，或早一點塗抹多聚氰就有效。(若短時間內無法痊癒，每易造成抗藥性細菌，故使用藥劑時宜核對水量及用藥量，以正確治療)
爛爛鰭病尾
水質受到污染，或被其牠的魚兒咬傷，傷口受到感染，魚鰭一開始變白，惡化則會腐爛死亡。 投入適量甲基藍藥水、盤尼西林、綠F金或使用薄的食鹽水飼養。
鰓吸蟲寄生症
呼吸較急促，鰓蓋大開，鰓絲有腫脹與白化現象，不喜歡游動，有時具有使水箱魚兒全滅的傳染力。 利用福馬林溶劑，進行長期或短期藥浴，因成蟲撲滅容易，但蟲卵殺滅困難，會在三天後陸續孵出，可在水中保持萬用水、甲基藍藥水有效成份3~5天，殺滅幼蟲。
松果狀鱗腫 (立鱗病)
魚體發腫，魚鱗豎起，狀似松果，致病原因不明。 可在罹病初期，每10公升的水加入0.1gr的氯黴素，或每10公升的水加入3萬單位的盤尼西林溶液。
口絲蟲感染症
皮膚出現整片雲狀物灰色黏液的感染現象，大量口絲蟲寄生時，體表會出現一塊一塊破皮的血斑，魚鰭不張開，並且磨擦植物或底部，不進食而體重下降，常使病魚慵懶斜躺昏睡。 可採用跟白點病相同的治療法或每2公升的水加入1毫升的福馬林，浸浴15分鐘，亦可每100公升的水中加入1公克的叮啶黃素作約2天的浸浴，將水溫提高至30度c可幫助去除口絲蟲。
氣泡病
魚體表面或各魚鰭長出粒狀的氣泡會逐漸變大，如同水泡一般，得此病會使魚窒息或氣泡栓塞致死。發病原因是水中氧氣或氮氣過剩，初期僅需換水，則於短期內即可痊癒，嚴重時，可使用綠F金、硝酸糖棕等水溶液藥浴。
額頭穿孔症
在額頭及眼眶附近有一個或數個凹穴，伴有黴菌感染時，則會有白色絲狀物出現。 水質老舊的魚缸易罹患此病，故勤換水及清理魚缸可預防，臭頭藥粉、賀利沙民，同時進行藥浴口服及可生效。(早期治療容易，末期易引發死亡率)
鞭毛蟲病
食欲不佳，鰓部不動，鱗上出現泌血斑點，浮到水面。 每公升水加入15毫克的氯黴素及實施水質管理。
血行障礙症
血液不足，造成背鰭與臀鰭供血不良，導致細胞壞死，呈鋸齒狀殘缺但不會持續蝕爛，用爛尾病治療法也不見療效者。應注意水質情況及寄生蟲的問題，於水中加入抗菌劑，同時強化營養，短期內可以復原。
條蟲寄生症
腹部明顯腫大，壓之結實，有別於腹水或腹腫脹，內臟易受壓迫而失去功能，成魚易誤診為抱卵。口服腸內寄生蟲清除劑，早期發現，治療容易，蟲體過大時有暴腹之可能，若已侵入內臟器官則迴生乏術。
不孕症
卵巢的退行性變化、脂肪變性、卵巢囊腫、卵巢石化、腹水、泳鰾病變、體內寄生蟲感染、雄魚在維他命缺乏一段時間後，生殖力即永遠受損 魚類長期攝取脂肪過多的餌料，會發生脂肪變性，因此當魚進入繁殖期時應減少餵食投餌量，並於產卵之前絕食3∼5天，另外，使用煌綠、奎寧劑、叮啶黃、孔雀綠等，也會導致一時性的不孕
傳染性腹水病
此病有兩種症狀，即典型腹水病及潰瘍性腹水病，其疾病症狀眼球突出、眼睛衰退、肛門突出及發炎，鰓呈白色，嚴重爛鰭，並可看見表皮紅斑，腹腔可能積存膿液，使腹部腫脹，潰瘍性病症於潰瘍患處為紅色，被白色環圍著，存於發黑表皮下，鱗片脫落處，可見到膿腫 將氯黴素、鏈黴素、北里黴素等抗生素，以加入飼料方式治療，使肝臟增加負荷的飼料會助長此病，對於罹患此病的魚，應該立即撈除
錨蟲甲殼類寄生蟲
其頭部有一根錨狀物，會刺入魚體，體長約1.2公分，魚體外觀看來，如同長毛一般。 用鑷子將錨蟲逐一夾出，或置病魚於比重1.025的海水、食鹽水溶液之中，亦可在10公升的水裡加50mg的過錳酸鉀，也可使用底特松 (藥性劇烈的農藥)加以驅除。
魚虱甲殼類寄生蟲
呈圓盤形，直徑約5mm，會在水中游動，寄生魚體，吸取魚血，同時放出毒液，致使魚兒表皮發炎，變紅，魚變的好動，無法休息，魚鰭縮摺，磨擦缸中砂石、裝飾物，肉眼可見粉紅色中心的小紅點。 用鑷子將魚虱逐一夾出，或將病魚放入百分之一的食鹽水中，經過一、二天便可消除魚虱，亦可將100公升的水溶入1公克的高錳酸鈉，浸浴1小時。
線蟲
此頑疾由白色到棕色的線蟲所致，病魚變得呆滯、消瘦、停止進食，有時可看到線蟲懸掛於肛門外 對付線蟲是很困難的，可採用驅蟲劑，但對魚亦有毒害，最好是移開隔離或消滅病魚 水 蛭 細小的腔腸動物，約1公分，呈圓筒狀，口腔周圍有六、七根觸手，會吞食仔魚。 將魚移出魚箱，加高水溫至攝氏四十度以上，即可殺除水蛭。
蛭
對成魚不具威脅，但會吃魚卵和仔魚。 以高濃度食鹽水，浸漬魚箱，並攪拌刷洗底砂和岩石十分鐘，即可驅除蛭。
鉤頭蟲
少數的鉤頭蟲可能對魚的影響並不大，但是較重的感染使病魚消瘦、肛門發炎、蟲卵附在消化管道內，阻塞消化管道 此病是無法受到控制，因尚未有藥物能影響在腸道內的寄生蟲或其幼蟲，其預防感染的措失，是停止餵食淡水蝦、水蝨、昆蟲幼蟲，並將罹患此病的魚除去
雙身蟲
肉眼可見灰棕色的蟲狀生物，常見於鰓的邊緣，引發鰓部發炎、縮摺及流血，魚會頭朝上不停衝出水面 每1公升的水溶入15公克食鹽，做短時間浸浴，亦可每100公升的水溶入1公克的叮啶黃素或阿滌平，做長期藥浴、浸浴數天
變體病
到目前為止，仍未得到結論，根據病情猜測可能原因：一為水中含有重金屬鹽類，刺激魚的神經和肌肉收縮所致；另一為缺乏某種營養物質(如鈣和維生素等)而產生畸形 可換水數次，改良水質並加強飼料管理，多投餵含鈣質多，營養豐富的餌料，可減少此病發生
凍傷
溫度很低時，魚就會被凍傷，造成各魚鰭產生紅色血絲，影響魚類生活機能，嚴重時可引起死亡 放入保溫器材，並多投富脂肪餌料，以增加魚的抗寒能力
感冒
由於水溫的急遽變更，刺激神經末稍，引起概能混亂，行動失常，器官機能失調，甚至漂浮水面失去游動能力，嚴重時可使魚死亡 換水時，要注意兩個水體溫度的差異情況不可相差太大(魚苗不可超過2度C，魚種不可超過5度C
腫瘤
惡性腫瘤可分為五大類：軟骨、骨骼、肌肉、神經、心臟癌瘤，其皮膚腫瘤或上皮癌可發現生長於表皮及鱗片 良性腫瘤可因受外界刺激而形成，只需移走刺激物，通常會消失，惡性腫瘤則極少可治癒
萎癟症
病魚身體乾癟、頭大身小、體色發黑、背肌薄如刀刃、鰓絲蒼白，呈嚴重貧血現象，往往於邊緣遲鈍地游動 主要由於放養過密，食料不足，可掌握魚種適當放養密度和加強飼料管理，使魚有充足的餌料 結 核 病 魚缺乏食慾、逐漸消瘦、背脊彎曲或呈拱形、胃部凹陷、體色蒼白、眼球突出及脫落、鱗片缺損、鰓部畸形、表皮發炎，鰭部受傳染，內臟停止運作並長出小結癤，病魚動作遲緩，游泳不正常 只有少數的抗生素具有療效，如四環素
球蟲病
眼球深陷及顯著消瘦，病魚挺起頭部，可看見黃色液體自肛門排出，當壓下患魚胃部，此情況更為明顯 水塘收集的紅蟲及玻璃蟲，常導致魚患此病，發生腸發炎，此病頗具傳染性，不能用藥療治癒，可從保護魚著手，避免使用紅蟲及玻璃蟲餌料，撈除病魚，消毒魚缸
魚鯉發炎症
發病初期，魚停止進食，病情持續下去，則充滿氣泡或濃液的胞囊在腹腔後端形成，使魚體膨脹，頭部豎立，包囊變大時，泳鰾有發炎、增厚的徵狀，當病情再惡化，鰾壁崩壞，感染內臟器官 此病具高度傳染性，由病毒引起，施用抗生素僅可減緩病情惡化，最好還是殺除病魚
霓虹燈魚病
魚體褪色消瘦、腹部乾癟、體側螢光帶斷落、肌肉變紅發亮，帶有乳白透明膜、行動呆滯及失去平衡、游泳不正常 尚未有已知的治療法，故當確定有魚罹患此病時，應迅速將其撈除，並消毒清理水族箱
2014年5月25日 星期日
vbnet save xml / read xml
參考:How to save a DataSet as an XML file
參考:How Can write a DataSet as XML through VB.Net & C#?
參考:Export Datatable to xml
參考 MSDN:DataTable.WriteXml 方法
-------------
vb net datatable to xml
#1
Dim dt As New DataTable
dt.Columns.Add(New DataColumn("Column1"))
dt.Columns.Add(New DataColumn("Column2"))
Dim r = dt.NewRow
r.Item(0) = "Value1"
r.Item(1) = "Value2"
dt.Rows.Add(r)
r = dt.NewRow
r.Item(0) = "Value3"
r.Item(1) = "Value4"
dt.Rows.Add(r)
Dim ds As New DataSet
ds.Tables.Add(dt)
Dim simpleresult As String = ds.GetXml
Dim result As String
Using ms As New IO.MemoryStream()
ds.WriteXml(ms, System.Data.XmlWriteMode.WriteSchema)
result = System.Text.Encoding.UTF8.GetString(ms.ToArray)
End Using
#2
Private Sub btnWriteXMLData_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnWriteXMLData.Click
Dim dsSales As New DataSet()
Dim cn As New SqlConnection _
("data source=localhost;initial catalog=pubs;user id=sa")
Dim daAuthors As New SqlDataAdapter("select * from sales ", cn)
Dim daPublishers As New SqlDataAdapter("select * from stores ", cn)
' Load data from database
daAuthors.Fill(dsSales, "Sales")
daPublishers.Fill(dsSales, "Stores")
' Write XML to file
dsSales.WriteXml("XMLFile.xml")
End Sub
#3
Dim SB As New StringBuilder
Dim SW As New IO.StringWriter(SB)
Items.WriteXml(SW, Data.XmlWriteMode.WriteSchema)
#4
Dim ds As DataSet
' ... Fill the DataSet with data from your database ...
ds.WriteXml("XML/MyData.xml", XmlWriteMode.WriteSchema)
Dim ds As DataSet = new DataSet()
ds.ReadXml("XML/MyData.xml", XmlReadMode.ReadSchema)
#5
DS.Tables(0).DefaultView.Sort = "ID ASC"
Dim outputDataTable = DS.Tables(0).DefaultView.ToTable()
outputDataTable.WriteXml("c:\blah\user.xml")
參考:How Can write a DataSet as XML through VB.Net & C#?
參考:Export Datatable to xml
參考 MSDN:DataTable.WriteXml 方法
-------------
vb net datatable to xml
#1
Dim dt As New DataTable
dt.Columns.Add(New DataColumn("Column1"))
dt.Columns.Add(New DataColumn("Column2"))
Dim r = dt.NewRow
r.Item(0) = "Value1"
r.Item(1) = "Value2"
dt.Rows.Add(r)
r = dt.NewRow
r.Item(0) = "Value3"
r.Item(1) = "Value4"
dt.Rows.Add(r)
Dim ds As New DataSet
ds.Tables.Add(dt)
Dim simpleresult As String = ds.GetXml
Dim result As String
Using ms As New IO.MemoryStream()
ds.WriteXml(ms, System.Data.XmlWriteMode.WriteSchema)
result = System.Text.Encoding.UTF8.GetString(ms.ToArray)
End Using
#2
Private Sub btnWriteXMLData_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnWriteXMLData.Click
Dim dsSales As New DataSet()
Dim cn As New SqlConnection _
("data source=localhost;initial catalog=pubs;user id=sa")
Dim daAuthors As New SqlDataAdapter("select * from sales ", cn)
Dim daPublishers As New SqlDataAdapter("select * from stores ", cn)
' Load data from database
daAuthors.Fill(dsSales, "Sales")
daPublishers.Fill(dsSales, "Stores")
' Write XML to file
dsSales.WriteXml("XMLFile.xml")
End Sub
#3
Dim SB As New StringBuilder
Dim SW As New IO.StringWriter(SB)
Items.WriteXml(SW, Data.XmlWriteMode.WriteSchema)
#4
Dim ds As DataSet
' ... Fill the DataSet with data from your database ...
ds.WriteXml("XML/MyData.xml", XmlWriteMode.WriteSchema)
Dim ds As DataSet = new DataSet()
ds.ReadXml("XML/MyData.xml", XmlReadMode.ReadSchema)
#5
DS.Tables(0).DefaultView.Sort = "ID ASC"
Dim outputDataTable = DS.Tables(0).DefaultView.ToTable()
outputDataTable.WriteXml("c:\blah\user.xml")
訂閱：
文章 (Atom)