用VB建立Access数据库结构

　　PrivateSubCommand1_Click()

　　OnErrorGoToErr100

　　'定义表与字段

　　DimDefDatabaseAsDatabase

　　DimDefTableAsTableDef,DefFieldAsField

　　SetDefDatabase=Workspaces(0).OpenDatabase(App.Path&"vbeden.mdb",0,False)

　　SetDefTable=DefDatabase.CreateTableDef("VB编程乐园")

　　'dbBinary=9

　　'dbBoolean=1

　　'dbByte=2

　　'dbChar=18

　　'dbDate=8

　　'dbInteger=3

　　'dbLong=4

　　'dbMemo=12

　　'dbText=10

　　'建立Name字段为8个字符型

　　SetDefField=DefTable.CreateField("Name",dbText,8)

　　DefTable.Fields.AppendDefField

　　SetDefField=DefTable.CreateField("Sex",dbText,2)

　　DefTable.Fields.AppendDefField

　　'该字段允许为空

　　DefField.AllowZeroLength=True

　　'建立Age字段为3个的常整型

　　SetDefField=DefTable.CreateField("Age",dbInteger,3)

　　'字段追加

　　DefTable.Fields.AppendDefField

　　'表追加

　　DefDatabase.TableDefs.AppendDefTable

　　MsgBox"VB编程乐园数据库建立完成!",vbInformation

　　ExitSub

　　Err100:

　　MsgBox"对不起，不能建立表。请先再建表前建立VBEden数据库?",vbCritical

　　EndSub

　　PrivateSubcmdCreate_Click()

　　OnErrorGoToErr100

　　'建立名为VBEDEN的数据库

　　CreateDatabase"VB-CODE",dbLangGeneral

　　MsgBox"数据库建立完成!",vbInformation

　　ExitSub

　　Err100:

　　MsgBox"不能建立数据库!"&vbCrLf&vbCrLf&Err.Description,vbInformation

　　EndSub->

时间： 2024-09-19 09:12:09

用VB建立Access数据库结构的相关文章

函数调用-新人求助 vb.net+access数据库编写电话簿，调用添加和删除函数，调试都卡住了。

问题描述 新人求助 vb.net+access数据库编写电话簿,调用添加和删除函数,调试都卡住了. 添加函数: '写一个添加用户信息的方法,它的返回值是布尔型, Function AddUser(ByVal User As DBuser) As Boolean '首先判断用户名是否已经存在 Dim SQLString As String SQLString = "SELECT * FROM telephonebook WHERE 姓名 ='" & nm & "

显示-vb 连接access数据库路径问题

问题描述 vb 连接access数据库路径问题 '==================通过复制新建了个access数据库其中text.text放着CommonDialog1.FileName Private Sub new_Click() On Error GoTo Cancel Dim FileName As String Dim FileSystemObject As Object CommonDialog1.Filter = "microsoft access 数据库(*.mdb)|*.m

vb神童教程(续)--vb连接Access数据库实例

本文欢迎非商业用途的转载,但需要注明出自"编程入门网"及相应的网址链接. 下面我们给出一个连接到Access数据库的实例,此例中用到的数据库为Access 2003.首先在e盘建立一个名为vb的文件夹,然后打开Access 2003,单击"文件"→"新建",在右侧出现的任务窗格中单击"空数据库",在出现的对话框中,我们在"文件名"项后输入给新数据库起的名称并选择保存位置,这里我们为新数据库命名为Access

建立Access 数据库的安全门

access|安全|数据|数据库     在Office 2000下,Access数据库的安全机制已经更为完善.除了对数据库设置密码保护,对数据库进行编码压缩,还可以启用用户级的安全机制,在用户级别上控制对数据库的访问. 一.数据库设置密码 对于单机使用的数据库或者是需要工作组共享的数据库,仅设置密码保护较为合适.知道密码的组成员,都有数据库的完全操作权限,彼此之间的使用权限没有什么区别.设置密码的步骤如下: 启动Microsoft Access,在弹出的选择窗口中点取消,不打开任何数据库. 点

空手建立Access数据库

软件说明:包含源码 说明: frmMain表单一个 Private Sub Command1_Click() On Error GoTo Err100 '定义表与字段 以下为引用的内容: Dim DefDatabase As DatabaseDim DefTable As TableDef, DefField As Field Set DefDatabase = Workspaces(0).OpenDatabase(App.Path & "\VB-CODE.MDB", 0, F

vb 连接access数据库时出现的问题,急急急!!!!!!!!!!!!!!!!!!!!!

问题描述 PrivateSubMDIForm_Initialize()DimmpathAsStringmpath=App.Path//进入access数据库存放的目录IfRight(mpath,1)<>""Thenmpath=mpath+""Data1.DatabaseName=mpath+"vbdata.mdb"//使用data控件Data1.RecordSource="access"EndSubPrivateS

vb net access数据库清空data set后怎么样更新数据库

问题描述 access数据库用向导生成这段代码无法更新回数据库TryDatabaseDataSet.Tables("sale").Rows.Clear()Me.Validate()SaleBindingSource1.EndEdit()SaleTableAdapter.Update(Me.DatabaseDataSet.sale)MsgBox("Updatesuccessful")CatchexAsExceptionMsgBox("Updatefailed

ASP.NET(VB)向Access数据库中插入数据错误...

问题描述 PrivateSubclick(ByValsenderAsObject,_ByValeAsSystem.EventArgs)Dimstrconn,strsqlAsStringDimmyconnAsOleDbConnectionaddress.Text=Replace(address.Text,Chr(39),"&apos;")DimcmdAsOleDbCommandstrconn="Provider=Microsoft.Jet.OLEDB.4.0;DataS

在VB中兼容非ACCESS数据库的技巧

本文从VB数据库体系结构的角度出发,结合一个具体实例,阐述了在VB中兼容非ACCESS格式数据库的具体方法和技巧. 关键词:VB.非ACCESS数据库.数据存取对象 一个完整的数据库管理系统(DBMS)应是能兼容市面上各种较流行数据格式的系统,它充分考虑了不同用户的实际要求.鉴于目前市面上有多种数据库格式(如Foxpro.DBase.Paradox等)流行,因而在VB数据库应用程序中兼容非ACCESS数据库就显得尤为重要了. 作为一种流行的开发平台,VB提供了强大的数据库功能.主要有以下三种:数