将中文用方括号括起来:testtd.CreateField("[姓名]", dbText)
又如:
Select [姓名],[性别] from 111
又如:
Select [姓名],[性别] from 111
解决方案 »
- 大家好,新手请教一个vb简单的问题!
- 如何得到框架网页源码?
- 寻找控件和代码
- Vb程序中如何实现word整篇文档的打印
- 各位高手请问如何在vb程序里自定义纸张大小啊
- 请问在vb中如何实现一个类对另一个类的继承?如何实现链表结构?
- 调用WORD打印时出现“部件要求挂起”,怎么办?
- vb中控制多个打印机同时打印怎样解决?
- 关于产品入库的管理
- 我应该怎么做一个类似的东西??为什么我只能给19分!!
- ☆☆☆谁教我用VB打开记事本,并把程序中文本框中的文字逐字逐句地输到记事本中(输入的字之间有时间间隔,如2至3秒,有回车,回车后再重复输入文字).我把分全给谁.☆☆☆☆☆
- 怎样设置文件加共享和取消共享(适用各种win平台)???
我照你这样做了,可仍然提示错误这次是这样的‘[姓名]’不是一个有效名称,请确认它不包含无效的字符或标点,且名称不太长“这又是为什么呢?:-)岂能尽如人意,但求无愧我心,很高兴认识大家!
QQ:341157
E-mail:[email protected]
我试过
Private Sub Form_Load()
Dim PathName As String
PathName = App.PathDim MyTable As TableDef, MyField As Field
Dim MyDatabase As Database
Set MyDatabase = opendatabase(PathName + "\Favorite.mdb")
Set MyTable = MyDatabase.CreateTableDef("Subclass")
Set MyField = MyTable.CreateField("姓名", dbText, 50)
MyTable.Fields.Append MyField
MyDatabase.TableDefs.Append MyTable
Set MyTable = MyDatabase.CreateTableDef("AllRecords")
Set MyField = MyTable.CreateField("姓名", dbText, 50)
MyTable.Fields.Append MyField
Set MyField = MyTable.CreateField("地址", dbText, 50)
MyTable.Fields.Append MyField
MyDatabase.TableDefs.Append MyTable
End Sub
我照你的方法做了,但提示和原来一样,不知道你是怎样成功的,请详细一点,谢谢岂能尽如人意,但求无愧我心,很高兴认识大家!
QQ:341157
E-mail:[email protected]