sqlcmd问题

我想创建一个关于SqlCommand的子函数,那样的话,就可以随时调用啦.
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<Script Languate="VB" Runat="Server">
Public sqlconnstring as string="Data Source=lxycai\zhouwei;Integrated Security=SSPI;" & _
                          "User id=sa;Password=lxycai;Initial Catalog=lxy_zhouwei"'-------------------创建CMD对象------------
Function CreateCmd(Byval strSQL As String)
 Dim Iconn As New SqlConnection()
 Iconn.ConnectionString = sqlconnstring
  Iconn.Open()
    Dim objCmd As New SqlCommand()
    objCmd.Connection = Iconn
    objCmd.CommandText = strSQL 
    CreateCmd= objCmd.ExecuteNonQuery()
 End Function 
'-------------------创建CMD对象---------------'这样去调用
Dim sql_re as string
  sql_re="insert into [ave_dealscore](stu_num,course_code,course_name,course_score)  (SELECT stu_num,course_code,course_name,course_score FROM avg_zhou1())"
  call CreatCmd(sql_re)
出现错误是:BC30451: 名称“CreatCmd”未声明。帮我看看哈!

解决方案 »

  1.   

    我试了一下,改为过程也是不行的,那位再帮我看看哈!<%@ Import Namespace="System.Data" %>
    <%@ Import Namespace="System.Data.SqlClient" %>
    <Script Languate="VB" Runat="Server">
    Public sqlconnstring as string="Data Source=lxycai\zhouwei;Integrated Security=SSPI;" & _
                              "User id=sa;Password=lxycai;Initial Catalog=lxy_zhouwei"'-------------------创建CMD对象------------
    SUB CreateCmd(Byval strSQL As String)
     Dim Iconn As New SqlConnection()
     Iconn.ConnectionString = sqlconnstring
      Iconn.Open()
        Dim objCmd As New SqlCommand()
        objCmd.Connection = Iconn
        objCmd.CommandText = strSQL 
        CreateCmd= objCmd.ExecuteNonQuery()
     End sub
    '-------------------创建CMD对象---------------'这样去调用
    Dim sql_re as string
      sql_re="insert into [ave_dealscore](stu_num,course_code,course_name,course_score)  (SELECT stu_num,course_code,course_name,course_score FROM avg_zhou1())"
      call CreatCmd(sql_re)
    出现错误是:BC30451: 名称“CreatCmd”未声明。
      

  2.   

    你把下面的代码是不是混在HTML标记中了?
      

  3.   

    错误系统已经说明了:BC30451: 名称“CreatCmd”未声明。你把CreatCmd去掉就可以了!如果你要返回一个值 ,就把creatcmd定义一下,vb.net我不太熟 ,在C#里面定义为 sqldatareader
      

  4.   

    如果用FUNCTION，是需要返回值的，你显然未说明类型，而SUB是不能有返回值的，你却定义了类型，当然出错了。
      

  5.   

    <%@ Import Namespace="System.Data" %>
    <%@ Import Namespace="System.Data.SqlClient" %>
    <Script Languate="VB" Runat="Server">
    Public sqlconnstring as string="Data Source=lxycai\zhouwei;Integrated Security=SSPI;" & _
                              "User id=sa;Password=lxycai;Initial Catalog=lxy_zhouwei"'-------------------创建CMD对象------------
    SUB CreateCmd(Byval strSQL As String)
     Dim Iconn As New SqlConnection()
     Iconn.ConnectionString = sqlconnstring
      Iconn.Open()
        Dim objCmd As New SqlCommand()
        objCmd.Connection = Iconn
        objCmd.CommandText = strSQL 
        objCmd.ExecuteNonQuery()
     End sub
    '-------------------创建CMD对象---------------'这样去调用
    Sub avg_required_click(sender As Object, e As EventArgs)
    Dim sql_re as string
      sql_re="insert into [ave_dealscore](stu_num,course_code,course_name,course_score)  (SELECT stu_num,course_code,course_name,course_score FROM avg_zhou1())"
      call CreatCmd(sql_re)End sub
    </script>
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title>无标题文档</title>
    </head>
    <body>
    <form runat="server">
      <asp:Button ID="Button" Text="计算" Width="150" Height="25" runat="server"  OnClick="avg_required_click"/>
    </form>
    </body>
    </html>出现错误是:BC30451: 名称“CreatCmd”未声明。
      

  6.   

    我晕死！
    你打错字了
    CreateCmd！！！！
    不是CreatCmd!!!!!!!!!!!!11
      

  7.   

    nod 写错了CreatCmd----》CreateCmd