我想在程序里动态建立用户跟数据库,怎样实现?

klbs52 2002-05-06 09:58:19

我想在程序里动态建立用户跟数据库,我用access 或jet 引擎作为数据源 .

...全文

107 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

klbs52 2002-05-10

打赏
举报

谢谢大家,希望大家以后多多照顾,我结贴了

qbilbo 2002-05-08

打赏
举报

dbBigInt Big Integer
dbBinary Binary
dbBoolean Boolean
dbByte Byte
dbChar Char
dbCurrency Currency
dbDate Date/Time
dbDecimal Decimal
dbDouble Double
dbFloat Float
dbGUID GUID
dbInteger Integer
dbLong Long
dbLongBinary Long Binary (OLE Object)
dbMemo Memo
dbNumeric Numeric
dbSingle Single
dbText Text
dbTime Time
dbTimeStamp Time Stamp
dbVarBinary VarBinary

借用一下楼上的代码。
Public Sub newdb()

On Error Resume Next

Dim db As Database
Dim dt As TableDef

Set db = CreateDatabase(App.Path & "\ttt.mdb", dbLangGeneral & ";pwd=123")
Set dt = db.CreateTableDef("bbb")
With dt
.Fields.Append .CreateField("省或市", dbText, 10)
.Fields.Append .CreateField("地级市", dbText, 10)
.Fields.Append .CreateField("身份证号码", dbText, 30)
.Fields.Append .CreateField("电话号码", dbText, 9)
.Fields.Append .CreateField("选手", dbText, 1)
End With
db.TableDefs.Append dt
db.Close
End Sub
这样建立的mdb数据库就会有一个密码为123

klbs52 2002-05-07

打赏
举报

field 字段的类型有什么
除了 dbtext

jiangsw863 2002-05-06

打赏
举报

'本过程建立新数据库
Public Sub newdb()

On Error Resume Next

Dim db As Database
Dim dt As TableDef

Set db = CreateDatabase(App.Path & "\ttt.mdb", dbLangGeneral, dbVersion30)
Set dt = db.CreateTableDef("bbb")
With dt
.Fields.Append .CreateField("省或市", dbText, 10)
.Fields.Append .CreateField("地级市", dbText, 10)
.Fields.Append .CreateField("身份证号码", dbText, 30)
.Fields.Append .CreateField("电话号码", dbText, 9)
.Fields.Append .CreateField("选手", dbText, 1)
End With
db.TableDefs.Append dt
db.Close
End Sub

klbs52 2002-05-06