การเรียกใช้ webservice ให่เรา add web reference โดยการ คลิกขวาที่ solution explorer >> add web reference หลังจากนั้นให้ ใส่ url ของ web service ที่ต้องการ
เมื่อทำการ Add แล้วจะได้ดังภาพ
การเรียกใช้งาน Web Service เพิ่ม url ของ web service ที่ file web.config
สร้าง function เพื่อเรียกใช้
Public serv As WebRef.Service Private servurl As String = ConfigurationSettings.AppSettings("myservice")
Public Function Getds_serv(ByVal id As String) As DataSet
Dim Ds As New DataSet
serv = New WebRef.Service serv.Url = servurl Ds = serv.Getdata(id)
Return Ds
End Function
web service จะรับค่า parameter เพื่อเป็นเงื่อนไขการดึงข้อมูล และส่งค่ากลับมาเป็น dataset
บทความนี้ผมจะมาแนะนำกี่ยวกับการสร้าง Web service โดยใช้ ASP.net นะครับ
ในที่นี้ผมจะทำ function สำหรับ ดึงข้อมูลผ่าน web service กลับมาเป็น dataset
เพื่อนำมาใช้งานต่อ
เริ่มจากการสร้าง function ที่ web service ก่อนเป็นอันดับแรก
เมื่อเปิด visual studio ให้ new website เลือกประเภทของเว็บเป็น web service
หลังจากนั้น ที่ folder App_Code/ ไฟล์ Service.vb
ให้เราเพิ่ม function
Private strcon As String = ConfigurationSettings.AppSettings("CONNECTION") Public Conn As New OleDbConnection(strcon)
_ Public Function Getdata(ByVal id As String) As DataSet
Dim Ds As New DataSet() Dim sql As String sql = " select * from table where id= '" & Trim(id) & "' " Conn.Open() Dim da As New OleDbDataAdapter(sql, Conn) da.Fill(Ds) Conn.Close() da.Fill(Ds) Return Ds
End Function
หลังจากนันให้เรา set website ที่ IIS แล้วลอง run ดู http:// Your IP /webservice/service.asmx
Dim Connddthq As New OleDbConnection(ddthqcon) Connddthq.Open() str = " Select * from LOGIN_USER where USERNAME = ? and PASSWORD = ? and ACTIVE='Y' " Dim Cmd As OleDbCommand = New OleDbCommand(str, Connddthq)
With Cmd .Parameters.Add("", OleDbType.VarChar).Value = Trim(user) .Parameters.Add("", OleDbType.VarChar).Value = Trim(pass) End With
Dim da As New OleDbDataAdapter(Cmd) da.Fill(Dt) Connddthq.Close()
function index() { $data['title'] = "My Blog Title"; $data['heading'] = "My Blog Heading"; $data['todo_list'] = array('Clean House', 'Call Mom', 'Run'); $this->load->view('blogview', $data); }
Partial Class ddtreport_test Inherits System.Web.UI.Page
Private ddthqcon As String = ConfigurationSettings.AppSettings("DDTHQ")
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Dt As New DataTable() Dim Conn As New OleDbConnection Dim Str As String Str = " Select column,column,column from table where column='" & TextBox1.Text & "' "
Conn = New OleDbConnection(ddthqcon)
Conn.Open() Dim da As New OleDbDataAdapter(Str, Conn) da.Fill(Dt) Conn.Close()
Dim cr1 As New ReportDocument cr1.Load(Server.MapPath("~/folder/report.rpt")) cr1.SetDatabaseLogon("user", "pass") cr1.SetDataSource(Dt) cr1.DataDefinition.FormulaFields("column").Text = "'" & Trim(TextBox1.Text) & "'" CrystalReportViewer1.ReportSource = cr1
http://ajax.googleapis.com/ajax/libs/jquery/1.5.1/jquery.min.js Microsoft CDN http://ajax.aspnetcdn.com/ajax/jQuery/jquery-1.5.2.min.js jQuery CDN (via Media Temple) http://code.jquery.com/jquery-1.5.2.min.js Minified version http://code.jquery.com/jquery-1.5.2.js Source version
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim _fileNameTAB As String = "D:\tmp_" & Trim(Format(DateTimePicker1.Value, "ddMMyyyy")) & ".txt" Dim FileName As String = "D:\report_" & Trim(Format(DateTimePicker1.Value, "ddMMyyyy")) & ".xls" If System.IO.File.Exists(_fileNameTAB) Then System.IO.File.Delete(_fileNameTAB) Dim fs As System.IO.FileStream = System.IO.File.Create(_fileNameTAB) Dim writer As New System.IO.StreamWriter(fs) ' Open txt file with Excel for decoration Dim xlsAPP As New Microsoft.Office.Interop.Excel.Application Dim xlsBook As Microsoft.Office.Interop.Excel.Workbook
' Save as Excel2007 If System.IO.File.Exists(FileName) Then System.IO.File.Delete(FileName) xlsBook.SaveAs(FileName, Microsoft.Office.Interop.Excel.XlFileFormat.xlOpenXMLWorkbook) xlsBook.Close(SaveChanges:=False)
Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
Dim trip As String = "" trip = context.Request("tripno")
Dim str As String = "select client_c,cuscode,ordno,tripno,zoneno from DDT_tracking where tripno = '" & Trim(trip) & "' " 'clsdb.getjsonddt("select client_c,cuscode,ordno,tripno,zoneno from DDT_tracking where tripno = '1026983' ")
Dim Ds As DataSet Ds = clsdb.GetdatasetDDT(str) Dim Dt As DataTable = Ds.Tables(0) Dim i As Integer = 0 Dim strReturnData As String strReturnData = " " & _ " <table cellpadding='0' cellspacing='0' border='0' class='display' id='example'> " & _ "<thead>" & _ "<tr><th>No.</th> <th width='20%'>Rendering engine</th>" & _ " <th width='25%'>Browser</th>" & _ "<th width='25%'>Platform(s)</th>" & _ "<th width='15%'>Engine version</th>" & _ "<th width='15%'>CSS grade</th> " & _ "<th width='15%'><input type='checkbox' name='checkall' id='checkall' text='All' ></th></tr> " & _ "</thead>" & _ "<tbody>"
