vb.net如何創(chuàng)建mdb文件并設(shè)置密碼

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

隴縣網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)！從網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、成都響應(yīng)式網(wǎng)站建設(shè)公司等網(wǎng)站項目制作，到程序開發(fā)，運營維護。創(chuàng)新互聯(lián)從2013年創(chuàng)立到現(xiàn)在10年的時間，我們擁有了豐富的建站經(jīng)驗和運維經(jīng)驗，來保證我們的工作的順利進行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)。

選擇 ?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)建一個名為“實驗數(shù)據(jù)表”

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

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

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

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

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

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

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

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

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

MyTable?=?Nothing

Mycat?=?Nothing

End?Sub

End?Class

VB.NET設(shè)置用戶名,密碼?

If TextBox1.Text = "123" TextBox2.Text = "123" Then

改成 If TextBox1.Text = "123" and TextBox2.Text = "123" Then

vb.net中修改用戶密碼

以下這里有錯誤：

Dim mysqlstr As String = "SELECT * FROM 登錄表 WHERE users='" username " 'AND password='" userpassword " '"

修改為：

Dim mysqlstr As String = "SELECT * FROM 登錄表 WHERE users='" username "' AND password='" userpassword "'"

分享文章：vb.net設(shè)置密碼,vb編寫密碼程序
當前網(wǎng)址：http://chinadenli.net/article20/hechco.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供外貿(mào)建站、品牌網(wǎng)站設(shè)計、網(wǎng)站導(dǎo)航、自適應(yīng)網(wǎng)站、網(wǎng)站改版、面包屑導(dǎo)航

廣告

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