vb.net怎么动态创建access数据库和表 vb在access数据库中如何创建新表

\u5982\u4f55\u7528C#\u52a8\u6001\u521b\u5efaAccess\u6570\u636e\u5e93\u548c\u8868

\u9996\u5148\u521b\u5efa\u4e00\u4e2a\u57fa\u4e8e\u5bf9\u8bdd\u6846\u7684MFC\u5e94\u7528\u7a0b\u5e8fADO_Access.sln.\u7136\u540e\u5728stdafx.h\u5934\u6587\u4ef6\u672b\u5c3e\u6dfb\u52a0\uff08\u7f51\u4e0a\u6709\u8bf4\u5728\u67d0\u4e2a#include\u540e\u9762\u7684\u6dfb\u52a0\u7684,\u4e5f\u6709\u8bf4\u5728\u5408\u9002\u4f4d\u7f6e\u6dfb\u52a0\u7684\uff0c\u6211\u8fd9\u91cc\u76f4\u63a5\u6dfb\u52a0\u5728\u6700\u672b\u5c3e\uff09
#import "C:\Program Files\Common Files\System\ado\msado15.dll" no_namespace rename("EOF", "adoEOF")
\u6dfb\u52a0\u5b8c\u6210\u540e#import\u4e0b\u9762\u4f1a\u51fa\u73b0\u7ea2\u8272\u6ce2\u6d6a\u7ebf\u63d0\u793a\u9519\u8bef\uff0c \u7136\u540e\u6700\u597d\u662f\u6267\u884c\u4e00\u6b21\u751f\u6210\u89e3\u51b3\u65b9\u6848\uff0c\u4f1a\u63d0\u793a\u751f\u6210\u6210\u529f\uff0c\u4f46\u662f\u7ea2\u8272\u6ce2\u6d6a\u7ebf\u4f9d\u7136\u5728\uff0c\u4e4b\u524d\u81ea\u5df1\u88ab\u5b83\u56f0\u6270\u597d\u4e45\uff0c\u7f51\u4e0a\u6709\u8bf4\u4e0d\u7528\u7406\u4f1a\u7684\uff0c\u4e4b\u524d\u6ca1\u7406\u4f1a\u4e5f\u786e\u5b9e\u540e\u6765\u5c31\u83ab\u540d\u5176\u5999\u7684\u4e0d\u89c1\u4e86\uff0c\u73b0\u5728\u6211\u77e5\u9053\u4e86\uff0c\u5f53\u751f\u6210\u6210\u529f\u540e\u5de6\u4e0b\u89d2\u4ecd\u7136\u63d0\u793a\u6b63\u5728\u5206\u6790\u00b7\u00b7\u00b7\u00b7\u6587\u4ef6\uff0c\u7b49\u5f85\u5206\u6790\u5b8c\u4e86\u7ea2\u8272\u6ce2\u6d6a\u7ebf\u4e5f\u5c31\u6d88\u5931\u4e86\u3002
\u7b2c\u4e8c\u6b65\uff0c\u5728ADO_AccessDlh.h \u7c7b\u91cc\u7684public\u4e0b\u6dfb\u52a0 _ConnectionPtr m_pConnection;//\u8fde\u63a5access\u6570\u636e\u5e93\u7684\u94fe\u63a5\u5bf9\u8c61 _RecordsetPtr m_pRecordset;//\u7ed3\u679c\u96c6\u5bf9\u8c61
\u7b2c\u4e09\u6b65\uff0c\u521d\u59cb\u5316\u6570\u636e\u5e93\u8fde\u63a5\u3002 \u5728ADO_AccessDlh\u7c7b\u7684OnInitDialog()\u521d\u59cb\u5316\u6210\u5458\u51fd\u6570\u91cc\u6dfb\u52a0\u5982\u4e0b\u4ee3\u7801\uff1a

\u6570\u636e\u5e93\u8fde\u63a5\u5c31\u6ca1\u95ee\u9898\u4e86\uff0c\u5269\u4e0b\u7684\u5c31\u662f\u529f\u80fd\u6a21\u5757\u4e86\u3002

Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\u6570\u636e\u5e93\u540d.mdb"
cn.Execute "select * into table2 from table1 where false"
cn.Close
End Sub

