things i need to remember, but don't
To test Search Filter:
in Active Directory
View -> Filter Options -> Create Custom -> Advanced
To show members of a group:
(&(objectCategory=user)(MemberOf=CN=YourGroupName,OU=Groups,DC=full,DC=domain,DC=name,DC=gov))
im my endless search for an DateTime Picker i have finally found one that’s awesome:
http://www.basicdatepicker.com/download/downloadproduct.aspx
Assuming you’re joining on columns with no duplicates, which is by far the most common case:
Examples
Suppose you have two Tables, with a single column each, and data as follows:
A B - - 1 3 2 4 3 5 4 6
Note that (1,2) are unique to A, (3,4) are common, and (5,6) are unique to B.
make sure people don’t get charged by changing testmode=true in the web.config.
I am using authorize.net test CC information for this.
Dim bapi As New BasketApi
Dim oAPI As New OrderApi
Dim uAPI As New CustomerApi
Dim usAPI As New UserAPI
Dim userId As Integer
Dim connStr As String = ConfigurationManager.ConnectionStrings("DbConnection").ConnectionString
Dim myConnection As SqlConnection = New SqlConnection(connStr)
Dim sql As String = "select something from something "
Dim myCommand As SqlCommand = New SqlCommand(sql, myConnection)
Dim dr As SqlDataReader
Try
‘ Execute the command
myConnection.Open()
dr = myCommand.ExecuteReader()
‘ Make sure a record was returned
While dr.Read()
userId = usAPI.GetUserByUsername(dr("username")).Id
Dim udata As CustomerData = uAPI.GetItem(userId)
Dim oData As New OrderData
Dim aApi As New AddressApi
Dim cAPI As New CountryApi
Dim rApi As New RegionApi
‘set address from DB
Dim adata As New AddressData
Dim cdata As New CountryData
Dim rdata As New RegionData
adata.AddressLine1 = dr("street")
adata.City = dr("city").ToString
‘set country data
cdata = cAPI.GetItem(840) ‘USA
adata.Country = cdata
adata.IsValidated = True
adata.Name = dr("first_name").ToString & " " & dr("last_name").ToString
adata.Phone = dr("daytime_phone").ToString
If (dr("zip").ToString = "") Then
adata.PostalCode = "00000"
Else
adata.PostalCode = dr("zip").ToString
End If
‘set region data
Dim rCriterial As New Ektron.Cms.Common.Criteria(Of RegionProperty)
Dim rRegion As Generic.List(Of RegionData)
rCriterial.AddFilter(RegionProperty.AlphaCode, CriteriaFilterOperator.EqualTo, dr("state"))
rRegion = rApi.GetList(rCriterial)
For Each r As RegionData In rRegion
rdata = rApi.GetItem(r.Id)
Next
‘if state does not match, set it to maryland
If rdata.Id = 0 Then
rdata = rApi.GetItem(21)
End If
adata.Region = rdata
adata.Validate()
‘add address to customer
Dim aID As Long = aApi.Add(adata)
uAPI.ChangeBillingAddress(userId, aID)
uAPI.ChangeShippingAddress(userId, aID)
‘Default payment CC for everyone
Dim payment As New CreditCardPayment()
Dim expDate As New CCExpirationDate
expDate.Month = EkEnumeration.CCExpirationMonth.July
expDate.Year = 2013
payment.ExpirationDate = expDate
payment.Number = "4007000000000"
payment.CCID = "000"
Dim basket As Ektron.Cms.Commerce.Basket
Try
basket = bapi.GetDefaultBasket(udata.Id)
‘find class ID based on SKU
Dim cCriteria As New Ektron.Cms.Common.Criteria(Of EntryProperty)
Dim cClass As Generic.List(Of EntryData)
Dim classID As Integer
cCriteria.AddFilter(EntryProperty.Sku, Ektron.Cms.Common.CriteriaFilterOperator.EqualTo, dr("event_id").ToString)
cClass = catalogApi.GetList(cCriteria)
For Each c As EntryData In cClass
basket.AddProduct(c.Id)
classID = c.Id
Next
basket.ShippingAddressId = udata.ShippingAddressId
‘process order
oData = oAPI.PlaceOrder(basket.Id, userId, aID, aID, basket.ShippingMethodId, payment, "", "")
‘update class inventory
Dim iAPI As New InventoryApi()
Dim iData As InventoryData
iData = iAPI.GetInventory(classID)
iData.UnitsInStock = iData.UnitsInStock – 1
iAPI.SaveInventory(iData)
‘add seat names to class order
Dim contentApi As New Ektron.Cms.ContentAPI
contentApi.AddContentRating(classID, userId, 0, dr("seat_name") & " – " & dr("seat_email"), True)
lblMessage.Text += "<br> great success" & oData.Customer.UserName & " OrderID:" & oData.Id & " eventID:" & dr("event_id").ToString
Catch ex As Exception
lblMessage.Text += "<br>" & oData.Customer.UserName & ex.Message
End Try
End While
Catch ex As Exception
lblMessage.Text += "<br>" & ex.Message
End Try
I’ve run into this problem many many times already.
here is a workaround?
1. save the excel as either tab delimited or pipe delimited.
(the problem here is that it ads quotes to the import, but thats easily fixable later….)
2. select Flat file as the source in SSIS
3. change data types and sizes in Advanced
4. Import and done.
Try
data = libraryApi.GetAllChildLibItems("quicklinks", [id], "", 0, 0, totalPages)
If ((data IsNot Nothing)) AndAlso (data.Length > 0) Then
‘Dim item As LibraryData = Nothing
Dim str As String = ""
For Each item As LibraryData In data
‘if library item is in same language set on the website
If (item.LanguageId = libraryApi.RequestInformationRef.ContentLanguage) Then
Dim capi As New Ektron.Cms.API.Content.Content
Dim ven_lapi As Ektron.Cms.API.Library = New Ektron.Cms.API.Library()
Dim ldata As Ektron.Cms.LibraryData
‘Here Please give the library Id of that Asset–by ven
ldata = ven_lapi.GetLibraryItem(item.Id)
Dim cdata1 As Ektron.Cms.ContentData = capi.GetContent(ldata.ContentId)
str = item.FileName
lblMessage.Text += str
lblMessage.Text += cdata1.Teaser
End If
Next
Else
lblMessage.Text = "No active files found"
End If
Catch ex As Exception
lblMessage.Text = ex.Message
End Try
‘add myDMSAssets as folder in site root directory
DMSfile.PostedFile.SaveAs(Server.MapPath("~/path/") & myFile.FileName)
Dim fs As New System.IO.FileStream(Server.MapPath("~/path/" & myFile.FileName), IO.FileMode.Open)
Dim UpdateFile As New Ektron.Cms.AssetUpdateData
UpdateFile.FileName = myFile.FileName
UpdateFile.LanguageId = 1033
‘add a folder in the WorkArea for DMS documents
UpdateFile.FolderId =
UpdateFile.Title = myFile.FileName & " " & Date.Now()
UpdateFile.EndDate = Date.Now.AddMonths(6)
UpdateFile.Teaser = "Name: " & txtName.Text & "
Dim dmsURL As String = ""
Dim contentAPI As New Ektron.Cms.API.Content.Content
Dim dmsID As Integer = contentAPI.AddAsset(fs, UpdateFile)
System.IO.File.Delete(Server.MapPath("~/path/" & myFile.FileName))
Dim myContentBlock As New Ektron.Cms.Controls.ContentBlock
myContentBlock.DefaultContentID = dmsID
myContentBlock.Page = Page
myContentBlock.Fill()
Dim myAsset As New Ektron.Cms.API.Content.Asset
dmsURL = myAsset.GetViewUrl(myContentBlock.EkItem.AssetInfo.Id, 0)
Copyright © 2007-2012 Cheat Sheet All rights reserved.
Desk Mess Mirrored v1.8.1 theme from BuyNowShop.com.