1、點(diǎn)擊VS工具。
網(wǎng)站建設(shè)哪家好,找創(chuàng)新互聯(lián)!專注于網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開(kāi)發(fā)、小程序定制開(kāi)發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了隴川免費(fèi)建站歡迎大家使用!
2、打開(kāi)后,新建一個(gè)Windows窗體應(yīng)用程序。
3、新建完畢后,如圖所示。
4、拖動(dòng)一個(gè)按鈕。
5、定義數(shù)組最常見(jiàn)的方法,如圖示。
6、運(yùn)行后,點(diǎn)擊按鈕,彈出提示正常。
7、定義數(shù)組第二種方法,屬于動(dòng)態(tài)的方法。
8、運(yùn)行后,點(diǎn)擊按鈕,數(shù)組成功輸出。
首先在項(xiàng)目的VB.NET界面,使用菜單【項(xiàng)目】--【添加引用】--【COM】
選擇 ?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ù)庫(kù)文件--數(shù)據(jù)庫(kù)文件.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ù)庫(kù)文件.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
追問(wèn): 只有那個(gè)辦法? 回答: 是,這跟SQL Server不同,ACCESS是獨(dú)立文件的,而且它能支持的SQL語(yǔ)句有限,一般是使用ACCESS來(lái)創(chuàng)建,若要?jiǎng)討B(tài)創(chuàng)建,只能用ADO了,但Sql Server就不同了,它可以執(zhí)行復(fù)雜的SQL語(yǔ)句,相對(duì)來(lái)說(shuō),動(dòng)態(tài)創(chuàng)建數(shù)據(jù)庫(kù)和表,要比ACCESS方便。 追問(wèn): 創(chuàng)建表的話能用SQL語(yǔ)句了嗎? 回答: 沒(méi)試過(guò),應(yīng)該不行 追問(wèn): 那你能告訴我下怎么創(chuàng)建表嗎?創(chuàng)建數(shù)據(jù)庫(kù)我會(huì)了 回答: 可以使用DAO對(duì)象來(lái)操作,注意是DAO對(duì)象,不是ADO對(duì)象! 追問(wèn): 能不能詳細(xì)說(shuō)下過(guò)程呢?創(chuàng)建表的過(guò)程 回答: 創(chuàng)建表的過(guò)程用DAO.net和ADO.net都可以,創(chuàng)建數(shù)據(jù)庫(kù)可以用DAO對(duì)象,既然你已經(jīng)可以創(chuàng)建數(shù)據(jù)庫(kù),那么創(chuàng)建表只要先連接到這個(gè)數(shù)據(jù)庫(kù),然后用create table語(yǔ)句來(lái)執(zhí)行就行了,可以使用OledbConnection先連接這個(gè)庫(kù),接著用OledbCommand對(duì)象的ExecuteNonQuery來(lái)執(zhí)行create table語(yǔ)句即可。
是否可以解決您的問(wèn)題?
if object_id('primarytbl') is not null drop table primarytblgo --建主表create table primarytbl( ID int primary key, --主鍵 aa int, bb int, cc int)go if object_id('foreigntbl') is not null drop table foreigntblgo --建外表create table foreigntbl( ID int primary key, --主鍵 aa int foreign key references primarytbl(ID) --建立外鍵 on update cascade, --更新級(jí)聯(lián) dd int, ee int)go --插入主表數(shù)據(jù)insert into primarytblselect 1, 1, 2, 3 union allselect 2, 2, 3, 4 union allselect 3, 3, 4, 5 union allselect 4, 4, 5, 6 union allselect 5, 5, 6, 7 union allselect 6, 6, 7, 8go --插入外表數(shù)據(jù)insert into foreigntblselect 1, 1, 2, 2 union allselect 2, 1, 3, 3 union allselect 3, 2, 4, 4 union allselect 4, 2, 4, 4 union allselect 5, 2, 5, 5 union allselect 6, 3, 6, 6 union allselect 7, 4, 7, 7go --顯示主外表信息select *from primarytbl select *from foreigntblgo--primarytbl/*ID aa bb cc----------- ----------- ----------- -----------1 1 2 32 2 3 43 3 4 54 4 5 65 5 6 76 6 7 8--foreigntblID aa dd ee----------- ----------- ----------- -----------1 1 2 22 1 3 33 2 4 44 2 4 45 2 5 56 3 6 67 4 7 7*/ --更新主表主鍵update primarytblset ID = 8where ID =1go --結(jié)果select *from primarytbl select *from foreigntblgo /*--primarytblID aa bb cc----------- ----------- ----------- -----------2 2 3 43 3 4 54 4 5 65 5 6 76 6 7 88 1 2 3--foreigntblID aa dd ee----------- ----------- ----------- -----------1 8 2 22 8 3 33 2 4 44 2 4 45 2 5 56 3 6 67 4 7 7*/ drop table foreigntbldrop table primarytbl
所謂主鍵,指的就是主關(guān)鍵字。在一個(gè)表中只能有唯一的一個(gè)主關(guān)鍵字。
當(dāng)你覺(jué)得需要定義多個(gè)主鍵時(shí),多半是你對(duì)該表及其周邊關(guān)系的理解有誤。
本文名稱:vb.net定義主鍵,vb訪問(wèn)鍵
URL標(biāo)題:http://jinyejixie.com/article24/hsidje.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供全網(wǎng)營(yíng)銷推廣、軟件開(kāi)發(fā)、服務(wù)器托管、商城網(wǎng)站、自適應(yīng)網(wǎng)站、面包屑導(dǎo)航
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)