我无法弄清楚我的生活..我使用SQL数据集查询来迭代到一个类对象,它充当Flex的数据模型...最初我使用VB.net,但现在需要转换为C#..除了创建DataRow arow的最后一部分,然后尝试将DataSet值添加到类(结果类)之外,此转换完成...我收到一条错误消息..任何人都可以帮助转换此VB Webservice?
' VTResults.Results.Ticker”不可访问由于其保护级别 (这是下跌的底部)
using System;
using System.Web;
using System.Collections;
using System.Web.Services;
using System.Web.Services.Protocols;
using System.Data;
using System.Data.SqlClient;
using System.Configuration;
/// <summary>
/// Summary description for VTResults
/// </summary>
[WebService(Namespace = "http://velocitytrading.net/ResultsVT.aspx")]
[WebServiceBinding(ConformsTo = WsiProfiles.BasicProfile1_1)]
public class VTResults : System.Web.Services.WebService {
public class Results {
string Ticker;
string BuyDate;
decimal Buy;
string SellDate;
decimal Sell;
string Profit;
decimal Period;
}
[WebMethod]
public Results[] GetResults() {
string conn =
ConfigurationManager.ConnectionStrings["LocalSqlServer"].ConnectionString;
SqlConnection myconn = new SqlConnection(conn);
SqlCommand mycomm = new SqlCommand();
SqlDataAdapter myda = new SqlDataAdapter();
DataSet myds = new DataSet();
mycomm.CommandType = CommandType.StoredProcedure;
mycomm.Connection = myconn;
mycomm.CommandText = "dbo.Results";
myconn.Open();
myda.SelectCommand = mycomm;
myda.Fill(myds);
myconn.Close();
myconn.Dispose();
int i = 0;
Results[] dts = new Results[myds.Tables[0].Rows.Count];
foreach(DataRow arow in myds.Tables[0].Rows)
{
dts[i] = new Results();
dts[i].Ticker = arow["Ticker"];
dts[i].BuyDate = arow["BuyDate"];
dts[1].Buy = arow["Buy"];
dts[i].SellDate = arow["SellDate"];
dts[i].Sell = arow["Sell"];
dts[i].Profit = arow["Profit"];
dts[i].Period = arow["Period"];
i+=1;
}
return dts;
}
}
运行罚款VB.NET WEBSERVICE而我试图将转换为C#在这里。
Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Data
Imports System.Data.SqlClient
<WebService(Namespace:="http://localhost:2597/Results/ResultsVT.aspx")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class VTResults
Inherits System.Web.Services.WebService
Public Class Results
Public Ticker As String
Public BuyDate As String
Public Buy As Decimal
Public SellDate As String
Public Sell As Decimal
Public Profit As String
Public Period As Decimal
End Class
<WebMethod()> _
Public Function GetResults() As Results()
Try
Dim conn As String =
ConfigurationManager.ConnectionStrings("LocalSqlServer").ConnectionString
Dim myconn = New SqlConnection(conn)
Dim mycomm As New SqlCommand
Dim myda As New SqlDataAdapter
Dim myds As New DataSet
mycomm.CommandType = CommandType.StoredProcedure
mycomm.Connection = myconn
mycomm.CommandText = "dbo.Results"
myconn.Open()
myda.SelectCommand = mycomm
myda.Fill(myds)
myconn.Close()
myconn.Dispose()
Dim i As Integer
i = 0
Dim dts As Results() = New Results(myds.Tables(0).Rows.Count - 1) {}
Dim aRow As DataRow
For Each aRow In myds.Tables(0).Rows
dts(i) = New Results
dts(i).Ticker = aRow("Ticker")
dts(i).BuyDate = aRow("BuyDate")
dts(i).Buy = aRow("Buy")
dts(i).SellDate = aRow("SellDate")
dts(i).Sell = aRow("Sell")
dts(i).Profit = aRow("Profit")
dts(i).Period = aRow("Period")
i += 1
Next
Return dts
Catch ex As DataException
Throw ex
End Try
End Function
End Class
您还应该将SqlConnection,SqlCommand和SqlDataAdapter放入'using'块中,以便在引发异常时将它们丢弃。 – 2010-05-24 01:24:25
谢谢约翰当我完成转换后,我会继续努力。 – CraigJSte 2010-05-24 20:34:47