\u5982\u679c\u5728\u590d\u5236\u8868\u7ed3\u6784\u7684\u540c\u65f6\u4e5f\u590d\u5236\u6570\u636e\uff0c\u90a3\u4e48\u5c31

Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\u6570\u636e\u5e93\u540d.mdb"
cn.Execute "select * into table2 from table1"
cn.Close
End Sub

追问： 只有那个办法？ 回答： 是，这跟SQL Server不同，ACCESS是独立文件的，而且它能支持的SQL语句有限，一般是使用ACCESS来创建，若要动态创建，只能用ADO了，但Sql Server就不同了，它可以执行复杂的SQL语句，相对来说，动态创建数据库和表，要比ACCESS方便。 追问： 创建表的话能用SQL语句了吗？ 回答： 没试过，应该不行 追问： 那你能告诉我下怎么创建表吗？创建数据库我会了 回答： 可以使用DAO对象来操作，注意是DAO对象，不是ADO对象！ 追问： 能不能详细说下过程呢？创建表的过程 回答： 创建表的过程用DAO.net和ADO.net都可以，创建数据库可以用DAO对象，既然你已经可以创建数据库，那么创建表只要先连接到这个数据库，然后用create table语句来执行就行了，可以使用OledbConnection先连接这个库，接着用OledbCommand对象的ExecuteNonQuery来执行create table语句即可。

vb.net 濡備綍杩炴帴缃戠粶access
绛旓細Set conn = CreateObject("ADODB.Connection")Set myrs = CreateObject("ADODB.Recordset")conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123;Mode=;Data Source=" & ACCSOURCE '123涓哄瘑鐮侊紝access鏈夊瘑鐮佹椂闇瑕佽緭鍏ユ纭瘑鐮 ...

vb.net ACC鏁版嵁澧炲姞鍒發istbox?
绛旓細澶氬垪鐢╨istview鎴杁atagridview锛岀敤DataSource灞炴х粦瀹氥俵istbox鍙互鐢ㄧ┖鏍艰繛鎺ユ瘡涓鍒椼

璇锋暀asp.net (vb)鎿嶄綔access鏁版嵁搴撹繛鎺
绛旓細搴旀敼鎴恗yConnstr=@"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\asp\UTL-6\X6.mdb ";鎴栬呮敼鎴恗yConnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\\asp\\UTL-6\\X6.mdb ";<add name="acc" connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=~\App_Data...

鎴戣鐢VB+ACCESS浣滀竴涓鐢熸垚缁╃鐞嗙郴缁熸瘯涓氳鏂?
绛旓細VB042澶у瀷鏈烘埧瀛︾敓涓婃満绠＄悊绯荤粺VB043骞查儴妗ｆ绠＄悊绯荤粺ACVB044鍥哄畾璧勪骇绠＄悊绯荤粺ACVB045鍏艰亴涓粙绠＄悊绯荤粺ACVB046鑰冭瘯鍒嗘瀽璇勪环绯荤粺ACVB047澶变笟淇濋櫓绠＄悊淇℃伅绯荤粺ACVB048姘磋垂绠＄悊绯荤粺ACVB049缃戝惂璁¤垂绯荤粺ACVB050鐗╂祦绠＄悊绯荤粺ACVB051瀛︾敓鎴愮哗绠＄悊绯荤粺VCVB052鑽搧鍏徃杩涢攢鍞瓨绠＄悊绯荤粺VCVB053浣忛櫌澶勪俊鎭鐞嗙郴缁烿CVB054瓒呭競绠＄悊绯荤粺VC...

ASP.NET(VB鑴氭湰)濡備綍鍦ˋCCESS鏁版嵁搴撲腑瀹炵幇澶氬叧閿瓧鏌ヨ
绛旓細str2="select id as 缂栧彿,question as 闂,answer as 瑙ｇ瓟 from 313acc where question like '%"+a(i)+"%' or question like 锛'"+wenti.text+"'锛 order by id"

