sql - webservice-将odbc访问连接转换为sql server

Question

我正在尝试将我的软件从 odbc 连接更新到我的新 sql 服务器。新的 sql 连接默认为旧数据库（见下面的代码）。我什至尝试保留 sql 的 odbc 连接并指向我的新数据库，但 web 服务返回的是布尔值，而不是肥皂。sql server 是为更新的 web 服务设置和工作的。我错过了什么？

这是旧代码：

<WebMethod()> Public Function LookupItem(ByVal strUPC As String) As DataSet
    Try
        Dim connUPC As New Odbc.OdbcConnection
        Dim ConnectionString As String
        Dim strSQL As String
        '//get upc info            
        strSQL = "SELECT Inv_Qty.*,PLU.*,PLU.PLU_NUM, PLU.DEPT_NUM From PLU INNER JOIN Inv_Qty ON PLU.PLU_NUM=Inv_Qty.PLU_NUM WHERE ((PLU.PLU_NUM) = '" & strUPC & "');"
        ConnectionString = "DSN=mainODBC"
        connUPC.ConnectionString = ConnectionString
        Dim cmdUPC As New Odbc.OdbcCommand(strSQL, connUPC)
        Dim dsUPC As DataSet = New DataSet
        Dim daUPC As Odbc.OdbcDataAdapter = New Odbc.OdbcDataAdapter(cmdUPC)
        connUPC.Open()
        daUPC.Fill(dsUPC, "TC")
        connUPC.Close()
        connUPC = Nothing
        Return dsUPC
    Catch ex As Exception

    End Try
End Function

我试图改变连接：

<WebMethod()> Public Function LookupItem(ByVal strUPC As String) As DataSet
    Try
        Dim connUPC As New Data.SqlClient.SqlConnection
        Dim ConnectionString As String
        Dim strSQL As String
         '//get upc info            
        strSQL = "SELECT Inv_Qty.*,PLU.*,PLU.PLU_NUM, PLU.DEPT_NUM From PLU INNER JOIN Inv_Qty ON PLU.PLU_NUM=Inv_Qty.PLU_NUM WHERE ((PLU.PLU_NUM) = '" & strUPC & "');"
         ConnectionString = "Data Source=localhost\db;Initial Catalog=DB_SQL;Persist Security Info=True;User ID=myID;Password=myPass"
        connUPC.ConnectionString = ConnectionString
         Dim cmdUPC As New Data.SqlClient.SqlCommand(strSQL, connUPC)
        Dim dsUPC As DataSet = New DataSet
        Dim daUPC As Data.SqlClient.SqlDataAdapter = New Data.SqlClient.SqlDataAdapter(cmdUPC)
         connUPC.Open()
        daUPC.Fill(dsUPC, "TC")
        connUPC.Close()
        connUPC = Nothing
        Return dsUPC
    Catch ex As Exception

    End Try
End Function

Answer 1

试试这种方式:)希望它有帮助......

    <WebMethod()> Public Function LookupItem(ByVal strUPC As String) As DataSet
    Try
        Dim connUPC As New Data.SqlClient.SqlConnection
        Dim cmdUPC As New Data.SqlClient.SqlCommand
        Dim daUPC As New Data.SqlClient.SqlDataAdapter
        Dim dsUPC As DataSet = New DataSet
        Dim ConnectionString As String = "Data Source=localhost\db;Initial Catalog=DB_SQL;Persist Security Info=True;User ID=myID;Password=myPass"
        Dim strSQL As String = "SELECT Inv_Qty.*,PLU.*,PLU.PLU_NUM, PLU.DEPT_NUM From PLU INNER JOIN Inv_Qty ON PLU.PLU_NUM=Inv_Qty.PLU_NUM WHERE ((PLU.PLU_NUM) = '" & strUPC & "');"

        '// Opening the connection
        connUPC.Open()
        cmdUPC.Connection = connUPC
        cmdUPC.CommandText = strSQL

        daUPC.SelectCommand = cmdUPC
        daUPC.Fill(dsUPC)

        connUPC.Close()
        connUPC = Nothing

        Return dsUPC
    Catch ex As Exception

    End Try
End Function

玩得开心！