March 20, 2013

CRUD PADA SHAREPOINT LIST MENGGUNAKAN VB 10



Sesuai dengan judulnya diatas, pada artikel ini penulis akan mejelaskan bagaimana melakukan proses Create, Read, Update dan Delete (CRUD) pada Sharepoint List dengan menggunakan VB 10. Penulis mengasumsikan para pembaca sudah megetahui atau menggunakan Microsoft Sharepoint. Bagi yang belum mengetahui apa itu Microsoft SharePoint dapat mempelajarinya disini (http://msdn.microsoft.com/en-us/sharepoint/aa905688.aspx ). Sedangkan teknik yang digunakan untuk mengakses data pada SharePoint list adalah menggunakan Web Services (http://msdn.microsoft.com/en-us/library/ms950421.aspx )
Pada artikel ini akan di jelaskan secara detail atau step by step untuk membuat sebuah aplikasi sederhana yang dapat melakukan pengolahan data pada SharePoint. 
Untuk artikel dapat di download disini
sedangkan untuk project nya dapat di download disini

Wassalam

4 comments:

Tutorial vb.net said...

Ijin download gan...

Andrew Sukoco said...

pak Jun,
maaf,untuk Link yang membuat aplikasi penjualan menggunakan VB.net nya rusak,Mohon untuk dibuat link lagi pak.
Terimakasih

Dimas M Herwindo said...

Salam kenal pak Junindar

saya mau tanya sedikit tentang asp.net

kenapa koq lama keluarnya setelah publish di internet ketika even page load pada salah satu bagian web yang mengandung session report padahal belum ada parameter untuk mengeluarkan report tersebut.

ini scriptnya pak, mkn saya ada yang kurang
_________________________________
Public Class rptAgingHut
Inherits System.Web.UI.Page

Private Function GetConnectionString() As String
Return System.Configuration.ConfigurationManager.ConnectionStrings("LocalSqlServer").ConnectionString
End Function

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If IsPostBack Then
Me.Title = Config.SiteName + (" : AgingHut")
Try
crvHut.ReportSource = DirectCast(Session("ReportHut"), ReportDocument)
crvHut.RefreshReport()
crvHut.DataBind()
Catch ex As Exception

End Try
End If

Dim PeriodTextBox As TextBox = DirectCast(txtperiod.FindControl("txtPeriod"), TextBox)
Dim BranchDropDownList As DropDownList = DirectCast(ddlBranch.FindControl("ddlBranch"), DropDownList)
Dim HutButton As Button = DirectCast(btnhut.FindControl("btnHut"), Button)

Utilities.BindButton(Me.Page, PeriodTextBox, HutButton)
Utilities.BindButton(Me.Page, BranchDropDownList, HutButton)
PeriodTextBox.Focus()
End Sub

Private Sub btnhut_Click(sender As Object, e As System.EventArgs) Handles btnhut.Click
Using conn As New SqlConnection(GetConnectionString)
conn.Open()
Dim cmd As New SqlCommand("Select * from AgingHut where period like '%" & txtperiod.Text & "' and cabang like '%" & ddlBranch.Text & "'", conn)
Dim adp As New SqlDataAdapter(cmd)
Dim ds As New DataSet
adp.Fill(ds, "AgingHut")
conn.Close()
Dim PiutReport As New ReportDocument
PiutReport.Load(Server.MapPath("crAgingHut.rpt"))
PiutReport.SetDataSource(ds.Tables("AgingHut"))
Session("ReportHut") = PiutReport
crvHut.ReportSource = PiutReport
crvHut.RefreshReport()
crvHut.DataBind()
ddlBranch.Text = ""
End Using
End Sub

Private Sub crvHut_PreRender(sender As Object, e As System.EventArgs) Handles crvHut.PreRender

End Sub
End Class

mohon bantuannya pak
terimakasih

Dimas M Herwindo said...

oh iya ada yang keliru pak, maksudnya ini
Session("ReportHut") = HutReport
crvHut.ReportSource = HutReport

mohon bantuannya ya pak
terimakasih