VB的参数不可选

911

风中百合

文章数：2

年度积分：50

历史总积分：911

作者的所有帖子(2)

注册时间：2004/4/3

发站内信

发表于：2004/4/3 23:08:00

#0楼

我利用DAO创建一个数据库
其中部分代码如下所示：

’创建一个新的数据库
Set dbnewdb = CreateDatabase("zhushi.mdb", dbLangGeneral)

'创建一个新的表：zhushi
Set tdfnewtable = dbnewdb.CreateTableDef("zhushi")

'添加字段到zhushi表中
With tdfnewtable
.Fields.Append.CreateField("num", dbInteger)
.Fields.Append.CreateField("code", dbText, 255)
.Fields.Append.CreateField("explain", datext, 255)
但是运行的时候出现“参数不可选”的错误，光标指向append。
请问怎样才能运行成功？
请高手指点，谢谢！！

【方案】超声波传感器在风电行业的应用

只看该作者 | 赞[0] | 踩[0] | 引用 | 回复 | 编辑 | 推荐 | 举报 | 结帖 | 管理

827

WAERTER

文章数：6

年度积分：50

历史总积分：827

作者的所有帖子(6)

注册时间：2002/4/18

发站内信

发表于：2004/4/7 20:33:00

#1楼

这是一个我做的一个数据库
Function TBLShootMachine()
Dim db As Database
Dim PathName As String
Dim ws As Workspace
Dim fs8X8 As TableDef
PathName = App.Path & ".\NetWork.mdb"

If Dir(PathName, vbHidden) = "" Then
Set db = CreateDatabase(PathName, dbLangChineseSimplified & ";pwd=1234")
Set fs8X8 = db.CreateTableDef("TbalNetWork")
Set FSZ(0) = fs8X8.CreateField("inid", dbText, 50)
Set FSZ(1) = fs8X8.CreateField("in_signal", dbText, 50)
Set FSZ(2) = fs8X8.CreateField("outid", dbText, 50)
Set FSZ(3) = fs8X8.CreateField("out_signal", dbText, 50)
fs8X8.Fields.Append FSZ(0)
fs8X8.Fields.Append FSZ(1)
fs8X8.Fields.Append FSZ(2)
fs8X8.Fields.Append FSZ(3)
db.TableDefs.Append fs8X8
End If

End Function

【方案】三菱电机变频器在酸洗线，冷轧薄板，彩涂线，镀铝锌线设备，以及钢铁业使用起重机

只看该作者 | 赞[0] | 踩[0] | 引用 | 回复 | 编辑 | 推荐 | 举报 | 管理