VB.NET如何生成ACCESS数据库？并生成表。 VB.NET 用vb.net 怎样建立一个mdb数据库及一张表
vb.net\u600e\u4e48\u52a8\u6001\u521b\u5efaaccess\u6570\u636e\u5e93\u548c\u8868\u8ffd\u95ee\uff1a \u53ea\u6709\u90a3\u4e2a\u529e\u6cd5\uff1f \u56de\u7b54\uff1a \u662f\uff0c\u8fd9\u8ddfSQL Server\u4e0d\u540c\uff0cACCESS\u662f\u72ec\u7acb\u6587\u4ef6\u7684\uff0c\u800c\u4e14\u5b83\u80fd\u652f\u6301\u7684SQL\u8bed\u53e5\u6709\u9650\uff0c\u4e00\u822c\u662f\u4f7f\u7528ACCESS\u6765\u521b\u5efa\uff0c\u82e5\u8981\u52a8\u6001\u521b\u5efa\uff0c\u53ea\u80fd\u7528ADO\u4e86\uff0c\u4f46Sql Server\u5c31\u4e0d\u540c\u4e86\uff0c\u5b83\u53ef\u4ee5\u6267\u884c\u590d\u6742\u7684SQL\u8bed\u53e5\uff0c\u76f8\u5bf9\u6765\u8bf4\uff0c\u52a8\u6001\u521b\u5efa\u6570\u636e\u5e93\u548c\u8868\uff0c\u8981\u6bd4ACCESS\u65b9\u4fbf\u3002 \u8ffd\u95ee\uff1a \u521b\u5efa\u8868\u7684\u8bdd\u80fd\u7528SQL\u8bed\u53e5\u4e86\u5417\uff1f \u56de\u7b54\uff1a \u6ca1\u8bd5\u8fc7\uff0c\u5e94\u8be5\u4e0d\u884c \u8ffd\u95ee\uff1a \u90a3\u4f60\u80fd\u544a\u8bc9\u6211\u4e0b\u600e\u4e48\u521b\u5efa\u8868\u5417\uff1f\u521b\u5efa\u6570\u636e\u5e93\u6211\u4f1a\u4e86 \u56de\u7b54\uff1a \u53ef\u4ee5\u4f7f\u7528DAO\u5bf9\u8c61\u6765\u64cd\u4f5c\uff0c\u6ce8\u610f\u662fDAO\u5bf9\u8c61\uff0c\u4e0d\u662fADO\u5bf9\u8c61\uff01 \u8ffd\u95ee\uff1a \u80fd\u4e0d\u80fd\u8be6\u7ec6\u8bf4\u4e0b\u8fc7\u7a0b\u5462\uff1f\u521b\u5efa\u8868\u7684\u8fc7\u7a0b \u56de\u7b54\uff1a \u521b\u5efa\u8868\u7684\u8fc7\u7a0b\u7528DAO.net\u548cADO.net\u90fd\u53ef\u4ee5\uff0c\u521b\u5efa\u6570\u636e\u5e93\u53ef\u4ee5\u7528DAO\u5bf9\u8c61\uff0c\u65e2\u7136\u4f60\u5df2\u7ecf\u53ef\u4ee5\u521b\u5efa\u6570\u636e\u5e93\uff0c\u90a3\u4e48\u521b\u5efa\u8868\u53ea\u8981\u5148\u8fde\u63a5\u5230\u8fd9\u4e2a\u6570\u636e\u5e93\uff0c\u7136\u540e\u7528create table\u8bed\u53e5\u6765\u6267\u884c\u5c31\u884c\u4e86\uff0c\u53ef\u4ee5\u4f7f\u7528OledbConnection\u5148\u8fde\u63a5\u8fd9\u4e2a\u5e93\uff0c\u63a5\u7740\u7528OledbCommand\u5bf9\u8c61\u7684ExecuteNonQuery\u6765\u6267\u884ccreate table\u8bed\u53e5\u5373\u53ef\u3002
\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
这其实是跟调用之前建立好的模版差不多，你也要使用开始建立好的access表，只是把数据追加进去，不需要显示模版而已，跟我以前开发excel一样，先建立模版，在把数据直接复制过去。个人认为还是很容易实现的
采用xsd设计器设计一张xml数据表与你要创建的access数据库表一样,然后将表映射到access数据库.
Private Sub Command1_Click()
CreateDatabase "c:\123.mdb"
End Sub
Public Sub CreateDatabase(ByVal sDatabaseFile As String)
Dim cat
Set cat = CreateObject("ADOX.Catalog")
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & sDatabaseFile
Set cat = Nothing
End Sub
然后再打开123.mdb，然后create table 建表。然后insert数据。。。
绛旓細鎴戠殑闇姹傚氨鏄厛濉啓濂借〃鍜岃〃涓瓧娈电殑鍚嶇О锛岀劧鍚庣偣鍑讳竴涓寜閽紝灏卞湪鎸囧畾鐨勮矾寰勭敓鎴愪竴涓狝CCESS鏁版嵁搴銆傝屼笉鏄簨鍏堟墜鍔ㄥ垱寤恒 璇风煡閬撶殑鍚勪綅闄勪笂瀹屾暣浠ｇ爜锛屾湰浜哄垰鎺ヨЕVB.NET锛屾湁浜涗笢瑗胯繕涓嶆槸寰堜簡瑙ｃ傝阿璋
绛旓細濡傛灉鍙槸鏌ヨ. 鍐欏叆. 鍒犻櫎,鎴戜滑甯哥敤鐨勫氨鏄 OleDbConnection '鐢ㄤ簬鍐欐暟鎹簱鐨勮繛鎺 OleDbCommand '鐢ㄤ簬鏁版嵁鐨勬搷浣 鎺ユ敹SQL璇彞 骞舵墽琛 OleDbDataReader '鏌ヨ浜,鎴戜滑灏辩敤杩欎釜绫绘潵璇诲彇鏌ヨ鐨勫璞 1).OleDbConnection dim conn as new OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;Data Source =鏁...
绛旓細浠ｇ爜锛氱▼搴廔mports System.Data.OleDb / *鍙傝冨懡鍚嶇┖闂* / 鏆楁贰cnstr =鈥滄彁渚= microsoft.jet.oledb銆4.0锛屾暟鎹簮璁块棶鏁版嵁搴撴枃浠朵綅缃/ *瀹氫箟杩炴帴瀛楃涓* / 鏄忔殫鐨凜N鐨凮leDbConnection =鏂扮殑OleDbConnection锛坈nstr鐨勶級 / *瀹氫箟鐨勮繛鎺* / cn.open锛堬級/ *鎵撳紑鐨勮繛鎺* / sqlstr =鈥滈夋嫨...浠...
绛旓細鍒涘缓琛ㄧ殑杩囩▼ 鍥炵瓟锛 鍒涘缓琛ㄧ殑杩囩▼鐢―AO.net鍜孉DO.net閮藉彲浠ワ紝鍒涘缓鏁版嵁搴撳彲浠ョ敤DAO瀵硅薄锛屾棦鐒朵綘宸茬粡鍙互鍒涘缓鏁版嵁搴擄紝閭ｄ箞鍒涘缓琛ㄥ彧瑕佸厛杩炴帴鍒拌繖涓暟鎹簱锛岀劧鍚庣敤create table璇彞鏉ユ墽琛屽氨琛屼簡锛屽彲浠ヤ娇鐢∣ledbConnection鍏堣繛鎺ヨ繖涓簱锛屾帴鐫鐢∣ledbCommand瀵硅薄鐨凟xecuteNonQuery鏉ユ墽琛宑reate table璇彞鍗冲彲銆
绛旓細Dim fs As FileStream = New FileStream(OpenFileDialog1.FileName, FileMode.Open, FileAccess.Read)Dim bt(fs.Length) As Byte fs.Read(bt, 0, fs.Length)fs.Close()fs = Nothing Dim oleCmd As OleDb.OleDbCommand = New OleDb.OleDbCommand DBInit()oleCmd.Connection = cnn oleCmd....
绛旓細缂栬瘧浠ュ悗鐢熸垚鐨勫彲鎵ц鏂囦欢琚О涓篈ssembly锛屽嵆绋嬪簭闆嗐VB.net鐨勭増鏈彿鏄疺B7.0锛屽畠鐨勮繍琛屾槸寤虹珛鍦–LR(CommonLanguageRuntime)鍜孧SIL(MicrosoftIntermediateLanguage)铏氭嫙鍣ㄤ笂鐨勩傚叾瀹烇紝瀹冪殑鏈哄埗鍜孞ava宸笉澶氥Access鏁版嵁搴撹繛鎺ラ噰鐢∣leDbConnection瀵硅薄Private Function getAccessConnection() As OleDbConnectionDim db...
绛旓細Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdb;Persist Security Info=False"杩欐鏄鍒涘缓閾炬帴瀛楃涓诧紝浣犲彲浠ユ牴鎹嚜宸辨暟鎹簱瀹為檯瀛樻斁浣嶇疆杩涜淇敼 Dim sql As String = "select * from grade"杩欐槸鏁版嵁搴撴煡璇㈣鍙ワ紝浣犲彲浠ユ牴鎹疄闄呮儏鍐典慨鏀逛笅 Dim sql As String...
绛旓細棣栧厛鍦ㄩ」鐩殑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...
绛旓細绫讳技濡備笅锛欴im dbName As String Dim xStr As String Dim mdbPassword As String Dim I As Long Dim cadx As New ADOX.Catalog Dim ccn As ADODB.Connection Dim lTb As ADODB.Recordset '妫鏌ユ枃浠舵槸鍚﹀瓨鍦紝瀛樺湪鏄惁鍙互瑕嗙洊锛屼唬鐮佺渷鐣 xStr = "Provider=Microsoft.ACE.OLEDB...
绛旓細涓や釜鏁版嵁搴撹繛鎺ワ紝涓涓DBF锛屼竴涓啓ACCESS銆鎬庝箞璇诲啓杩欎袱绉嶆暟鎹簱锛屽埌缃戜笂涓嬩釜渚嬪瓙灏監K浜嗐
