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

klbs52 2002-05-06 09:58:19
我想在程序里动态建立用户跟数据库,我用access 或jet 引擎作为数据源 .
...全文
51 点赞 收藏 12
写回复
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
在vb 中用程序可以改变数据文件的扩展名吗?
回复
_1_ 2002-05-06
1:加个密码
2:写个加密的代码,把数据库这个文件给处理以下
3:最简单的: 改扩展名,,也是最不安全的了
回复
klbs52 2002-05-06
我的意思是:用代码给数据库加密,不让别人随便的打开!
回复
_1_ 2002-05-06
提问题太抽象了, 没法回答了
回复
klbs52 2002-05-06
不能动态生成用户跟密码!
回复
rainyboat 2002-05-06
conn.execute(sql 语句)
回复
guoguo_150 2002-05-06
可以吗?
回复
gump2000 2002-05-06
新建数据库您可以参考以下代码
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

但是不是很明白您的用户概念
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告