هاست پرسرعت
صفحه: [1]   پایین
  چاپ صفحه  
نويسنده موضوع: كد فراخواني جداول بانك با وب سرويس  (دفعات بازدید: 1363 بار)
كیانی
مديريت سايت
*****

تشكرها : 172
آفلاین آفلاین

جنسيت : پسر
تعداد ارسال: 1341


اليس الله بكاف عبده ؟!


ديدن مشخصات WWW
« : 04 آبان 1388,ساعت 21:53:29 »

كد فراخواني جداول بانك با وب سرويس

کد:
       Imports System.data.sqlclient
Imports System.Data.DataSet

<WebMethod()> Public Function getdataset() As System.Data.DataSet
        Dim cn As New SqlConnection
        ("data source = نام سرور;initial catalog=نام بانك اطلاعاتي;integrated security = true")
        Dim cmd As New SqlCommand("select * from نام جدول", cn)
        Dim da As New SqlDataAdapter(cmd)
        Dim ds As New DataSet
        cn.open()
        Try
            da.fill(ds, "s")
            getdataset = ds
        Catch ex As Exception
            Return ds
            cn.close()
        End Try
    End Function

   Dim نام شي As New myref.service
        datagrid1.DataSource = نام شي.getdataset()
        datagrid1.Datamember = نام شي.getdataset().tables("s").tostring
خارج شده است

" فقال رب انی لما انزلت الی من خیر فقیر (قصص 24) * اللهم عجل لوليك الفرج"

جستجو | قوانين انجمن | عضویت در تیم آیاپیر | دانشنامه تخصصی کامپیوتر | خرید کنتاکتور | سامانه پیامک ملی
انجمن تخصصی استادان و دانشجویان کامپیوتر ایران
   

پنل اس ام اس
 خارج شده است
صفحه: [1]   بالا
  چاپ صفحه  
 
پرش به :