Foxtable(狐表) → 用户栏目 → 专家坐堂 → 给别人提供接口，下面代码有错吗?


  共有2882人关注过本帖树形打印复制链接

主题：给别人提供接口，下面代码有错吗?
帅哥哟，离线，有人找我吗？
huhu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1187 积分：8266 威望：0 精华：0 注册：2015/3/30 10:44:00 		给别人提供接口，下面代码有错吗?  发帖心情 Post By：2016/11/17 15:11:00 [显示全部帖子]

Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel

' 若要允许使用 ASP.NET AJAX 从脚本中调用此 Web 服务，请取消对下行的注释。
' <System.Web.Script.Services.ScriptService()> _
<System.Web.Services.WebService(Namespace:="mywebservices2")> _
<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ToolboxItem(False)> _
Public Class myWebService2
    Inherits System.Web.Services.WebService

    <WebMethod()> _
    Public Function GetState(ByVal ddh As String, ByVal ddhh As String, ByVal lhbbh As String, ByVal rjbb As String) As String
        Dim cnStr As String = "Data Source=(local);Initial Catalog=songjiang;Integrated Security=False;User ID=sa;Password=bdcom103liujy;"
        Dim cn As New SqlClient.SqlConnection(cnStr)
        cn.Open()
        Dim cm As New SqlClient.SqlCommand("s elect 数量 from [可用数量表]  where 订单号 ='" & ddh & "' and 订单行号 = '" & ddhh & "' and 两化表编号 = '" & lhbbh & "' and 软件版本 = '" & rjbb & "'", cn)
        Dim state As String = cm.ExecuteScalar
        cn.Close()
        Return state
    End Function

End Class

图片点击可在新窗口打开查看此主题相关图片如下：error.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1187 积分：8266 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/11/17 16:28:00 [显示全部帖子]

我按照这个做的。以前做的可以啊。这次咋就不行了呢。
http://blog.sina.com.cn/s/blog_45eaa01a0102vopl.html

提示
HTTP Error 400. The request hostname is invalid.
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1187 积分：8266 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/11/17 16:48:00 [显示全部帖子]

老大们，帮我看看呗。
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel

' 若要允许使用 ASP.NET AJAX 从脚本中调用此 Web 服务，请取消对下行的注释。
' <System.Web.Script.Services.ScriptService()> _
<System.Web.Services.WebService(Namespace:="WebApplication3")> _
<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ToolboxItem(False)> _
Public Class myWebService2
    Inherits System.Web.Services.WebService

    <WebMethod()> _
    Public Function GetState(ByVal ddh As String, ByVal ddhh As String, ByVal lhbbh As String, ByVal rjbb As String) As String
        Dim cnStr As String = "Data Source=(local);Initial Catalog=songjiang;Integrated Security=False;User ID=sa;Password=bdcom103liujy;"
        Dim cn As New SqlClient.SqlConnection(cnStr)
        cn.Open()
        Dim cm As New SqlClient.SqlCommand("s elect 数量 from [可用数量表]  where 订单号 ='" & ddh & "' and 订单行号 = '" & ddhh & "' and 两化表编号 = '" & lhbbh & "' and 软件版本 = '" & rjbb & "'", cn)
        Dim state As String = cm.ExecuteScalar
        cn.Close()
        Return state
    End Function

End Class
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1187 积分：8266 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/11/18 9:18:00 [显示全部帖子]

我就是最后把项目copy过来，改了一下se lect代码。还有改了一下端口号8066.然后就出错了。

 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1187 积分：8266 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/11/18 11:14:00 [显示全部帖子]

起了2个webservices服务。之前的可以正常访问。
新增的这个出错，端口号改的和之前是不一样的。提示webconfig出错。
不论是重新做一个还是copy之前的环境，都是出同样的错。
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1187 积分：8266 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/11/18 12:16:00 [显示全部帖子]

还是web.config出问题了。
你们技术小黄给我重新弄了一个web.config，如附件，供大家参考参考
。然后就OK了。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:webconfig.rar
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1187 积分：8266 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/11/18 12:30:00 [显示全部帖子]

调用了一下，出现这个错误。
System.Data.SqlClient.SqlException: 数据类型 ntext 和 varchar 在 equal to 运算符中不兼容。
   在 System.Data.SqlClient.SqlConnection.OnError(SqlException exception, Boolean breakConnection, Action`1 wrapCloseInAction)
   在 System.Data.SqlClient.TdsParser.ThrowExceptionAndWarning(TdsParserStateObject stateObj, Boolean callerHasConnectionLock, Boolean asyncClose)
   在 System.Data.SqlClient.TdsParser.TryRun(RunBehavior runBehavior, SqlCommand cmdHandler, SqlDataReader dataStream, BulkCopySimpleResultSet bulkCopyHandler, TdsParserStateObject stateObj, Boolean& dataReady)
   在 System.Data.SqlClient.SqlDataReader.TryConsumeMetaData()
   在 System.Data.SqlClient.SqlDataReader.get_MetaData()
   在 System.Data.SqlClient.SqlCommand.FinishExecuteReader(SqlDataReader ds, RunBehavior runBehavior, String resetOptionsString)
   在 System.Data.SqlClient.SqlCommand.RunExecuteReaderTds(CommandBehavior cmdBehavior, RunBehavior runBehavior, Boolean returnStream, Boolean async, Int32 timeout, Task& task, Boolean asyncWrite, SqlDataReader ds)
   在 System.Data.SqlClient.SqlCommand.RunExecuteReader(CommandBehavior cmdBehavior, RunBehavior runBehavior, Boolean returnStream, String method, TaskCompletionSource`1 completion, Int32 timeout, Task& task, Boolean asyncWrite)
   在 System.Data.SqlClient.SqlCommand.RunExecuteReader(CommandBehavior cmdBehavior, RunBehavior runBehavior, Boolean returnStream, String method)
   在 System.Data.SqlClient.SqlCommand.ExecuteScalar()
   在 WebApplication4.WebService1.GetState1(String ddh, String ddhh, String wlbm, String lhbbh, String rjbb) 位置 C:\Users\Administrator\Documents\Tencent Files\312998569\FileRecv\WebApplication5\WebApplication4\WebApplication4\WebService1.asmx.vb:行号 19
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1187 积分：8266 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2016/11/18 12:40:00 [显示全部帖子]

哦。解决了。类型应该为string。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05566 秒, 6 次数据查询