sqlConnection.Open()

        Try

            sqlCommand.ExecuteNonQuery()

            Return ""

        Catch ex As Exception

            Return ex.Message

        Finally

            sqlConnection.Close()

        End Try

    End Function

    Function UpdateStrByInt(ByVal TableName As String, ByVal DataFieldName As String, ByVal DataFieldValue As String, ByVal Para As String, ByVal ParaValue As Integer) As Integer

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

        Dim queryString As String = "UPDATE " & TableName & " SET " & DataFieldName & " = ''''" & DataFieldValue & "'''' WHERE " & Para & " = " & ParaValue

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ...  下一页 >>