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”未声明。
帮我看看哈!
问题点数：20、回复次数：12Top
1 楼zhouxinjie（zhouwei）回复于 2004-09-02 22:03:32 得分 0
在线等!Top
2 楼sujiadong（流星鱼之恋）回复于 2004-09-02 23:17:42 得分 0
改成过程不行吗？Top
3 楼zhouxinjie（zhouwei）回复于 2004-09-02 23:22:57 得分 0
我试了一下,改为过程也是不行的,那位再帮我看看哈!
<%@ 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”未声明。
Top
4 楼sujiadong（流星鱼之恋）回复于 2004-09-02 23:40:06 得分 0
你把下面的代码是不是混在HTML标记中了?Top
5 楼stan0714（回头望见你）回复于 2004-09-02 23:54:56 得分 0
错误系统已经说明了:BC30451: 名称“CreatCmd”未声明。你把CreatCmd去掉就可以了!如果你要返回一个值 ,就把creatcmd定义一下,vb.net我不太熟 ,在C#里面定义为 sqldatareaderTop
6 楼zhouxinjie（zhouwei）回复于 2004-09-02 23:59:35 得分 0
那个再帮帮我!Top
7 楼xicunfu（西村夫）回复于 2004-09-03 08:13:55 得分 0
如果用FUNCTION，是需要返回值的，你显然未说明类型，而SUB是不能有返回值的，你却定义了类型，当然出错了。Top
8 楼zhouxinjie（zhouwei）回复于 2004-09-03 12:46:07 得分 0
那帮我想想办法改改啊!Top
9 楼zhouxinjie（zhouwei）回复于 2004-09-03 12:49:36 得分 0
<%@ 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”未声明。Top
10 楼cenpy（cenpy）回复于 2004-09-03 13:00:55 得分 15
我晕死！
你打错字了
CreateCmd！！！！
不是CreatCmd!!!!!!!!!!!!11Top
11 楼vzxq（灵感人）回复于 2004-09-03 13:12:41 得分 5
nod 写错了CreatCmd----》CreateCmdTop
12 楼zhouxinjie（zhouwei）回复于 2004-09-03 17:03:10 得分 0
谢天谢地~!Top
