帮忙看看,怎样修改错误

shot_big 2003-03-26 10:49:48
Compiler Error Message: BC30203: Expected an identifier.

Source Error:
Line 11: End class
Line 12: public class datatypes
Line 13: Public Function <WebMethod()> SayHello() As String
Line 14: Return "Hello World!"
Line 15: End Function



<%@ WebService language="vb" class=dataservice%>
Imports system
Imports system.data
Imports system.data.sqlclient
Imports system.web.services

Public class dataservice
public function<Webmethod()>Getcolor() As DataSet
Dim myconnection As sqlconnection=New sqlconnection("server=localhost;uid=sa;pwd=;database=aspx")
Dim mycommand1 As sqldatasetcommand=New sqldatasetcommand("select* from bbs_sort",myconnection)
Dim mycommand2 As sqldatasetcommand=New sqldatasetcommand("select * from bbs_root",myconnection)
Dim ds As New dataset
mycommand1.filldataset(ds,"bbs_sort")
mycommand2.filldataset(ds,"bbs_root")
return ds
end function
Public funtion<WebMethod()>Putcolor(ds as dataset) as Integer
Return ds.tables(0).Rows.count
End function
end class
...全文
24 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
火电 2003-03-26
  • 打赏
  • 举报
回复

将sqlcommand --> sqlDataAdapter


liuyong_lll 2003-03-26
  • 打赏
  • 举报
回复
可以用SqlDataAdapter进行DATASET的填充,把上面的SqlCommand拿掉,利用我说的就可以了
liuyong_lll 2003-03-26
  • 打赏
  • 举报
回复
不好意思,ENTER键敲的快了点,呵呵....做如下的修改:
Dim myconnection As sqlconnection=New sqlconnection("server=localhost;uid=sa;pwd=;database=aspx")
Dim mycommand1 As SqlDataAdapter=New SqlDataAdapter("select* from bbs_sort",myconnection)
Dim mycommand2 As SqlDataAdapter=New SqlDataAdapter("select * from bbs_root",myconnection)
Dim ds As New dataset
mycommand1.filldataset(ds,"bbs_sort")
mycommand2.filldataset(ds,"bbs_root")
liuyong_lll 2003-03-26
  • 打赏
  • 举报
回复
在使用BETA 2版本的情况下,类SqlClient中好象不存在SqlDataCommand的,你呀,做如下的修改应该可以成功:
Dim myconnection As sqlconnection=New sqlconnection("server=localhost;uid=sa;pwd=;database=aspx")
Dim mycommand1 As sqldatasetcommand=New sqldatasetcommand("select* from bbs_sort",myconnection)
Dim mycommand2 As sqldatasetcommand=New sqldatasetcommand("select * from bbs_root",myconnection)
Dim ds As New dataset
mycommand1.filldataset(ds,"bbs_sort")
mycommand2.filldataset(ds,"bbs_root")
shot_big 2003-03-26
  • 打赏
  • 举报
回复
up
shot_big 2003-03-26
  • 打赏
  • 举报
回复
up
shot_big 2003-03-26
  • 打赏
  • 举报
回复
我没有用sqlcommand啊

62,046

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