vb.net如何创建mdb文件并设置密码 用vb.net 怎样建立一个mdb数据库及一张表
\u6c42VB.NET2010\u8fde\u63a5MDB\u6570\u636e\u5e93\u540e\uff0c\u6dfb\u52a0\u3001\u4fee\u6539\u548c\u5220\u9664\u7b49\u5199\u6cd5\u793a\u4f8b\u5f15\u7528 Microsoft ActiveX Data Objects 2.8 Library
\u6216\u8005\u52a0\u5165microsoft ado data control
\u5b9a\u4e49\u6570\u636e\u5e93\u8fde\u63a5
Dim Cnn As New ADODB.Connection
\u5b9a\u4e49\u64cd\u4f5c\u8bb0\u5f55
Dim Res As New ADODB.Recordset
\u5f00\u59cb\u4f7f\u7528
If Res.State = 1 Then Res.Close
Res.CursorLocation = adUseClient
Res.Open "SELECT * From \u53d1\u7968\u8868", Cnn, adOpenDynamic, adLockReadOnly
\u5220\u9664\u7528res.Delete
\u6dfb\u52a0\u7528res.AddNew
res.Fields("\u5e8f\u53f7") = Trim(Res.Fields("\u5e8f\u53f7"))
...
res.Update
\u66f4\u65b0\u7528Res.Update "\u5e8f\u53f7", 111
\u5217\uff1a
'\u5199\u5165\u4ea7\u54c1\u4fe1\u606f
Sub WriteFP()
'On Error Resume Next
Dim SyBaseRes As New ADODB.Recordset
PB.value = 0
Res.Open "SELECT Count(*) From ICSaleEntry INNER JOIN t_Item ON ICSaleEntry.FItemID = t_Item.FItemID INNER JOIN t_MeasureUnit ON ICSaleEntry.FUnitID = t_MeasureUnit.FMeasureUnitID", SQLServer, adOpenDynamic, adLockReadOnly
Text2.Text = "\u5f53\u524d\u5171 " & Val(Res.Fields(0)) & "\u6761\u6570\u636e"
PB.Max = Val(Res.Fields(0))
If Res.State = 1 Then Res.Close
Res.Open "SELECT ICSaleEntry.FDetailID AS \u5e8f\u53f7,ICSaleEntry.FInterID AS \u7269\u6599\u7f16\u53f7, t_Item.FName AS \u4ea7\u54c1\u540d\u79f0,ICSaleEntry.FAuxPrice AS \u5355\u4ef7, ICSaleEntry.FAuxQty AS \u6570\u91cf,ICSaleEntry.FAmount AS \u539f\u5e01, ICSaleEntry.FStdAmount AS \u672c\u5e01,t_MeasureUnit.FName AS \u5355\u4f4d FROM ICSaleEntry INNER JOIN t_Item ON ICSaleEntry.FItemID = t_Item.FItemID INNER JOIN t_MeasureUnit ON ICSaleEntry.FUnitID = t_MeasureUnit.FMeasureUnitID", SQLServer, adOpenDynamic, adLockReadOnly
Do While Not Res.EOF
If SyBaseRes.State = 1 Then SyBaseRes.Close
SyBaseRes.Open "select * from \u7269\u6599\u8868 where \u5e8f\u53f7='" & Res.Fields("\u5e8f\u53f7") & "'", Cnn, adOpenDynamic, adLockOptimistic
If SyBaseRes.EOF Then
Text2.Text = Text2.Text + vbCrLf + "\u6b63\u5728\u6dfb\u52a0: " & Trim(Res.Fields("\u5e8f\u53f7"))
SyBaseRes.AddNew
SyBaseRes.Fields("\u5e8f\u53f7") = Trim(Res.Fields("\u5e8f\u53f7"))
SyBaseRes.Fields("\u4ea7\u54c1\u7f16\u53f7") = Trim(Res.Fields("\u7269\u6599\u7f16\u53f7"))
SyBaseRes.Fields("\u4ea7\u54c1\u540d\u79f0") = Trim(Res.Fields("\u4ea7\u54c1\u540d\u79f0"))
SyBaseRes.Fields("\u5355\u4ef7") = Trim(Res.Fields("\u5355\u4ef7"))
SyBaseRes.Fields("\u6570\u91cf") = Trim(Res.Fields("\u6570\u91cf"))
SyBaseRes.Fields("\u539f\u5e01") = Trim(Res.Fields("\u539f\u5e01"))
SyBaseRes.Fields("\u672c\u5e01") = Trim(Res.Fields("\u672c\u5e01"))
SyBaseRes.Fields("\u5355\u4f4d") = Trim(Res.Fields("\u5355\u4f4d"))
SyBaseRes.Fields("\u6570\u636e\u5e93\u540d") = Trim(Text1.Text)
SyBaseRes.Update
Else
Text2.Text = Text2.Text + vbCrLf + "\u6b63\u5728\u66f4\u65b0: " & Trim(Res.Fields("\u5e8f\u53f7"))
SyBaseRes.Update "\u5e8f\u53f7", Trim(Res.Fields("\u5e8f\u53f7"))
SyBaseRes.Update "\u4ea7\u54c1\u7f16\u53f7", Trim(Res.Fields("\u7269\u6599\u7f16\u53f7"))
SyBaseRes.Update "\u4ea7\u54c1\u540d\u79f0", Trim(Res.Fields("\u4ea7\u54c1\u540d\u79f0"))
SyBaseRes.Update "\u5355\u4ef7", Trim(Res.Fields("\u5355\u4ef7"))
SyBaseRes.Update "\u6570\u91cf", Trim(Res.Fields("\u6570\u91cf"))
SyBaseRes.Update "\u539f\u5e01", Trim(Res.Fields("\u539f\u5e01"))
SyBaseRes.Update "\u672c\u5e01", Trim(Res.Fields("\u672c\u5e01"))
SyBaseRes.Update "\u5355\u4f4d", Trim(Res.Fields("\u5355\u4f4d"))
SyBaseRes.Update "\u6570\u636e\u5e93\u540d", Trim(Text1.Text)
End If
PB.value = PB.value + 1
Res.MoveNext
DoEvents
Loop
If SyBaseRes.State = 1 Then SyBaseRes.Close
Set SyBaseRes = Nothing
End Sub
\u7f51\u7edc\u5e0c\u671b\u4e0d\u8981\u7528ACCESS\u7528ASA\uff08\u5c31\u662fsybase\u90a3\u4e2a\u592a\u5f3a\u4e86\uff09
\u9996\u5148\u5728\u9879\u76ee\u7684VB.NET\u754c\u9762\uff0c\u4f7f\u7528\u83dc\u5355\u3010\u9879\u76ee\u3011--\u3010\u6dfb\u52a0\u5f15\u7528\u3011--\u3010COM\u3011
\u9009\u62e9 Microsoft ADO Ext. 2.x for DDL and Security
\u7136\u540e\u5355\u51fb\u3010\u786e\u5b9a\u3011\uff0c\u5b8c\u6210\u5f15\u7528\u3002
\u5b8c\u6574\u4ee3\u7801\u5982\u4e0b\uff1a
Imports ADOXPublic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '\u521b\u5efa\u7a7a\u7684access\u6570\u636e\u5e93\u6587\u4ef6--\u6570\u636e\u5e93\u6587\u4ef6.mdb\uff0c\u5bc6\u7801\u4e3a123 Dim Mycat As Catalog = New Catalog() Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= \u6570\u636e\u5e93\u6587\u4ef6.mdb;Jet OLEDB:Database Password=123") '\u4ee5\u4e0b\u4ee3\u7801\u521b\u5efa\u4e00\u4e2a\u540d\u4e3a\u201c\u5b9e\u9a8c\u6570\u636e\u8868\u201d Dim MyTable As ADOX.Table = New ADOX.Table '\u5b9a\u4e49\u65b0\u8868 MyTable.Name = "\u5b9e\u9a8c\u6570\u636e\u8868" '\u8868\u547d\u540d '\u7ed9\u8868\u201c\u5b9e\u9a8c\u6570\u636e\u8868\u201d \u521b\u5efa\u4e00\u4e2a\u5b57\u7b26\u4e32\u5b57\u6bb5\uff0c\u5b57\u6bb5\u540d\u201c\u59d3\u540d\u201d MyTable.Columns.Append("\u59d3\u540d", , ADOX.DataTypeEnum.adWChar) '\u7ed9\u8868\u201c\u5b9e\u9a8c\u6570\u636e\u8868\u201d \u521b\u5efa\u4e00\u4e2a\u6574\u6570\u5b57\u6bb5\uff0c\u5b57\u6bb5\u540d\u201c\u5b66\u53f7\u201d MyTable.Columns.Append("\u5b66\u53f7", ADOX.DataTypeEnum.adInteger) '\u8ffd\u52a0\u4e00\u4e2a\u6570\u5b57\u578b\u5b57\u6bb5 '\u7ed9\u5b57\u6bb5\u201c\u5b66\u53f7\u201d\u521b\u5efa\u4e00\u4e2a\u4e3b\u952e\u201cPimaryKey_Field\u201d MyTable.Keys.Append("\u5b66\u53f7", ADOX.KeyTypeEnum.adKeyPrimary, "\u5b66\u53f7") Mycat.Tables.Append(MyTable) '\u628a\u6240\u6709\u7684\u65b0\u5b57\u6bb5\u8ffd\u52a0\u5230\u8868 MyTable = Nothing Mycat = Nothing End SubEnd Class
首先在项目的VB.NET界面，使用菜单【项目】--【添加引用】--【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
'创建空的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
绛旓細棣栧厛鍦ㄩ」鐩殑VB.NET鐣岄潰锛浣跨敤鑿滃崟銆愰」鐩--銆愭坊鍔犲紩鐢ㄣ--銆怌OM銆戦夋嫨 Microsoft ADO Ext. 2.x for DDL and Security 鐒跺悗鍗曞嚮銆愮‘瀹氥锛屽畬鎴愬紩鐢ㄣ傚畬鏁翠唬鐮佸涓嬶細Imports ADOXPublic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) H...
绛旓細1銆侀鍏堬紝浣犲緱鍋氫竴涓猳ledbconnection瀵硅薄锛岃繖涓璞℃湁涓繛鎺ュ瓧绗︿覆鐨勫睘鎬э紝浣犻渶瑕佽缃 2銆佸仛涓涓猳ledbcommand瀵硅薄锛岃繖涓璞℃湁涓搷浣滃瓧绗︿覆锛圫QL璇彞锛夐渶瑕佽缃 3銆佹墦寮oledbconnection瀵硅薄 4銆佹墽琛宱ledbcommand瀵硅薄 5銆佸叧闂璷ledbconnection瀵硅薄 绋嬪簭缁撴潫锛屽笇鏈涘浣犳湁甯姪 ...
绛旓細涓鑸槸灏哸ccess鏁版嵁搴撶粦瀹氬埌datagridview涓紝瑕佹坊鍔犳暟鎹彧闇瑕乨atagridview1.Item(3, 0).Value=XXX杩欑灏辫浜锛屽垹闄や慨鏀瑰悓鐞嗐備繚瀛樺埌access鏄綘宸茬粡鏈変簡涓涓猘ccess琛ㄥ惂锛熶笉鐒跺瓧娈甸兘瑕佹柊寤虹殑銆傚鏋滆淇濆瓨鍒版暟鎹簱鐨勮瘽灏辫皟鐢╯ql璇彞閾炬帴鏁版嵁搴撲簡锛屾垜鎵句釜浠ュ墠鐨勪唬鐮 Dim OleDbConn As OleDbConnection = ...
绛旓細鍗曞嚮鑿滃崟鈥滃伐绋-寮曠敤鈥濓紝鎵撳紑寮曠敤瀵硅瘽妗嗭紝閫夋嫨鈥淢icrosoft ActiveX Data Objects 2.0 Library鈥濓紝灏嗗叾鍕鹃夛紝锛堜互2.0鐗堟湰涓轰緥锛屽疄闄呭彲浠ラ夋嫨绯荤粺涓殑鏈楂樼増鏈鏈汉鐨勫氨鏄2.6鐗堟湰锛夛紝鐒跺悗鍦ㄥ綋鍓嶇洰褰曚笅寤虹珛涓涓悕涓衡滃鐢熲濈殑ACCESS鏁版嵁搴擄紝
绛旓細Public cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\mdb鏁版嵁搴撳悕瀛.mdb") '瀹氫箟杩炴帴 Public DataBaseRST As Integer '鐢ㄦ潵杩斿洖鏁版嵁搴撴墽琛岀粨鏋 Public Function DataModify(ByVal str As String) As Boolean '杩涜鏁版嵁搴撲慨鏀规搷浣...
绛旓細Dim sql, conn_str As String 'conn_str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Documents\Visual Studio 2008\浠撳簱\WindowsApplication1\ck.mdb;Persist Security Info=False "conn_str = ConfigurationManager.ConnectionStrings("myconnectionstring").ConnectionString sql = "select ...
绛旓細'鍒涘缓涓涓暟鎹繛鎺 Dim strCon As String = " Provider = Microsoft.Jet.OLEDB.4.0 ;Data Source = db.mdb "Dim myConn As OleDbConnection = New OleDbConnection ( )myConn.ConnectionString = strCon Dim strCom ...
绛旓細1銆侀鍏堝湪鐢佃剳涓婄偣鍑绘墦寮ACCESS搴旂敤绋嬪簭锛屾帴鐫鍦ㄦ椤甸潰鍐呯偣鍑诲乏渚х殑鈥滄墦寮鍏朵粬鏂囦欢鈥濄2銆佹帴鐫鍦ㄦ墦寮鐨勯〉闈腑鐨勨滄墦寮鈥濇爮鐩笅鐐瑰嚮鈥滆绠楁満鈥濓紝鎺ョ潃鍐嶇偣鍑诲彸渚х殑鈥滄祻瑙堚濋夐」銆3銆佺劧鍚庡湪寮瑰嚭鏉ョ殑瀵硅瘽妗嗗唴鐐瑰嚮閫変腑瑕佽繘琛屾搷浣滅殑mdb鏂囦欢锛岀劧鍚庣偣鍑讳笅鏂圭殑鈥滄墦寮鈥濄4銆佺劧鍚庡湪姝ら〉闈㈠唴鐐瑰嚮宸︿晶妗嗗唴鐨勨渢-u...
绛旓細鐢变簬 娌℃湁VS2010锛屽彧鑳界畝鍗曞啓鍑犲彞浠ｇ爜銆傜敤ODBC杩炴帴鏁版嵁姣旇緝鏂逛究锛屼綘棣栧厛瑕佸紩鐢╯ystem.data鍜宻ystem.data.odbc dim cn as odbcconnection cn=new odbcconnection("driver={microsoft access driver (*.mdb)};uid=admin;pwd=;dbq=鏁版嵁搴撹矾寰刓鏁版嵁搴撳悕.mdb")dim tsql as string tsql="select username ...
绛旓細涓銆丒ntity Framework 锛圗F锛夊紩鐢ㄤ簡EF鍚庯紝鍦‥F 鐨刣atacontext灏嗕綘鐨刟ccess鏁版嵁搴撻厤缃笂銆備綘鐨勫鍒犳敼鏌ョ瓑閮介渶瑕佷綘鍦ㄤ笟鍔′腑鍘诲畾涔夈俤atagridview鎺т欢鏄疻inform閲岄潰鐨勫惂锛屼綘鍙鍦ㄦ暟鎹簱瀹氫箟鐨勬椂鍊欐瘡鏉℃暟鎹兘鏈変竴涓掑鐨処D锛岀劧鍚庝綘鏄剧ず鏁版嵁鐨勬椂鍊欓『搴忎娇鐢↖D desc灏辫浜嗐備簩銆 ADO.net 鍋氫釜Accesshelper绫伙紝...
