vb.net實(shí)驗(yàn)五的簡單介紹

用vb.net 怎樣建立一個(gè)mdb數(shù)據(jù)庫及一張表

首先在項(xiàng)目的VB.NET界面，使用菜單【項(xiàng)目】--【添加引用】--【COM】

創(chuàng)新互聯(lián)建站專注于鄲城網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠為您提供鄲城營銷型網(wǎng)站建設(shè)，鄲城網(wǎng)站制作、鄲城網(wǎng)頁設(shè)計(jì)、鄲城網(wǎng)站官網(wǎng)定制、成都微信小程序服務(wù)，打造鄲城網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供鄲城網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。

選擇 ?Microsoft ADO Ext. 2.x for DDL and Security

然后單擊【確定】，完成引用。

完整代碼如下：

Imports?ADOX

Public?Class?Form1

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

'創(chuàng)建空的access數(shù)據(jù)庫文件--數(shù)據(jù)庫文件.mdb，密碼為123

Dim?Mycat?As?Catalog?=?New?Catalog()

Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet?OLEDB:Engine?Type=5;Data?Source=?數(shù)據(jù)庫文件.mdb;Jet?OLEDB:Database?Password=123")

'以下代碼創(chuàng)建一個(gè)名為“實(shí)驗(yàn)數(shù)據(jù)表”

Dim?MyTable?As?ADOX.Table?=?New?ADOX.Table?????????'定義新表

MyTable.Name?=?"實(shí)驗(yàn)數(shù)據(jù)表"????'表命名

'給表“實(shí)驗(yàn)數(shù)據(jù)表”?創(chuàng)建一個(gè)字符串字段，字段名“姓名”

MyTable.Columns.Append("姓名",?,?ADOX.DataTypeEnum.adWChar)

'給表“實(shí)驗(yàn)數(shù)據(jù)表”?創(chuàng)建一個(gè)整數(shù)字段，字段名“學(xué)號(hào)”

MyTable.Columns.Append("學(xué)號(hào)",?ADOX.DataTypeEnum.adInteger)????'追加一個(gè)數(shù)字型字段

'給字段“學(xué)號(hào)”創(chuàng)建一個(gè)主鍵“PimaryKey_Field”????????

MyTable.Keys.Append("學(xué)號(hào)",?ADOX.KeyTypeEnum.adKeyPrimary,?"學(xué)號(hào)")

Mycat.Tables.Append(MyTable)?'把所有的新字段追加到表

MyTable?=?Nothing

Mycat?=?Nothing

End?Sub

End?Class

VB.NET使用fileput寫入數(shù)據(jù)時(shí),如何避免刪除文件中已有的內(nèi)容

用System.IO.File中的靜態(tài)函數(shù)AppendText獲得一個(gè)StreamWriter，然后用Write或WriteLine函數(shù)寫入一些字符串，最后寫入流并關(guān)閉它。

Dim sw As StreamWriter = System.IO.File.AppendText("textfile.txt")

Using sw

sw.Write("This is ") '僅寫入字符串

sw.WriteLine("line 1.") '寫入字符串并自動(dòng)寫入換行符

sw.Flush() '寫入流

End Using '這里釋放了資源

VB.net的開方運(yùn)算

VB的運(yùn)算順序是：先乘除、后加減，有括號(hào)的先算括號(hào)內(nèi)，有負(fù)號(hào)的先算負(fù)號(hào)。

請(qǐng)你比較一下這個(gè)運(yùn)算中x和y的值：

Dim n As Single = 4

Dim x As Single

Dim y As Single

x = n + 1

x = x / n

x = x - 1

x = Math.Sqrt(x)

y = Math.Sqrt((n + 1) / n - 1)

這樣就會(huì)發(fā)現(xiàn)，你的代碼中括號(hào)的位置錯(cuò)了。

正確的應(yīng)該是： Math.Sqrt((n + 1) / n - 1)

本文題目：vb.net實(shí)驗(yàn)五的簡單介紹
分享網(wǎng)址：http://muchs.cn/article10/doespdo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供電子商務(wù)、網(wǎng)站制作、品牌網(wǎng)站制作、網(wǎng)站改版、企業(yè)網(wǎng)站制作、外貿(mào)網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)