1180
社区成员
- 主页
...全文
请发表友善的回复…
发表回复
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
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
除了 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
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：最简单的： 改扩展名，，也是最不安全的了
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
但是不是很明白您的用户概念
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
但是不是很明白您的用户概念