谢谢大家回答几个问题啥???

[ccbl]

第一就是用XPATH 进行查询
需要在一个节点中查询它的下属节店的属性等于蒙的数值如:
<const>
....
</const>
set dyane= domnodelist.selectnodes('//*[@datatype='动态']")
上面这条语句是返回XML文档资料中所有DATATYPE='动态'的但是我只需要CONST的该如何写
第二就是JET4.0如何修改数据库密码access2000,
第三就是win2000下如何修改自定义打印尺寸


谢谢大家

[yijiansong]

UP

[ccblmpt]

rdtydry

[射天狼]

what's mean??

[liuxiang800314]

看不明白？

[ksmark]

楼主贴错地方了吧。
呵呵...

可惜我不知道怎么弄，要不你就不用更换地方贴了。

看来只能等待高手得到了。
up

[gisyj]

UP

[ccbl]

Xpath 是XML中的查询语言，我已经解决了
win2000的自定义我也基本结局了
但是通过JET4。0，就是ADOX改数据库密码使用ADOX的时候，
报未提供，
大家参考一下代码有问题吗？
我是在其他地方下的:
Dim cat As ADOX.Catalog
Dim usrNew As ADOX.User
Dim usrLoop As ADOX.User
Dim grpLoop As ADOX.Group

Set cat = New ADOX.Catalog
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\Program Files\" & _
"Microsoft Office\Office\Samples\Northwind.mdb;" & _
"jet oledb:system database=c:\samples\system.mdb"

With cat
'Create and append new group with a string.
.Groups.Append "Accounting"

' Create and append new user with an object.
Set usrNew = New ADOX.User
usrNew.Name = "Pat Smith"
usrNew.ChangePassword "", "Password1"
.Users.Append usrNew

' Make the user Pat Smith a member of the
' Accounting group by creating and adding the
' appropriate Group object to the user's Groups
' collection. The same is accomplished if a User
' object representing Pat Smith is created and
' appended to the Accounting group Users collection
usrNew.Groups.Append "Accounting"

' Enumerate all User objects in the
' catalog's Users collection.
For Each usrLoop In .Users
Debug.Print " " & usrLoop.Name
Debug.Print " Belongs to these groups:"
' Enumerate all Group objects in each User
' object's Groups collection.
If usrLoop.Groups.Count <> 0 Then
For Each grpLoop In usrLoop.Groups
Debug.Print " " & grpLoop.Name
Next grpLoop
Else
Debug.Print " [None]"
End If
Next usrLoop

' Enumerate all Group objects in the default
' workspace's Groups collection.
For Each grpLoop In .Groups
Debug.Print " " & grpLoop.Name
Debug.Print " Has as its members:"
' Enumerate all User objects in each Group
' object's Users collection.
If grpLoop.Users.Count <> 0 Then
For Each usrLoop In grpLoop.Users
Debug.Print " " & usrLoop.Name
Next usrLoop
Else
Debug.Print " [None]"
End If
Next grpLoop

' Delete new User and Group objects because this
' is only a demonstration.
.Users.Delete "Pat Smith"
.Groups.Delete "Accounting"

End With

[ccbl]

up