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


ajax的使用(请帮忙将C#改为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);
}

///
/// 设计器支持所需的方法 - 不要使用代码编辑器修改
/// 此方法的内容。
///

private void InitializeComponent()
{
this.Load += new System.EventHandler(this.Page_Load);
}
#endregion
}
}
__________________________________________________________________________
或者哪位高手说说ajaxpro在vb.net下的用法啊~
__________________________________________________________________________
应该差不多的
__________________________________________________________________________

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


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

'' '' ''
'' '' '' 设计器支持所需的方法 - 不要使用代码编辑器修改
'' '' '' 此方法的内容。
'' '' ''

Private Sub InitializeComponent()

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

AjaxPro.Utility.RegisterTypeForAjax(WebForm1.gettype,me)
__________________________________________________________________________

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...