Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,038

HOME > .NET Framework > Forum > VB.NET รบกวนถามการเขียน Web Service ให้สามารถ Return ค่าในลักษณะของ DataSet ครับ


 

VB.NET รบกวนถามการเขียน Web Service ให้สามารถ Return ค่าในลักษณะของ DataSet ครับ

 
Topic : 077671

Guest



คือพอดีผมต้องการเขียน webservice ที่สามารถ return ค่าออกไปในลักษณะของ dataset ได้อ่ะคับ

การทำงานของ webservice ตัวนี้จะทำการรับ parameter เข้ามา แล้วจากนั้นก็จะนำเอา parameter ตัวนี้ไปเป็น where cluase ในการค้นหาข้อมูลออกมา โดยข้อมูลที่ออกมานั้นอาจจะมีมากกว่า 1 rows หรือก็คือเป็นแบบ dataset อ่ะครับ และก็จะทำการ return dataset นี้ออกไปครับ
ซึ่งด้วยความที่ผมค่อนข้างจะใหม่กับภาษานี้เลยยังไม่ค่อยเข้าใจในเขียน code ในการเขียนให้ลักษณะของการดึงข้อมูลและ return ออกไปเป็น dataset ครับ เลยอยากจะรบกวนผู้รู้ช่วยแนะนำวิธีการเขียนหรือแปะลิงค์ชี้แนะในการทำให้หน่อยนะครับ แล้วเด๋วผมจะนำไปศึกษาและประยุกต์ให้เข้ากับ webservice ของผมเอง

ตอนนี้เท่าที่ศึกษาและพอจะคลำๆ ได้ก็คือเขียนในลักษณะทดสอบการติดต่อกับ database ครับ

Code (VB.NET)

Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel
Imports System.Data
Imports System.Data.SqlClient

' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.
' <System.Web.Script.Services.ScriptService()> _
<System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _
<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ToolboxItem(False)> _
Public Class Service1
    Inherits System.Web.Services.WebService

    Dim objConn As SqlConnection
    Dim objCmd As SqlCommand
    <WebMethod()> _
    Public Function HelloWorld() As String
        Dim strConnString As String
        strConnString = "Server=localhost\SQL2008;UID=sa;PASSWORD=sqlserver2008;database=mydatabase;Max Pool Size=400;Connect Timeout=600;"
        objConn = New SqlConnection(strConnString)
        objConn.Open()
        If objConn.State = ConnectionState.Open Then
            Return "SQL Server Connected"
        Else
            Return "SQL Server Connect Failed"
        End If
    End Function

End Class


ยังไงขอรบกวนด้วยนะครับ ^^



Tag : .NET, Ms SQL Server 2008, WebService, VB.NET
Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2012-04-27 20:26:34 By : ZZZzzz View : 8005 Reply : 7
 

 

No. 1

Guest


รบกวนหน่อยนะคับ ใครมีวิธี แนวทาง หรือคำแนะนำ ช่วยชี้แนะด้วยนะคับ
ชอบคุณครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-04-27 22:56:45 By : ZZZzzz
 

 

No. 2