VB鎬庢牱缁曡繃闃茬伀澧欒繛鎺ョ綉缁?鏈熷緟楂樻墜瑙ｇ瓟
绛旓細鍥炵瓟锛氱粫杩囬槻鐏鐨勮瘽鏄緢闅惧仛鍒扮殑,鑷冲皯鎴戞病鏈夎繖涓兘鍔涖傚洜涓鸿繖涓鍙栧緱绯荤粺鐨勪紭鍏堟潈闄,鐩镐俊VB涔熷緢闅惧仛鍒拌繖涓鐐广傚鏋滄槸绯荤粺闃茬伀澧欑殑璇,浣犲彲浠ョ敤鍏抽棴绯荤粺闃茬伀澧欐湇鍔＄殑鏂规硶鏉ュ疄鐜: shell "cmd net stop sharedacc" '杩欎釜鏄叧闂郴缁熼槻鐏鐨勫懡浠,鐩稿弽,濡傛灉瑕佹墦寮涓涓郴缁熸湇鍔＄殑璇濅綘鍙互鎶妌et stop鏀逛负net s...

VB.NET 2005缂栧啓瀹氭椂鍏虫満绋嬪簭
绛旓細鍏鍒涘缓涓涓狶abel鎺т欢鍚 鎶婂畠鎵樺埌绐椾綋涓 灏唗ext灞炴ц缃负澶╂瀬缃戝紑鍙戦閬撳鍥 鍥 鎺ヤ笅鏉ラ渶瑕佽緭鍏ヤ唬鐮佷簡 鍙屽嚮绐椾綋Form 杩涘叆Public Class Form 浜嬩欢 浠ｇ爜 Private Declare Function ShellExecute Lib shell dll Alias ShellExecuteA (ByVal hwngnd As Integer ByVal lpOperation As String ByVal lpFile As ...

鎬庝箞鐢VB鎶奵sv鏂囦欢瀵煎叆鍒癆CCESS鏁版嵁搴撲腑
绛旓細1銆佷粠txt璇诲嚭鏉 2銆佸啓鍏ccess Private Sub Command2_Click()Dim AccAPP As New Access.Application AccAPP.OpenCurrentDb (鏁版嵁搴撹矾寰)AccAPP.OpenCurrentDatabase "" & App.Path & "\CDD.mdb"AccAPP.DoCmd.OutputTo acOutputTable, "RLCFP", acFormatCSV, "" & App.Path & "\0906RLCFP....

vb.net涓殑OleDbDataAdapter1.SelectCommand.CommandText闂_鐧惧害...
绛旓細绗竴闂細鎮ㄥ彲浠ュ湪鏌ヨ鐨勬椂鍊欏垽鏂槸鍚﹀凡缁忔煡鍒拌褰曪紝蹇呴』淇濊瘉鑳藉鏌ュ埌璁板綍浠ュ悗鎵嶅厑璁哥紪杈戯紝姣斿锛 Dim mySelectQuery As String = "Select * from 鐢ㄦ埛淇℃伅 Where 濮撳悕='" & TextBox8.Text & "'" OleDbDataAdapter1.SelectCommand.CommandText = mySelectQuery OleDbDataAdpater.SelectCommand.Connection...

vb 涓涓秴鍩虹鐨勯棶棰
绛旓細MsgBox "褰撶劧"Else MsgBox "鎵泲鍚т綘"End If End Sub '濡傛灉鍙夐」姣旇緝澶氱殑鏃跺欙紝寤鸿浣跨敤 Select Case 璇彞銆傚綋浣犳按骞冲啀楂樹竴鐐硅瀛︿細 or 鍜 and 锛屼細鏇存柟渚 Private Sub Command2_Click()Select Case Text1 Case "娼樺畨"MsgBox "褰撶劧"Case "鍒樺痉鍗"MsgBox "褰撶劧"Case "鏌愭煇鏌"MsgBox "褰撶劧"Case...

扩展阅读：vb下载安装 ... vb是什么社交软件 ... vb67co ac ... vb软件 ... acca官网入口 ... vb平台 ... vb直播是哪个app ... vue动态路由三种方法 ... vb基础编程100例 ...