我希望用ADOX来修改attributes属性,Adox默认的添加的字段的Attributes值是0,而我要求adColNullable。代码如下,可运行时它提示我:多步OLE DB操作产生错误。
各位大虾,请指点!Dim padoxCat As New ADOX.Catalog '读取mdb里的表,
Dim padoxTbl As New ADOX.Table '添加、删除表
Dim lngTemp As Long
padoxCat.ActiveConnection = con_gStrProvidA & App.Path & gstrpathAFLdat & "AFLPOWERNET.MDB" & con_gStrProvidC
Set padoxTbl = padoxCat.Tables.Item("NODES")
For lngTemp = 0 To padoxTbl.Columns.Count - 1
If padoxTbl.Columns.Item(lngTemp).Name <> "ID" Then _
padoxTbl.Columns.Item(lngTemp).Attributes = adColNullable Next
各位大虾,请指点!Dim padoxCat As New ADOX.Catalog '读取mdb里的表,
Dim padoxTbl As New ADOX.Table '添加、删除表
Dim lngTemp As Long
padoxCat.ActiveConnection = con_gStrProvidA & App.Path & gstrpathAFLdat & "AFLPOWERNET.MDB" & con_gStrProvidC
Set padoxTbl = padoxCat.Tables.Item("NODES")
For lngTemp = 0 To padoxTbl.Columns.Count - 1
If padoxTbl.Columns.Item(lngTemp).Name <> "ID" Then _
padoxTbl.Columns.Item(lngTemp).Attributes = adColNullable Next
解决方案 »
- VB6写程ADO数据库程序生成XLS,打开时提示格式与文件扩展名指定的格式不一致
- 我的分全给你,告诉我怎么打包成这样,行不?
- 请问高手用VB做BMP图片问题
- VB上位机程序设计(通过USB与智能仪器通信)
- 用mshflexgrid更新数据的时候,怎样处理sql异常
- 输入焦点的问题
- 各位老鸟帮个忙
- 怎样将现场采集的数据自动保存到数据库
- 怎样用vb编程实现在sqlserver和access之间进行数据库导入和导出操作?
- 奇怪的问题:谁会把pws和asp网页一起打包的?分全给了!
- 请问为什么我的数据(数字,双精度.例如2383.33)读进vsflexgrid/datagrid的时候只显示2383的呢?请指教,谢谢!
- 用DataReport显示 分组 报表的 问题?
ADOX的属性可能都是只读的,没试过用它来修改