โพสกระทู้ ( 74,059 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

มันก็ Return ปกติน่ะครับ เพียงแต่ผ่าน Web Service ครับ

Code (VB.NET)
        Dim objConn As New System.Data.SqlClient.SqlConnection
		Dim objCmd As New System.Data.SqlClient.SqlCommand
        Dim dtAdapter As New System.Data.SqlClient.SqlDataAdapter
       
		Dim ds As New DataSet
		Dim strConnString,strSQL As String

		strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase;Max Pool Size=400;Connect Timeout=600;"
		strSQL = "SELECT * FROM customer"

		objConn.ConnectionString = strConnString
		With objCmd
			.Connection = objConn
			.CommandText = strSQL			
			.CommandType = CommandType.Text
		End With
		dtAdapter.SelectCommand = objCmd

		dtAdapter.Fill(ds)		

		dtAdapter = Nothing
		objConn.Close()
		objConn = Nothing

		Return ds   '*** Return DataSet ***'

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-04-28 07:34:30 By : webmaster
 

 

No. 3



โพสกระทู้ ( 18 )
บทความ ( 0 )



สถานะออฟไลน์


ขอบคุณมากๆ ครับ ตอนนี้สามารถทำได้แล้ว โดยตอนแรกติดเรื่องของการ return ครับ เพราะลืมเปลี่ยนให้มัน return เป็น dataset จากในตอนแรกสั่งให้ return เป็น String ไว้ครับ ขอบคุณมากๆ นะครับ ^^

ส่วนอันนี้เป็น code ครับ
Code (VB.NET)
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel
Imports System.Data
Imports System.Data.SqlClient

' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.
' <System.Web.Script.Services.ScriptService()> _
<System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _
<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ToolboxItem(False)> _
Public Class Service1
    Inherits System.Web.Services.WebService

    Dim objConn As New System.Data.SqlClient.SqlConnection
    Dim objCmd As New System.Data.SqlClient.SqlCommand
    Dim dtAdapter As New System.Data.SqlClient.SqlDataAdapter
    <WebMethod()> _
    Public Function HelloWorld() As DataSet
        Dim ds As New DataSet
        Dim strConnString, strSQL As String
        strConnString = "Server=localhost\SQL2008;UID=sa;PASSWORD=sqlserver2008;database=mydatabase;Max Pool Size=400;Connect Timeout=600;"
        strSQL = "SELECT * FROM customer"
        objConn.ConnectionString = strConnString
        With objCmd
            .Connection = objConn
            .CommandText = strSQL
            .CommandType = CommandType.Text
        End With
        dtAdapter.SelectCommand = objCmd

        dtAdapter.Fill(ds)

        dtAdapter = Nothing
        objConn.Close()
        objConn = Nothing

        Return ds   '*** Return DataSet ***'
    End Function

End Class

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-04-28 12:20:40 By : zubduce
 

 

No. 5



โพสกระทู้ ( 74,059 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook



Go to : ASP.NET กับ Web Service การเขียนเว็บเซอร์วิสรับ-ส่งข้อมูลจาก Database ผ่าน DataSet และ DataTable
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-05-01 20:28:28 By : webmaster
 

 

No. 6



โพสกระทู้ ( 70 )
บทความ ( 0 )



สถานะออฟไลน์
Twitter Facebook Hi5 Blogger

Web

กรณีที่ Web service 1 เดี่ยง เราจะ
สลับ การทำงาน ของ web service ไปใช้ Web service 2 สามารถทำได้ทั้ยครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-02-25 16:46:24 By : weerachai.va
 

 

No. 7



โพสกระทู้ ( 70 )
บทความ ( 0 )



สถานะออฟไลน์
Twitter Facebook Hi5 Blogger

Code
'''  INSERT UPDATE DELETE  --> หลายค่า     --  โปรแกรมสำหรับฝั่ง WEB SERVICE ----------
    <WebMethod()> _
    Public Function Exc_DataSet(ByVal dataSet As DataSet) As Boolean
        Dim dr As DataRow
        Try

            __BeginTrans()
            For Each dr In dataSet.Tables(0).Rows

                sql = dr("TABLE1_")       ''''HEADER_ --> Name head data set from Client 1 ROW  
                __TransExeSQL(sql)

            Next
            Trans.Commit()
            'Return ("Complate !!!! ")
            Return True
        Catch ex As Exception
            Trans.Rollback()
            Console.WriteLine(Err.Description)
            ' Return ("Can't Complate !!!! " & Err.Description)
            Return False
        Finally
            If objcon.State <> ConnectionState.Closed Then
                objcon.Close()
            End If
        End Try
    End Function

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-02-25 16:52:26 By : weerachai.va
 

 

No. 8



โพสกระทู้ ( 70 )
บทความ ( 0 )



สถานะออฟไลน์
Twitter Facebook Hi5 Blogger

Code
Dim DS As DataSet = New DataSet("Table")
Dim Table As New Data.DataTable
Table.Columns.Add("TABLE1_", GetType(String))
 Dim sQl1 As String

                ''■■■■■■■■■■■■■■■■  INSERT  รอบแรก ■■■■■■■■■■■■■■■   
                '---------------------------------
                sQl1 = "INSERT INTO TBD_pallet(palletkey,OPERID,STATUS,UPDDTE,SYSDTE) " & _
                   " VALUES ('" & Trim(PALLETKEY) & "', " & _
                   "'" & Trim(userID) & "' ," & _
                   "'" & Trim(PLxdxr) & "'  ," & _
                   " TO_DATE('" & Strings.Format(DteTime, formatDATE) & "', 'yyyy/MM/dd hh24:mi:ss')," & _
                   " TO_DATE('" & Strings.Format(DteTime, formatDATE) & "', 'yyyy/MM/dd hh24:mi:ss')) "
                Table.Rows.Add(sQl1)

                '------------------------------------------------------
                ''■■■■■■■■■■■■■■■■ INSERT  รอบสอง■■■■■■■■■■■■■■■ 
                '------------------------------------------------------
                sQl1 = " INSERT INTO TBD_PRTPALLET(PALLETKEY,OPERID,STATUS,UPDDTE,SYSDTE) " & _
                        " VALUES ('" & Trim(PALLETKEY) & "',  " & _
                        "'" & Trim(userID) & "'," & _
                        "'" & Trim(PLxdxr) & "'  ," & _
                        "  TO_DATE('" & Strings.Format(DteTime, formatDATE) & "', 'yyyy/MM/dd hh24:mi:ss')," & _
                        "  TO_DATE('" & Strings.Format(DteTime, formatDATE) & "', 'yyyy/MM/dd hh24:mi:ss')) "
                Table.Rows.Add(sQl1)


 DS.Tables.Add(Table)
ssCON.Exc_DataSet(DS)    --- เรียกใช้งาน Web service  ทำงาน ตาม Query ที่เราต้องการครับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-02-25 16:56:21 By : weerachai.va
 

   

ค้นหาข้อมูล
   
 

แสดงความคิดเห็น
Re : VB.NET รบกวนถามการเขียน Web Service ให้สามารถ Return ค่าในลักษณะของ DataSet ครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
 Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)





ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2025 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่