感谢您使用微软产品。 您可以参考如下方式连接数据库:
Dim db As Connection
Dim adoPrimaryRS As Recordset
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select * from Employees", db, adOpenStatic, adLockOptimistic 然后便可以使用AppendChunk方法清除其中的内容了
adoPrimaryRS.Fields("Photo").AppendChunk (Null)
adoPrimaryRS.Update微软全球技术中心 VB技术支持
本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。