path1 = Dir(App.Path & "dat.mdb") '检测文件是否存在 If path1 = "" Then Text1.Text = "数据库dat.mdb不存在,请先建立数据库~!" Exit Sub End If Dim cat As New ADOX.Catalog '不用cat用另外一个名字也可以 Dim pstr As String Dim tb1 As New Table pstr = "Provider=Microsoft.Jet.OLEDB.4.0;" '不能把这里的4.0改为3.51 pstr = pstr & "Data Source=" & App.Path & "dat.mdb" pstr = pstr & ";Jet OLEDB:Database Password=123" cat.ActiveConnection = pstr tb1.Name = "学生信息" '表的名称 tb1.Columns.Append "姓名",adVarWChar,20 '表的第一个字段 tb1.Columns.Append "年龄",adInteger '表的第二个字段 tb1.Columns.Append "性别",2 '表的第三个字段 tb1.Columns.Append "出生年月",adDate '表的第四个字段 cat.Tables.Append tb1 '建立数据表
代码数据类型
自动编号用:adNumeric,备注用adLongVarWChar 以下是部分说明: adBigInt 8 字节带符号的整数 (DBTYPE_I8). adBinary二进制值 (DBTYPE_BYTES). adBoolean 布尔型值 (DBTYPE_BOOL). adByRef 与其他类型一起加入逻辑 OR 以指示该数据是其他类型数 据的指针 (DBTYPE_BYREF). adBSTR 以空结尾的字符串 (Unicode) (DBTYPE_BSTR). adChar 字符串值 (DBTYPE_STR). adCurrency 货币值 (DBTYPE_CY).货币数字的小数点位置固定、小数 点右侧有四位数字.该值保存为 8 字节范围为10,000 的带符 号整型值. adDate 日期值 (DBTYPE_DATE).日期按双精度型数值来保存,数 字全部表示从 1899 年 12 月 30 开始的日期数.小数部分是 一天当中的片段时间. adDBDate 日期值 (yyyymmdd) (DBTYPE_DBDATE). adDBTime 时间值 (hhmmss) (DBTYPE_DBTIME). adDBTimeStamp 时间戳 (yyyymmddhhmmss 加 10 亿分之一的小数)(DBTYPE_DBTIMESTAMP). adDecimal 具有固定精度和范围的精确数字值 (DBTYPE_DECIMAL). adDouble双精度浮点值 (DBTYPE_R8). adEmpty未指定值 (DBTYPE_EMPTY). adError 32 - 位错误代码 (DBTYPE_ERROR). adGUID 全局唯一的标识符 (GUID) (DBTYPE_GUID). adIDispatch OLE 对象上 Idispatch 接口的指针 (DBTYPE_IDISPATCH). adInteger4 字节的带符号整型 (DBTYPE_I4). adIUnknown OLE 对象上 IUnknown 接口的指针 (DBTYPE_IUNKNOWN). adLongVarBinary 长二进制值. adLongVarChar 长字符串值. adLongVarWChar 以空结尾的长字符串值. adNumeric 具有固定精度和范围的精确数字值 (DBTYPE_NUMERIC). adSingle 单精度浮点值 (DBTYPE_R4). adSmallInt 2 字节带符号整型 (DBTYPE_I2). adTinyInt 1 字节带符号整型 (DBTYPE_I1). adUnsignedBigInt 8 字节不带符号整型 (DBTYPE_UI8). adUnsignedInt4 字节不带符号整型 (DBTYPE_UI4). adUnsignedSmallInt 2 字节不带符号整型 (DBTYPE_UI2). adUnsignedTinyInt 1 字节不带符号整型 (DBTYPE_UI1). adUserDefined 用户定义的变量 (DBTYPE_UDT). adVarBinary 二进制值. adVarChar 字符串值. adVariant自动变体型 (DBTYPE_VARIANT). adVector 与其他类型一起加入逻辑 OR 中,指示数据是 DBVECTOR 结构(由 OLE DB 定义).该结构含有元素的计数和其他类型 (DBTYPE_VECTOR) 数据的指针. adVarWChar 以空结尾的 Unicode 字符串. adWChar (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|