Office中国论坛/Access中国论坛

标题: ADO高手来帮忙吧 [打印本页]

作者: 蝼蛄    时间: 2002-6-16 04:05
标题: ADO高手来帮忙吧
有二个ADO问题

问题一 我用ADO为链接表添加新字段,完成后字段属性中的必添字段处给的值都是“是”,请问如何写才能让“是”成为“不是”
原码如下(有删减)
  Set appAccess = New ADODB.Connection
  appAccess.Open strCn
  Set cat = New ADOX.Catalog
  cat.ActiveConnection = appAccess
  temp = "2"
  Set rstEmployees = New ADODB.Recordset
  rstEmployees.Open "sys启动", strCn, , , adCmdTable
  For intloop = 0 To rstEmployees.Fields.Count - 1
   If rstEmployees.Fields(intloop).Name = "字段一" Then temp = "1"
  Next intloop
  rstEmployees.Close
If temp = "2" Then
  Set tbl1 = cat.Tables("sys启动")
  With tbl1
    .Columns.Append "字段一", adVarWChar
    .Columns.Append "字段二", adVarWChar
    .Columns.Append "字段三", adVarWChar
    .Columns.Append "字段四", adInteger '整型
  End With
  temp = "2"
End If

问题二
我在WINME和WIN2000下开发,ADO的引用是ADO Ext. 2.5 for DLL  而有一部分用户的操作系统是WIN98,WIN98中对ADO的引用是ADO Ext. 2.1 for DLL 结果各位可想而知,我的程序不好使啦, 请问这时我应该在错误事件中如何写才能保证程序可以继续正常的运行。

有兴趣的研究一下吧,会的朋友还忘不吝赐教
[em23]
作者: tmtony    时间: 2002-6-16 08:29
你试试
Set myCol = tbl1.Columns("字段四")
    myCol.Properties("Nullable") = True

我试的时候有些问题,不知道此属性是否只读




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3