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

[klbs52]

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

[gump2000]

新建数据库您可以参考以下代码
http://202.98.116.66/amtd/code/index.asp?action=read&id=333
http://202.98.116.66/amtd/code/index.asp?action=read&id=38

但是不是很明白您的用户概念

[guoguo_150]

可以吗？

[rainyboat]

conn.execute(sql 语句)

[klbs52]

不能动态生成用户跟密码!

[_1_]

提问题太抽象了， 没法回答了

[klbs52]

我的意思是:用代码给数据库加密,不让别人随便的打开!

[_1_]

1：加个密码
2：写个加密的代码，把数据库这个文件给处理以下
3：最简单的： 改扩展名，，也是最不安全的了

[klbs52]

在vb 中用程序可以改变数据文件的扩展名吗?

[jiangsw863]

'本过程建立新数据库
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]

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

[qbilbo]

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]

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