首先在項目的VB.NET界面,使用菜單【項目】--【添加引用】--【COM】
成都創新互聯公司于2013年開始,是專業互聯網技術服務公司,擁有項目做網站、成都做網站網站策劃,項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命,1280元嶧城做網站,已為上家服務,為嶧城各地企業和個人服務,聯系電話:028-86922220
選擇 ?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
'創建空的access數據庫文件--數據庫文件.mdb,密碼為123
Dim?Mycat?As?Catalog?=?New?Catalog()
Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet?OLEDB:Engine?Type=5;Data?Source=?數據庫文件.mdb;Jet?OLEDB:Database?Password=123")
'以下代碼創建一個名為“實驗數據表”
Dim?MyTable?As?ADOX.Table?=?New?ADOX.Table?????????'定義新表
MyTable.Name?=?"實驗數據表"????'表命名
'給表“實驗數據表”?創建一個字符串字段,字段名“姓名”
MyTable.Columns.Append("姓名",?,?ADOX.DataTypeEnum.adWChar)
'給表“實驗數據表”?創建一個整數字段,字段名“學號”
MyTable.Columns.Append("學號",?ADOX.DataTypeEnum.adInteger)????'追加一個數字型字段
'給字段“學號”創建一個主鍵“PimaryKey_Field”????????
MyTable.Keys.Append("學號",?ADOX.KeyTypeEnum.adKeyPrimary,?"學號")
Mycat.Tables.Append(MyTable)?'把所有的新字段追加到表
MyTable?=?Nothing
Mycat?=?Nothing
End?Sub
End?Class
你應該在調試的時候在你的把一條帶入了參數值的insert語句弄來看看,就能很快看出問題在哪里。另外[date]字段(這個地方最好用個中括號擴起來,敏感字符串喲!
如果實在不好弄寫各存儲過程吧。在Acess里面寫一個添加查詢吧。用
沒有寫完吧
Try
sqlcom.ExecuteNonQuery()
Catch?ae?As?SqlException
msgbox("fail")
End?Try
標題名稱:vb.net添加表,vb添加表格控件
當前網址:http://m.newbst.com/article6/hseeog.html
成都網站建設公司_創新互聯,為您提供建站公司、品牌網站建設、Google、網站策劃、移動網站建設、用戶體驗
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