Can I populate a Dataset from string values?

[Paul D. Fox]

I would like to read from Active Directory and populate a dataset to be
passed in a Web Service. I can get the data from AD just fine, but can I
populate a dataset with these values and do a "Return dataSetName" in my web
service?

 

[Curt_C [MVP]]

I would like to read from Active Directory and populate a dataset to be
passed in a Web Service. I can get the data from AD just fine, but can I
populate a dataset with these values and do a "Return dataSetName" in my web
service?

depending on how you are holing the values...
Just keep doing a .Add to the DS after you've created a blank one.

 

[Guest]

Dim dsUser As DataSet = New DataSet
Dim deSearch As DirectorySearcher = New DirectorySearcher

'set the search filter
deSearch.SearchRoot = de


deSearch.Filter = "(&(objectclass=group))"

'find the first instance
Dim results As SearchResultCollection = deSearch.FindAll()


'Create a new table object within the dataset
Dim tbUser As DataTable = dsUser.Tables.Add("Users")
tbUser.Columns.Add("UserName")
tbUser.Columns.Add("DisplayName")
tbUser.Columns.Add("EMailAddress")

Dim Result As SearchResult
For Each Result In results

'Create default row
Dim rwDefaultUser As DataRow = tbUser.NewRow()
rwDefaultUser("UserName") = Result.Properties("distinguishedname")
rwDefaultUser("DisplayName") = Result.Properties("displayname")
rwDefaultUser("EMailAddress") = Result.Properties("email")
tbUser.Rows.Add(rwDefaultUser)

Next

--
http://pathidotnet.blogspot.com
=====
vInAypAtHi
o__
---_,>/'_------
(_) \(_)

 

[Paul D. Fox]

Perfect! Thanks for your Help!

Paul

Dim dsUser As DataSet = New DataSet
Dim deSearch As DirectorySearcher = New DirectorySearcher

'set the search filter
deSearch.SearchRoot = de


deSearch.Filter = "(&(objectclass=group))"

'find the first instance
Dim results As SearchResultCollection = deSearch.FindAll()


'Create a new table object within the dataset
Dim tbUser As DataTable = dsUser.Tables.Add("Users")
tbUser.Columns.Add("UserName")
tbUser.Columns.Add("DisplayName")
tbUser.Columns.Add("EMailAddress")

Dim Result As SearchResult
For Each Result In results

'Create default row
Dim rwDefaultUser As DataRow = tbUser.NewRow()
rwDefaultUser("UserName") =
Result.Properties("distinguishedname")
rwDefaultUser("DisplayName") = Result.Properties("displayname")
rwDefaultUser("EMailAddress") = Result.Properties("email")
tbUser.Rows.Add(rwDefaultUser)

Next

--
http://pathidotnet.blogspot.com
=====
vInAypAtHi
o__
---_,>/'_------
(_) \(_)