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

你试试
Set myCol = tbl1.Columns("字段四")
    myCol.Properties("Nullable") = True

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