IT人
相关图书

ajax的使用(请帮忙将C#改为VB.net)

所属分类:.NET技术 VB.NET
-----------------------------------------

C#代码:
[AjaxPro.AjaxNamespace("Test")]
public class WebForm1 : System.Web.UI.Page
{
public OleDbConnection con;
public OleDbCommand com;
public OleDbDataAdapter dat;
public DataTable dt;     
protected void Page_Load(object sender, EventArgs e)
{
AjaxPro.Utility.RegisterTypeForAjax(typeof(WebForm1),this);
}  
 
[AjaxPro.AjaxMethod]
public DataTable GetData()
{
string constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +@"  C:\Inetpub\wwwroot\Evget_Teechart2003\DataBinding.mdb";
con = new OleDbConnection(constr);
com = new OleDbCommand("select SalesAmount from Sales", con);
dat = new OleDbDataAdapter(com);
dt = new DataTable();
dat.Fill(dt);
return dt; 
}

#region Web 窗体设计器生成的代码
override protected void OnInit(EventArgs e)
{
//
// CODEGEN: 该调用是 ASP.NET Web 窗体设计器所必需的。
//
InitializeComponent();
base.OnInit(e);
}

/// <summary>
/// 设计器支持所需的方法 - 不要使用代码编辑器修改
/// 此方法的内容。
/// </summary>
private void InitializeComponent()
{    
this.Load += new System.EventHandler(this.Page_Load);
}
#endregion
}
}

----------------------------------------------------------------------

或者哪位高手说说ajaxpro在vb.net下的用法啊~

--------------------------------------------------------

应该差不多的

--------------------------------------------------------

<AjaxPro.AjaxNamespace("Test")>
public class WebForm1 : System.Web.UI.Page

        Public con As OleDbConnection
        Public com As OleDbCommand
        Public dat As OleDbDataAdapter
        Public dt As DataTable

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Page.Load
            AjaxPro.Utility.RegisterTypeForAjax(typeof(WebForm1),this)
        End Sub

<AjaxPro.AjaxMethod>
        Public Function GetData() As DataTable

            Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\Evget_Teechart2003\DataBinding.mdb"
            con = New OleDbConnection(constr)
            com = New OleDbCommand("select SalesAmount from Sales", con)
            dat = New OleDbDataAdapter(com)
            dt = New DataTable()
            dat.Fill(dt)
            Return dt
        End Function

#Region "Web 窗体设计器生成的代码"
        Protected Overrides Sub OnInit(ByVal e As EventArgs)
            MyBase.OnInit(e)

            InitializeComponent()
        End Sub

        ''' <summary>
        ''' 设计器支持所需的方法 - 不要使用代码编辑器修改
        ''' 此方法的内容。
        ''' </summary>
        Private Sub InitializeComponent()

        End Sub
#End Region
    End Class

--------------------------------------------------------

谢谢.其实我的意思是想问ajaxpro在vb.net中的用法.主要是这三句:
[AjaxPro.AjaxNamespace("Test")]
 AjaxPro.Utility.RegisterTypeForAjax(typeof(WebForm1),this)
[AjaxPro.AjaxMethod]

--------------------------------------------------------

<AjaxPro.AjaxNamespace("Test")>
 AjaxPro.Utility.RegisterTypeForAjax(WebForm1.gettype,me)
<AjaxPro.AjaxMethod>
相关问题
    Copyright ◎ 1998 - 2007 编程资料网 All Rights Reserved