如何用vb建立一个access数据库?

如何用vb建立一个access数据库,并建立多个字段的数据表,并插入数据,希望给出带注释的详细可执行代码.

热心网友

用VB建立Access数据库结构Private Sub Command1_Click() On Error GoTo Err100 '定义表与字段 Dim DefDatabase As Database Dim DefTable As TableDef, DefField As Field Set DefDatabase = Workspaces(0)。OpenDatabase(App。Path & "\vbeden。mdb", 0, False) Set DefTable = DefDatabase。CreateTableDef("VB编程") 'dbBinary = 9 'dbBoolean = 1 'dbByte = 2 'dbChar=18 'dbDate=8 'dbInteger=3 'dbLong=4 'dbMemo=12 'dbText=10 '建立Name字段为8个字符型 Set DefField = DefTable。CreateField("Name", dbText, 8) DefTable。Fields。Append DefField Set DefField = DefTable。CreateField("Sex", dbText, 2) DefTable。Fields。Append DefField '该字段允许为空 DefField。AllowZeroLength = True '建立Age字段为3个的常整型 Set DefField = DefTable。CreateField("Age", dbInteger, 3) '字段追加 DefTable。Fields。Append DefField '表追加 DefDatabase。TableDefs。Append DefTable MsgBox " 数据库建立完成！", vbInformation Exit Sub Err100: MsgBox "对不起，不能建立表。请先再建表前建立VBEden数据库？ ", vbCritical End Sub Private Sub cmdCreate_Click() On Error GoTo Err100 '建立名为 VBEDEN 的数据库 CreateDatabase "VB-CODE", dbLangGeneral MsgBox "数据库建立完成！ ", vbInformation Exit Sub Err100: MsgBox "不能建立数据库! " & vbCrLf & vbCrLf & Err。Description, vbInformation End Sub 建立数据库后，一般用ADO的技术来实现数据操作是比较好的办法。引用微软的ADO组件，里面两个对象一个是连接对象用来连接数据库。另一个记录集对象可以操作数据库。详细的使用请买本书好好看吧，不是几句话可以说清的。

热心网友

用VB建数据库打开VB后选"外接程序"的第一项这时打开了一个新的窗体选"文件"中的"新建"就可以选你要建什么数据库了如:access等建好数据库后就可以建表了,在表中添加字段就可以了.

热心网友

楼上的方法需要引用access对象吧