11. Dezember 2009 12:45
11. Dezember 2009 14:41
11. Dezember 2009 17:36
con.ConnectionString = "Data Source=srv03;Initial Catalog=tw_elektric_MSCRM;Integrated Security=True;User ID=;Password="
Dim da2 As New SqlDataAdapter("Select [New_Datum],[New_Teilnehmer],[New_Inhalt],[New_Neukunde],[New_AngebotTreffer]" & _
",[New_Angebotzuteuer],[New_Lob],[New_Tadel],[New_WarteaufKunde] FROM [tw_elektric_MSCRM].[dbo].[New_twbericht]" & _
"WHERE [New_parentcustomerid] = '" & guid & "'" & _
"Order by [New_Datum] DESC", con)
da2.FillSchema(dt_twberichte, SchemaType.Source)
da2.Fill(dt_twberichte)
tbDatum.DataBindings.Add("Text", dt_twberichte, "New_Datum")
rtbInhalt.DataBindings.Add("Text", dt_twberichte, "New_Inhalt")
rtbTeilnehmer.DataBindings.Add("Text", dt_twberichte, "New_Teilnehmer")
cbNeukunde.DataBindings.Add("checked", dt_twberichte, "New_Neukunde")
cbCustomerWait.DataBindings.Add("checked", dt_twberichte, "New_WarteaufKunde")
cbLob.DataBindings.Add("checked", dt_twberichte, "New_Lob")
cbTadel.DataBindings.Add("checked", dt_twberichte, "New_Tadel")
cbTeuer.DataBindings.Add("checked", dt_twberichte, "New_Angebotzuteuer")
cbAngebotTreffer.DataBindings.Add("checked", dt_twberichte, "New_AngebotTreffer")
Pos()
11. Dezember 2009 17:42
14. Dezember 2009 12:52
' Create the ColumnSet that indicates the properties to be retrieved.
Dim cols As New ColumnSet()
' Set the properties of the ColumnSet.
cols.Attributes = New String() {"name", "accountid"}
' Create the ConditionExpression.
Dim condition As New ConditionExpression()
' Set the condition for the retrieval to be when the contact's address' city is Sammamish.
condition.AttributeName = "accountnumber"
condition.Operator = ConditionOperator.Like
condition.Values = New String() {"10000"}
' Create the FilterExpression.
Dim filter As New FilterExpression()
' Set the properties of the filter.
filter.FilterOperator = LogicalOperator.And
filter.Conditions = New ConditionExpression() {condition}
' Create the QueryExpression object.
Dim query As New QueryExpression()
' Set the properties of the QueryExpression object.
query.EntityName = EntityName.account.ToString()
query.ColumnSet = cols
query.Criteria = filter
' Retrieve the contacts.
Dim account As BusinessEntityCollection = service.RetrieveMultiple(query)